library(PRcalc)
# Using a prcalc object
data(jp_lower_2021)
<- prcalc(jp_lower_2021,
obj m = c(8, 14, 20, 21, 17, 11, 21, 30, 11, 6, 21),
method = "hare")
decompose2(obj)
alpha = 2
alpha-divergence Reapportionment Redistricting
0.03952282 0.00324211 0.03628070
Note: "alha-divergence" is sum of "Reapportionment" and "Redisticting" terms.