Sensitivity Analysis 1

library(doodleproblem)
library(dplyr)
library(ggplot2)
library(tictoc)

Sensitivity analysis 1

tic()
grid1 <- populate_grid(n_colleagues = 2:5, 
                      o = c(5, 10, 15, 20, 25, 30), 
                      p = c(3, 5, 7, 10), 
                      dep = 0)
toc()

It’s quicker to load from disk:

data(grid1)

Visualize grid

vis_grid(grid1)