#y<-x/100+rnorm(100,5,2)
#M<-OptimCBB(x=x,y=y)
#
#x<-rbeta(50,2,3)
#y<-0.5*x+rgamma(50,1,2)
#M<-OptimCBB(x,y,m=30,step=0.5,test="t",empcumulative=TRUE)
#M<-OptimCBB(x,y,m=30,step=0.5,test="w",empcumulative=FALSE,cumulative1=pbeta,
#cumulative2=pempirical,parameters1=c(2,3))
Run the code above in your browser using DataLab