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