# NOT RUN {
xy.mat<-cbind(sample(1:10,200,TRUE),sample(1:10,200,TRUE))
clusteredpoints<-
cluster.overplot(xy.mat,col=rep(c("red","green"),each=100),
away=rep(0.2,2))
plot(clusteredpoints,col=clusteredpoints$col,
main="Cluster overplot test")
# }
Run the code above in your browser using DataLab