powered by
missing.gen0(mat, nummiss)
missing.gen
sigma <- matrix(0.4, 4, 4) diag(sigma) <- 1 x0 <- rmvnorm(n=100, mean=rep(0, 4), sigma=sigma) x0 # complete matrix x <- missing.gen0(x0, 50) x # matrix with 50 missing values
Run the code above in your browser using DataLab