c<-.4
tau<-2
a<-0; b<-10; int<-c(a,b)
n<-10
xf<-(int[2]-int[1])*.1
Xp<-runif(n,a-xf,b+xf) #try also Xp<-runif(n,a-5,b+5)
plotCSregs.int(7,int,tau,c,xlab="x",ylab="")
plotCSregs.int(Xp,int,tau,c,xlab="x",ylab="")
plotCSregs.int(17,int,tau,c,xlab="x",ylab="")
plotCSregs.int(1,int,tau,c,xlab="x",ylab="")
plotCSregs.int(4,int,tau,c,xlab="x",ylab="")
plotCSregs.int(-7,int,tau,c,xlab="x",ylab="")
Run the code above in your browser using DataLab