comp <- rast(system.file("external/comparison.rst", package = "diffeR"))
ref <- rast(system.file("external/reference.rst", package = "diffeR"))
crosstabm(comp, ref)
# Population-adjusted square contingency table
(population <- matrix(c(1, 2, 3, 2000, 4000, 6000), ncol = 2))
crosstabm(comp, ref, population = population)
# Population-adjusted square contingency table, output as percentage
crosstabm(comp, ref, percent = TRUE, population = population)
Run the code above in your browser using DataLab