在R中创建for循环以运行相同的模型10次

Question

我试着在插补后用R写一个循环。推算出10个数据集，我想在每个数据集中运行相同的模型，并预测每个数据集中的结果得分。我当前的代码不能工作：

for (i in 1:10) {
impi <- glm(died ~ agecat + female_1 + insurance + mech + transfer +
            iss + mxaisbr1 + maxais + cm_chf_1 + cm_mets_1 + cm_liver_1 +
            cm_htn_c_1 + cm_bldloss_1 + state, data = subset(imp, .imp == i), family = binomial)
preimpi <- predict(impi, type = c('response'))
}

如果没有循环，我必须输入相同的代码10次

imp1 <- glm(died ~ agecat + female_1 + insurance + mech + transfer +
            iss + mxaisbr1 + maxais + cm_chf_1 + cm_mets_1 + cm_liver_1 +
            cm_htn_c_1 + cm_bldloss_1 + state, data = subset(imp, .imp == 1), family = binomial)
preimp1 <- prediect(imp1, type = c('response'))
imp2 <- glm(died ~ agecat + female_1 + insurance + mech + transfer +
            iss + mxaisbr1 + maxais + cm_chf_1 + cm_mets_1 + cm_liver_1 +
            cm_htn_c_1 + cm_bldloss_1 + state, data = subset(imp, .imp == 2), family = binomial)
preimp2 <- prediect(imp2, type = c('response'))
etc...

有什么想法吗？谢谢!