如何多重插補

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

您可以通過從我的版本的miceextract_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