# NOT RUN {
set.seed(0)
X1 <- matrix(rnorm(50,mean=2,sd=5))
svplot1(X1)
X2 <- matrix(rf(50,df1=10,df2=5))
svplot1(X2)
X3 <- matrix(rbeta(50,shape1=10,shape2=2))
svplot1(X3,title="",lbcol="blue",lscol="blue",rbcol="red",rscol="grey75")
# }
Run the code above in your browser using DataLab