# NOT RUN {
# plot using iris data
plot_density(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))
}))
plot_density(data)
# }
Run the code above in your browser using DataLab