Simulate tournaments in R
# devtools::install_github("beanumber/tourneyr") library(tourneyr) library(tidyverse) nba <- best16_2016 %>% filter(sport == "nba") one_simulation(nba) one_simulation(nba, series_length = 7) one_simulation(nba, series_length = 999) res <- best16_2016 %>% group_by(sport) %>% do(many_simulations(., n = 100, series_length = 7)) res %>% group_by(sport) %>% summarize(cor(seed, finish))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.