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)
num.arcsCSmid.int(Xp,int,t,c=.3)
num.arcsCSmid.int(Xp,int,t=1.5,c)
#num.arcsCSmid.int(Xp,int,t,c+5) #gives error
#num.arcsCSmid.int(Xp,int,t,c+10)
n<-10 #try also n<-20
Xp<-runif(n,a-5,b+5)
num.arcsCSint(Xp,int,t,c)
Xp<-runif(n,a+10,b+10)
num.arcsCSmid.int(Xp,int,t,c)
n<-10
Xp<-runif(n,a,b)
num.arcsCSmid.int(Xp,int,t,c)
Run the code above in your browser using DataLab