# \donttest{
c<-.4
a<-0; b<-10; int<-c(a,b)
Mc<-centerMc(int,c)
nx<-10
xr<-range(a,b,Mc)
xf<-(xr[2]-xr[1])*.5
Xp<-runif(nx,a,b)
Ext<-cl2Mc.int(Xp,int,c)
Ext
summary(Ext)
plot(Ext)
cMc<-Ext
Xlim<-range(a,b,Xp)
xd<-Xlim[2]-Xlim[1]
plot(cbind(a,0),xlab="",pch=".",
main=paste("Closest Points in Mc-Vertex Regions \n to the Center Mc = ",Mc,sep=""),
xlim=Xlim+xd*c(-.05,.05))
abline(h=0)
abline(v=c(a,b,Mc),col=c(1,1,2),lty=2)
points(cbind(Xp,0))
points(cbind(c(cMc$ext),0),pch=4,col=2)
text(cbind(c(a,b,Mc)-.02*xd,-0.05),c("a","b",expression(M[c])))
# }
Run the code above in your browser using DataLab