T1<-c(-1.563,-1.790,-8.442,1.700)
dose1<-c(-4,-2.23,-1.14,1.00)
weight1<-c(0.309,0.254,0.290)
weight1<-c(weight1,1-sum(weight1))
ceff1(weight=weight1,T=T1,dose=dose1,nit=10,LB=-6.91,UB=6.91)
Run the code above in your browser using DataLab