如何在多重插补后提取拟合值

Question

busan<-subset(influ_busan, select = c(CNT,temp_min,temp_diff,humid_mean,hpa_mean,rad_mean,wind_mean,o3))

new_busan<-mice(busan, seed=12345, n=5)

lm_busan <- with(new_busan,lm(CNT~temp_min+temp_diff+humid_mean+hpa_mean+rad_mean+wind_mean+o3))

summary(lm_busan)
busan_predict<-data.frame(fitted.values(lm_busan))

这是我的简单版本语法。我对 NA 使用多重插补，在多重插补后，我想提取拟合值。但是我无法提取拟合值，如何提取拟合值？

Answer 1

您可以通过我的mice 版本中的extract_imputations 函数执行此操作；希望很快会被纳入主要的mice 版本：

见：https://github.com/stefvanbuuren/mice/pull/51

devtools::install_github("alexwhitworth/mice")
library(mice)
new_busan <- mice(busan, seed= 12345, m=2)
busan_predict <- extract_imputations(busan, new_busan$imp, j= 1)
busan_predict <- extract_imputations(busan, new_busan$imp, j= 2)

编辑 显然，我没有彻底阅读鼠标文档。这个功能已经存在于鼠标中 -- mice::complete