当我只需要1时，R中的预测函数将返回891个值

Question

我正在学习R，并且正在使用泰坦尼克号数据集进行练习。我已经使用通用线性模型构建了一个模型。看来效果很好，但是当我在单个样本观测值上使用预测函数时，它会输出891个值。我之前也已将适当的变量转换为因素。

我尝试使用其他模型，但似乎无济于事。我也尝试过使用predict（）和predict.glm（）。我在网上找到的任何其他解决方案都没有帮助

out_survived <- glm(Survived ~ Pclass + Sex + Age + SibSp + Parch + Fare + Embarked, data = train_sub, family = "binomial")
summary(out_survived)

new_obs$Pclass = 1
new_obs$Sex = "male"
new_obs$Age = 23
new_obs$SibSp = 2
new_obs$Parch = 2
new_obs$Fare = 7.5
new_obs$Embarked = "C"


predict(out_survived, new_data = new_obs, type = "response")

我希望新观测值能够存活的可能性只有一个值。