## -----------------------------------------------------------------------------
library(mobr)
data(inv_comm)

## -----------------------------------------------------------------------------
calc_comm_div(inv_comm[1:2, ], 'S')

## -----------------------------------------------------------------------------
calc_comm_div(inv_comm[1:2, ], 'S_PIE')

## -----------------------------------------------------------------------------
calc_comm_div(inv_comm[1:2, ], 'S_C')

## -----------------------------------------------------------------------------
calc_comm_div(inv_comm[1:2, ], 'S_n', effort = 20)

## -----------------------------------------------------------------------------
calc_comm_div(inv_comm[1:10, ], 'S')

## -----------------------------------------------------------------------------
calc_beta_div(inv_comm[1:10, ] , 'S')