無限長の時間軸を用意 サンプルサイズ n の点を時間軸上にランダム配置 時間軸を有限の長さの区間に分割し、ある区間について考える ある区間内に各点が含まれる確率を p とする 区間内の点の個数が k のとき、 k ~ Bionomial(N, p) となるので、 P(N = k) …

zipangu::separate_address を使うと便利 コードの例 fread('hogehoge.csv', encoding = 'UTF-8') %>% mutate(address = zipangu::separate_address(都道府県市区町村)) %>% mutate( pref = unlist(map(.x = address, .f = ~ {flatten(.x)[[1]]})), city = u…