R 仅在小鼠中使用插补数据

我用R中的老鼠来估算缺失值。我只想提取填充了缺失值的行。（我只有一列缺少值）。我的理解是，如果init是您从mice获得的对象，那么init$imp具有插补值。但是，我想将其转换为mids对象，然后在多重插补数据集的回归输出上使用pool_mi。 下面是我想做的一个例子

# Example 
# impute missing data
init = mice(dt, predictorMatrix = predictorMatrix)
# only take the rows that had imputed
imputed_data = init$imp
#somehow turn this into a mids object
imputed_data_mids = as.mids(imputed_data)
OR
datlist <- miceadds::mids2datlist(init$imp)
# run a regression
reg <- with(datlist, ivreg(Y ~ X))
betas <- lapply(reg, coef)
vars <- lapply(reg, FUN = function(x){vcovCL(x, cluster = datlist[[1]]$group_id)})
# apply pooling across imputations to get standard errors
summary(pool_mi(betas, vars))
sum_obj = summary(pool_mi(betas, vars))
summary(reg[[1]])

#示例
#插补缺失数据
初始值=小鼠（dt，预测矩阵=预测矩阵）
#只取已插补的行
估算的_数据=初始$imp
#以某种方式将其转化为mids对象
估算的_数据_mids=as.mids（估算的_数据）
或
数据表