set.seed(0)
X1 <- matrix(rnorm(50, mean = 2, sd = 5))
udplot(X1)
X2 <- matrix(rnorm(50, mean = 2, sd = 5))
udplot(X2, npdf = TRUE)
X3 <- matrix(rnorm(500, mean = 2, sd = 5))
udplot(X3, npdf = TRUE, title = "", lcol = "blue", rcol = "red", pdfcol = "black")
Run the code above in your browser using DataLab