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

## ----setup--------------------------------------------------------------------
library(CHOIRBM)

## -----------------------------------------------------------------------------
data(validation)
set.seed(123)
sampled_data <- validation[
  sample(
    seq_len(nrow(validation))
    , 100
    , replace = FALSE
  )
  , ]

## -----------------------------------------------------------------------------
colnames(sampled_data)[5] <- "bodymap" # name the body map column 'bodymap'
con_mat <- comp_cooccurrence(sampled_data)
head(con_mat)

## ----fig.width=8, fig.height=8------------------------------------------------
plot_cooccurrence(con_mat = con_mat)