1. Blogghodet (sev): par(mfrow=c(10,10),mai=c(0,0,0,0));for (j in 1:100){i<-1000;x<-rnorm(i);y<-rnorm(i);plot(x,y,col=1:10,cex=0.4/(abs(x)^0.5),pch=16,axes=F,xlab=””,ylab=””);box()}
|
||
aRt1. Blogghodet (sev): par(mfrow=c(10,10),mai=c(0,0,0,0));for (j in 1:100){i<-1000;x<-rnorm(i);y<-rnorm(i);plot(x,y,col=1:10,cex=0.4/(abs(x)^0.5),pch=16,axes=F,xlab=””,ylab=””);box()} |