Calculate MSE by using Resiprocal Inverse Gaussian Kernel.
mserig(y, k, h, type)
a numeric vector of positive values.
gird points.
the bandwidth
mention distribution of vector.If exponential distribution then use "Exp". if use gamma distribution then use "Gamma".
MSE
# NOT RUN { y<-rexp(100,1) h<-0.79 * IQR(y) * length(y) ^ (-1/5) mserig(y,200,h,"exp") # }
Run the code above in your browser using DataLab