a<-0; b<-10; int<-c(a,b)
n<-5
XpL<-runif(n,a-5,a)
XpR<-runif(n,b,b+5)
Xp<-c(XpL,XpR)
num.arcsCSend.int(Xp,int,t=2)
num.arcsCSend.int(Xp,int,t=1.2)
num.arcsCSend.int(Xp,int,t=4)
num.arcsCSend.int(Xp,int,t=2+5)
#num.arcsCSend.int(Xp,int,t=c(-5,15))
n<-10 #try also n<-20
Xp2<-runif(n,a-5,b+5)
num.arcsCSend.int(Xp2,int,t=2)
t<-.5
num.arcsCSend.int(Xp,int,t)
Run the code above in your browser using DataLab