# NOT RUN {
# load library
library(data.table)
# plot using iris data
HistogramContinuous(iris)
# plot using random data
set.seed(1)
data <- cbind(sapply(1:9, function(x) {rnorm(10000, sd = 30 * x)}))
HistogramContinuous(data, breaks = seq(-400, 400, length = 10))
# }
Run the code above in your browser using DataLab