library(PRcalc)
data(jp_upper_2019)
<- prcalc(jp_upper_2019, m = 50, method = "dt")
jp2019
summary(jp2019)
Party Raw Dist
1 自民 17712373 18
2 公明 6536336 7
3 立憲 7917721 8
4 維新 4907844 5
5 共産 4483411 5
6 国民 3481078 3
7 れいわ 2280253 2
8 社民 1046012 1
9 N国 987885 1
10 安楽死 269052 0
11 幸福 202278 0
12 オリーブ 167897 0
13 労働者 80055 0