par(mfrow=c(2,2))
n <- 400
q1 <- HS247(2,400,c(2,2),c(0,pi/10))
q2 <- HS247(2,400,c(2,3))
q3 <- HS247(2,400,c(2,5))
q4 <- HS247(2,400,c(17,19)) # prone to correlations
plot (q1,pch="+",col="blue",cex=0.5)
points(q2,pch=4,col="green",cex=0.5)
plot (q2,pch=4,col="green",cex=0.5)
points(q3,pch=":",col="red")
points(q4,pch=4,col="magenta",cex=0.5)
plot (q2,pch=4,col="green",cex=0.5)
points(HS247(2,400,c(2,3),c(pi/10,pi/10)),pch=5,cex=0.5,col="red")
plot (HS247(2,400,c(2,3),c(pi/10,pi/10)),pch=5,cex=0.5,col="red")
points(HS247(2,400,c(2,3),c(pi/10+0.2,pi/10+0.2)),pch="-")
Run the code above in your browser using DataLab