powered by
Quartic (Biweight) Kernel
Ker.quar(u)
Kernel values at u (0 outside [-1, 1]).
Numeric vector of evaluation points.
u <- seq(-1.5, 1.5, length.out = 100) plot(u, Ker.quar(u), type = "l", main = "Quartic Kernel")
Run the code above in your browser using DataLab