View source: R/09_Imputation.R
CombineMIs | R Documentation |
Combines point estimates and standard errors across multiple imputations.
CombineMIs(points, covs)
points |
List of point estimates, potentially vector valued. |
covs |
List of sampling covariances, potentially matrix valued. |
List containing the final point estimate ('point') and sampling covariance ('cov').
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)
# Lists to store summary statistics.
points <- list()
covs <- list()
# Perform 50 multiple imputations.
# For each, calculate the marginal mean and its sampling variance.
for (i in seq_len(50)) {
imputed <- GenImputation(fit)
points[[i]] <- apply(imputed, 2, mean)
covs[[i]] <- cov(imputed) / nrow(imputed)
}
# Combine summary statistics across imputations.
results <- CombineMIs(points, covs)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.