# NOT RUN {
##Search the c-optimal design for estimating the ED50 under the 5PL model
##Parameter values for the 5PL model
T5=c(30000,0.5,800,0.5,2)
##Dose range=[1.95,32000]
EDpOPT(LB=1.95,UB=32000, P=T5,EDp=.5,grid=.01, r =30,epsilon=.001)
# }
Run the code above in your browser using DataLab