# Create dataset with 20% missing responses
set.seed(123)
data <- data.frame(
Y = c(rnorm(80), rep(NA, 20)),
X1 = rnorm(100),
X2 = runif(100)
)
result <- MCEM(data, d = 5, tol = 0.001, nb = 100)
print(result$Yhat) # Imputed response vector
print(result$betahat) # Final regression coefficients
print(result$iterations) # Number of iterations performed
Run the code above in your browser using DataLab