if (FALSE) {
data(tract2221)
imputeEM <- multinomial_impute(tract2221[,1:4], method= "EM",
conj_prior = "none", verbose= TRUE)
imputeDA <- multinomial_impute(tract2221[,1:4], method= "DA",
conj_prior = "non.informative", verbose= TRUE)
}
Run the code above in your browser using DataLab