set.seed(0)
X1 <- matrix(c(rnorm(50, mean = 2, sd = 5), runif(4, 17, 30)))
udaplot(X1)
X2 <- matrix(c(rnorm(50, mean = 2, sd = 5), runif(4, 17, 30)))
udaplot(X2, npdf = TRUE)
X3 <- matrix(c(rnorm(50, mean = 2, sd = 5), runif(4, 17, 30)))
udaplot(X3, excld = TRUE, npdf = TRUE)
X4 <- matrix(rnorm(500, mean = 2, sd = 5))
udaplot(X4, title = "", lcol = "blue", rcol = "red", pdfcol = "balck")
Run the code above in your browser using DataLab