## Generate Data from the unit circle
n = 300
X = circleUnif(n)
## Construct a grid of points over which we evaluate the functions
by=0.065
Xseq=seq(-1.6, 1.6, by=by)
Yseq=seq(-1.7, 1.7, by=by)
Grid=expand.grid(Xseq,Yseq)
## kernel distance estimator
h=0.3
Kdist= kernelDist(X, Grid, h)
Run the code above in your browser using DataLab