teqrOCact(sim,firstdose,proba,probc,cohortSize,MaxNoCohorts,
RP2Dss,pTarget,eq1,eq2,tootoxic,toxcon,llactivity)set.seed(1111)
OperChar<-teqrOCact(
sim=500,
firstdose=2,
proba=c(0.65,0.75,0.85,1.00),
probc=c(0.10,0.20,0.30,0.40),
cohortSize=3,
MaxNoCohorts=30,
RP2Dss=12,
pTarget=1.00,
eq1=0.34,
eq2=0.0,
toxcon=0.34,
llactivity=0.66)
OperChar
Run the code above in your browser using DataLab