require(MASS)
### create normally distributed data
data <- mvrnorm(100,mu=rep(0,5),Sigma = diag(5:1))
qqmat(data)
###create non normally distributed data
data1 <- rchisq(100,df=3)
qqmat(data1,square=FALSE)
Run the code above in your browser using DataLab