(design1 <- getDesignUnorderedMultinom(
beta = 0.1, ngroups = 3, ncats = 4,
pi = matrix(c(0.230, 0.320, 0.272,
0.358, 0.442, 0.154,
0.142, 0.036, 0.039),
3, 3, byrow = TRUE),
allocationRatioPlanned = c(2, 2, 1),
alpha = 0.05))
Run the code above in your browser using DataLab