2019バレイベ周回数試算

fgo20190214.R

dat <- tribble(~uta,  ~fude, ~sumi, ~kami,
               52700, 14,    10,    14,
               46500, 16,    16,    22,
               52700, 12,    16,    14,
               57040, 18,    12,    16,
               38440, 14,    22,    12,
               48980, 14,    10,    14,
               46980,  8,    14,    12,
               47740, 20,    20,    12,
               31000, 16,     8,    16,
               42160, 22,    16,    18,
               42160, 16,    18,    22,
               46500, 20,    14,    20,
               26040, 18,    20,    22,
               41540, 20,    16,    14)
res <- dat %>% map(mean)

(3000000 - (1029550 + sum(dat$uta))) / res$uta

map(res[-1], ~ .x * .Last.value)