infinity<-Infinity(n=1000)
plot(infinity$x1,infinity$x2)
#### Visualisation of the infinity dataset (3D) ####
require(rgl)
require(colorRamps)
c <- cut(infinity$z,breaks=100)
cols <- matlab.like(100)[as.numeric(c)]
plot3d(infinity$x1,infinity$x2,infinity$z,radius=0.01, col=cols,
type="s",xlab="x1",ylab="x2",zlab="z",box=F)
grid3d(c("x","y","z"),col="black",lwd=1)
Run the code above in your browser using DataLab