set.seed(0)
X1 <- matrix(rnorm(50, mean = 2, sd = 5))
adplot(X1)
X2 <- matrix(rf(50, df1 = 10, df2 = 5))
adplot(X2)
X3 <- matrix(rbeta(50, shape1 = 10, shape2 = 2))
adplot(X3, title="", lcol = "blue", rcol = "red")
Run the code above in your browser using DataLab