data<-mtcars
require(CorReg)
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