# NOT RUN {
doses <- c(0,10,25,50,100,150)
models <- list(linear=NULL, emax=c(25),
logistic=c(50,10.88111), exponential=c(85),
betaMod=matrix(c(0.33,2.31,1.39,1.39),byrow=TRUE,nrow=2))
# Examples from JBS paper, p.654
LPobj <- LP(models, model = "emax", type = "both", paramRange = c(10,70),
doses = doses, base = 0, maxEff = 0.4, sigma = 1, n = 60,
alpha = 0.05, len = 15, scal = 200)
plot(LPobj)
plot(LPobj, line = FALSE, type = "LP1")
plot(LPobj, type = "LP1", spldf = 9)
# }
Run the code above in your browser using DataLab