# NOT RUN {
KBivN(c(0.1,0.4))
x <- y <- seq(-4,4,length=50)
z <- KBivN(data.frame(cbind(sort(rep(x,50)),rep(y,50))))
persp(x,y,matrix(z,50,50,byrow=TRUE),main="bivariate Gaussian kernel",
phi=30,theta=-30)
# }
Run the code above in your browser using DataLab