An adapted R code for a Bivariate Kernel Density