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