par(mfrow=c(2,3)) seed<-5000; draw<-function(seed) { x<-2*runif(seed); y<-2*runif(seed); plot(y,x,xlim=c(0,2),ylim=c(0,2)); x<-0.25*rnorm(seed)+0.5; y<-0.25*rnorm(seed)+0.5; plot(y,x,xlim=c(0,1),ylim=c(0,1)); x<-0.75*rexp(seed); y<-0.75*rexp(seed); plot(y,x,xlim=c(0,1),ylim=c(0,1)); } draw(10); draw(1000);