## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
options(rmarkdown.html_vignette.check_title = FALSE)

## ----setup--------------------------------------------------------------------
library(CHOIRBM)
cbm_str <- "101,102,103,104"
cbm_df <- string_to_map(cbm_str)
head(cbm_df)

## ----plot1--------------------------------------------------------------------
plot_male_choirbm(cbm_df, "value")