# NOT RUN {
require(lattice)
# Create the imputed data sets
predMat <- matrix(rep(0,25), ncol = 5)
predMat[4,1] <- 1
predMat[4,5] <- 1
predMat[2,1] <- 1
predMat[2,5] <- 1
predMat[2,4] <- 1
predMat[3,1] <- 1
predMat[3,5] <- 1
predMat[3,4] <- 1
predMat[3,2] <- 1
imputed.sets <- mice(sample.data, m = 2,
method = c("", "gamlssPO",
"gamlss", "gamlssBI", ""),
visitSequence = "monotone",
predictorMatrix = predMat,
maxit = 1, seed = 973,
n.cyc = 1, bf.cyc = 1,
cyc = 1)
fit <- with(imputed.sets, lm(y ~ X.1 + X.2 + X.3 + X.4))
summary(pool(fit))
stripplot(imputed.sets)
# }
Run the code above in your browser using DataLab