if (FALSE) {
#############################################################################
# EXAMPLE 1: Example with fixed imputed values
#############################################################################
data(nhanes, package="mice")
dat <- nhanes
#* define methods
method <- c(age="", bmi="constant", hyp="norm", chl="pmm")
fixed_values <- list( bmi=rep(27,9) )
#* impute
imp <- mice::mice(dat, method=method, m=1, maxit=3, fixed_values=fixed_values)
table(mice::complete(imp, action=1)$bmi)
}
Run the code above in your browser using DataLab