# \donttest{
c<-.4
t<-2
a<-0; b<-10; int<-c(a,b)
n<-10
Xp<-runif(n,a,b)
num.arcsCSmid.int(Xp,int,t,c)
CSarc.dens.test.int(Xp,int,t,c)
num.arcsCSmid.int(Xp,int,t,c=.3)
CSarc.dens.test.int(Xp,int,t,c=.3)
num.arcsCSmid.int(Xp,int,t=1.5,c)
CSarc.dens.test.int(Xp,int,t=1.5,c)
Xp<-runif(n,a-1,b+1)
num.arcsCSmid.int(Xp,int,t,c)
CSarc.dens.test.int(Xp,int,t,c)
c<-.4
t<-.5
a<-0; b<-10; int<-c(a,b)
n<-10 #try also n<-20
Xp<-runif(n,a,b)
CSarc.dens.test.int(Xp,int,t,c)
# }
Run the code above in your browser using DataLab