# NOT RUN {
data <- mtcars
datamiss = Terminator(target = data, wrath = 0.05) # 5% of missing values
showdata(datamiss) # plot positions of the missing values
# missing values with a structure
datamiss = Terminator(target = data, diag = 1) # diag of missing values
showdata(datamiss) # plot positions of the missing values (no full individuals, no full variable)
opar = par(no.readonly = TRUE)
showdata(X = cor(data), what = "correl")
par(opar)
# }
Run the code above in your browser using DataLab