powered by
approxk2d(x, gridsize = 128, pos = x)
x <- rnorm(500) y <- x+rnorm(500) kde2 <- approxk2d(cbind(x, y)) plot(x, y, pch=20, col=hsv(0, kde2/max(kde2), 1))
Run the code above in your browser using DataLab