if (FALSE) {
#############################################################################
# EXAMPLE 1: Example with binary and continuous variables
#############################################################################
library(mice)
library(imputeR)
data(nhanes, package="mice")
dat <- nhanes
dat$hyp <- as.factor(dat$hyp)
#* define imputation methods
method <- c(age="",bmi="norm",hyp="imputeR.cFun",chl="imputeR.lmFun")
Fun <- list( hyp=imputeR::ridgeC, chl=imputeR::ridgeR)
#** do imputation
imp <- mice::mice(dat1, method=method, maxit=10, m=4, Fun=Fun)
summary(imp)
}
Run the code above in your browser using DataLab