# NOT RUN {
# Design plot of D optimal design with right censoring.
Design1 <- altopt.rc("D", 100, 100, 2, 1, formula = ~ x1 + x2 + x1:x2,
coef = c(0, -4.086, -1.476, 0.01))
design.plot(Design1$opt.design.rounded, x1, x2)
# }
Run the code above in your browser using DataLab