複数の代用後に適合値を抽出する方法

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