# NOT RUN {
x <- mvtnorm::rmvt(100, toeplitz(seq(1, 0.1, length.out = 3)), df = 5)
y <- mice::ampute(x, mech='MCAR')$amp
res <- tylerShapeNA(y)
## default plot
plot(res)
## plot result in gray scale - reverse order to get a palette starting
## with the lightest instead of the darkest color
plot(res, col = gray.colors(9, rev = TRUE))
# }
Run the code above in your browser using DataLab