# NOT RUN {
# load library
library(data.table)
# plot using iris data
DensityContinuous(iris)
# plot using random data
set.seed(1)
data <- cbind(sapply(1:9, function(x) {
runif(500, min = sample(100, 1), max = sample(1000, 1))
}))
DensityContinuous(data)
# }
Run the code above in your browser using DataLab