data<-mtcars
require(CorReg)
datamiss=Terminator(target = data,wrath=0.05)#5% of missing values
showdata(datamiss)#plot positions of the missing values
datamiss=Terminator(target = data,diag=1)#diag of missing values
showdata(datamiss)#plot positions of the missing values (no full individuals, no full variable)
Run the code above in your browser using DataLab