library(PRcalc)
data(jp_lower_2021)
<- prcalc(jp_lower_2021[1:9, ],
obj m = c(8, 14, 20, 21, 17, 11, 21, 30, 11, 6, 21),
method = "hare")
decompose(obj)
alpha = 2
alpha-divergence Reapportionment Redistricting
0.038552104 0.003095531 0.035456573
Note: "alha-divergence" is sum of "Reapportionment" and "Redisticting" terms.