# NOT RUN {
# load packages
library(data.table)
# manipulate data
data <- data.table(iris)
for (j in 1:4) set(data, i=sample(150, j * 30), j, value = NA_integer_)
# plot and assign missing value information
plot_data <- PlotMissing(data)
plot_data
# }
Run the code above in your browser using DataLab