# NOT RUN {
data(ozone)
## First the number of components has to be chosen
## (for the reconstruction step)
nb <- estim_ncpFAMD(ozone) ## Time-consuming, nb = 2
## Multiple Imputation
res.mi<-MIFAMD(ozone,ncp = 2,nboot=50)
## First completed data matrix
head(res.mi$res.MI[[1]])
## Analysis and pooling with mice
require(mice)
imp<-prelim(res.mi,ozone)
fit <- with(data=imp,exp=lm(maxO3~T9+T12+T15+Ne9+Ne12+Ne15+Vx9+Vx12+Vx15+maxO3v+vent+pluie))
res.pool<-pool(fit)
summary(res.pool)
# }
Run the code above in your browser using DataLab