hist2d(x, y, xbreaks=<<see below>>, ybreaks=<<see below>>, nxbins=<<see below>>, nybins=<<see below>>, scale=F)
corn <- list(x = corn.rain, y = corn.yield) image(hist2d(corn, nxbins=9, ny=9)) points(corn, col=0)prim <- hist2d(prim9[,3:4], nxbin=30, nybin=30) persp(prim$z/max(prim$z), eye=c(-6, -4, 3))