if (FALSE) {
# Create histogram plots
plot_data <- list(rnorm(100), rnorm(50))
plot_vector(fun = "histogram", data = plot_data, output = "html")
# Create density plots
plot_vector(fun = "density", data = plot_data, output = "latex")
# Create bar plots from single values
bar_data <- list(0.5, 0.8, 0.3)
plot_vector(fun = "barpct", data = bar_data, output = "html")
}
Run the code above in your browser using DataLab