par(mfrow=c(2,2))
persp(gaussian.kernel(sigma=1, s=27), theta = 135,
phi = 30, col = "grey", ltheta = -120, shade = 0.6,
border=NA )
persp(gaussian.kernel(sigma=2, s=27), theta = 135, phi = 30,
col = "grey", ltheta = -120, shade = 0.6, border=NA )
persp(gaussian.kernel(sigma=3, s=27), theta = 135, phi = 30,
col = "grey", ltheta = -120, shade = 0.6, border=NA )
persp(gaussian.kernel(sigma=4, s=27), theta = 135, phi = 30,
col = "grey", ltheta = -120, shade = 0.6, border=NA )
Run the code above in your browser using DataLab