# NOT RUN {
x <- rnorm(10000)
y <- rnorm(10000)
plot(x,y, pch=".")
hbin <- hexbin(x,y)
str(xys <- hcell2xy(hbin))
points(xys, cex=1.5, col=2) ; title("hcell2xy( hexbin(..) )", col.main=2)
# }
# NOT RUN {
<!-- %% __________ FIXME ________ -->
# }
Run the code above in your browser using DataCamp Workspace