data(shoplifting)
dataCA <- shoplifting[, 1:9]
CorrAn.out <- CorrAn(data=dataCA)
### Graphs on screen
plot(CorrAn.out, s1=1, s2=2, screen=TRUE)
### Graph on a pdf file without rows
pdf('CAGr.pdf',paper="a4r",width=12, height=9)
plot(CorrAn.out, s1=1, s2=2, screen=FALSE, oar=0)
dev.off()
Run the code above in your browser using DataLab