# \donttest{
# Load example data
cluster_result <- readRDS(system.file("extdata", "cluster_result.rds",
package = "richCluster"))
cbar <- cluster_bar(cluster_result)
cbar
# }
Run the code above in your browser using DataLab