#Generate/evaluate a design and print its information
factorialcoffee = expand.grid(cost = c(1, 2),
type = as.factor(c("Kona",
"Colombian",
"Ethiopian",
"Sumatra")),
size = as.factor(c("Short",
"Grande",
"Venti")))
coffee_curves = calculate_power_curves(candidateset = factorialcoffee,
model = ~(cost + size + type)^2,
trials = 30:40, plot_results = FALSE)
coffee_curves
Run the code above in your browser using DataLab