R/kernels.R

Defines functions kernelTrap kernelRect

kernelTrap <- function(x) ifelse(x==0, 1.5/pi, (cos(x) - cos(2*x))/(pi*x^2))
kernelRect <- function(x) ifelse(x==0, 1/pi, sin(x)/(pi*x))

Try the iosmooth package in your browser

Any scripts or data that you put into this service are public.

iosmooth documentation built on May 1, 2019, 10:30 p.m.