#simulate a partially observed categorical dataset
set.seed(1234)
n <- 100
#for simplicity we simulate completely independent variables
temp <- data.frame(x1=ceiling(3*runif(n)), x2=ceiling(2*runif(n)), x3=ceiling(2*runif(n)))
#make some data missing
for (i in 1:3) {
temp[(runif(n)<0.25),i] <- NA
}
#impute using catImp, assuming two-way associations in the log-linear model
imps <- catImp(temp, M=10, pd=FALSE, rseed=4423)
#impute assuming a saturated log-linear model
imps <- catImp(temp, M=10, pd=FALSE, type=3, rseed=4423)
Run the code above in your browser using DataLab