powered by
scatterdens(x, y, dens.frac = 1/5, ...) scatterhist(x, y, xlab = "", ylab = "", dens.frac = 1/5, ...)
x <- rnorm(100) y <- rlnorm(100) op <- par(ask = TRUE) scatterdens(x, y, xlab = "x", ylab = "y") par(op)
Run the code above in your browser using DataLab