# NOT RUN {
##Under the 5PL model with the parameter values
##T5=(30000,0.5,800,0.5,2) and the dose range [1.95,32000],
##find the c-efficiency of the broad range design.
##The broad range design
dose=c(1.95,7.8,31.25,125,500,2000,8000,32000)
dlength=length(dose)
weight=rep(1/dlength,dlength-1)
##Parameter values for the 5PL model
T5=c(30000,0.5,800,0.5,2)
##Compute the c-efficiency of the broad range design
EDpeff(weight,dose,P=T5,EDp=.5,LB=1.95,UB=32000,grid=.01)
# }
Run the code above in your browser using DataLab