# \donttest{
nx<-10 ; ny<-5
set.seed(1)
Xp<-cbind(runif(nx,0,1),runif(nx,0,1))
Yp<-cbind(runif(ny,0,.25),runif(ny,0,.25))+cbind(c(0,0,0.5,1,1),c(0,1,.5,0,1))
#try also Yp<-cbind(runif(ny,0,1),runif(ny,0,1))
M<-c(1,1,1) #try also M<-c(1,2,3) #or M="CC"
plotASregs(Xp,Yp,M,xlab="",ylab="")
plotASregs(Xp,Yp[1:3,],M,xlab="",ylab="")
Xp<-c(.5,.5)
plotASregs(Xp,Yp,M,xlab="",ylab="")
# }
Run the code above in your browser using DataLab