set.seed(100)
# Generate data and introduce missingness.
data <- rGMM(n = 25, d = 2, k = 1)
data[1, 1] <- NA
data[2, 2] <- NA
data[3, ] <- NA
# Fit GMM.
fit <- FitGMM(data)
# Generate imputation.
imputed <- GenImputation(fit)
Run the code above in your browser using DataLab