Coded as follows:
x = seq(.001,50,.001)
par(bg="black")
par(mar=c(0,0,0,0))
plot(x,sin(1/x)*rpois(length(x),x),pch=20,col="blue")
Coded as follows:
x = seq(.001,50,.001)
par(bg="black")
par(mar=c(0,0,0,0))
plot(x,sin(1/x)*rpois(length(x),x),pch=20,col="blue")
This entry was posted on Friday, May 28th, 2010 at 5:00 pm and is filed under feature, plot, r. You can follow any comments to this entry through the RSS 2.0 feed. Both comments and pings are currently closed.
© 2024.
awesome. what program generated this?