# NOT RUN {
# Generating D optimal design for right censoring.
altopt.rc("D", 100, 100, 2, 1, formula = ~ x1 + x2 + x1:x2,
coef = c(0, -4.086, -1.476, 0.01))
# Generating U optimal design for right censoring.
altopt.rc("D", 100, 100, 2, 1, formula = ~ x1 + x2 + x1:x2,
coef = c(0, -4.086, -1.476, 0.01), useCond = c(1.758, 3.159))
# Generating I optimal design for right censoring.
altopt.rc("D", 100, 100, 2, 1, formula = ~ x1 + x2 + x1:x2,
coef = c(0, -4.086, -1.476, 0.01), useLower = c(1.458, 2.859),
useUpper = c(2.058, 3.459))
# }
Run the code above in your browser using DataLab