# NOT RUN {
n <- 40
par <- c("beta_A" = 1, "beta_B" = 2)
out <- make_grid(n = 2, par = par)
exp_out <- data.frame(dose_A = c(0, 2, 0, 2),
dose_B = c(0, 0, 4, 4),
rep = 1)
# }
Run the code above in your browser using DataLab