Weapon-by-force contingency test

Builds a weapon x force contingency table, runs a chi-square test of independence, computes Cramer's V, and reports the top-3 (weapon, force) cells by standardised Pearson residual.

Usage

mrm_uof_weapon_diversity(df, weapon_col, force_col)

Arguments

df

A data.frame.

weapon_col

Categorical weapon column.

force_col

Categorical force / service column.

Value

A named list with chi2, pvalue, df, cramers_v, top_residuals (list-of-lists), and an interpretation paragraph.

Examples

set.seed(1)
df <- data.frame(weapon = sample(c("OC", "baton", "none"), 40, TRUE),
                 force = sample(c("low", "high"), 40, TRUE))
res <- mrm_uof_weapon_diversity(df, "weapon", "force")
res$title
#> [1] "MRM-UOF Weapon Diversity"