r - マウスの後に複数の従属変数に対して glm を繰り返し実行する方法は?

Question

nrow=4312, ncol=105を使用して複数の代入を実行したデータフレーム がありますmice。

imp <- mice(data, m=20, maxit=10, method=meth, predictorMatrix=pred2, visitSequence=vis)

ここで、40 の異なる従属変数を使用して複数のロジスティック回帰を繰り返し個別に実行し、特定の値を異なるデータ フレームに抽出する必要があります。そのような回帰と値の抽出の例は次のとおりです。

fit.HDP <- with(imp, glm(HDP ~ P0 + BMI + WtChange + MATAGE, family=binomial, subset=(P1==1)))
est.HDP <- pool(fit.HDP)
HDP <- summary(est.HDP)

HDP.OR <- exp(HDP[2,1])
HDP.95CI <- exp(HDP[2,c(6,7)])
HDP.pvalue <- HDP[2,5]

1. 各変数に対してこれを 40 回以上書き出すよりも速く行うにはどうすればよいでしょうか?
2. forループを使用してそれを行うことは可能ですか?

助けてくれてありがとう！