Displaying 1 result from an estimated 1 matches for "kcos".
Did you mean:
cos
1999 Dec 01
1
density(kernel = "cosine") .. the `wrong cosine' ..
...When I was telling the students about different kernels (and why their
choice is not so important, and "equivalent bandwidths" etc,etc)
I wondered about the "Cosine" in my teaching notes which
is defined there as
k(x) = pi/4 * cos(pi/2 * x) * I{ |x| <= 1 }
i.e. in R
Kcos <- function(x) ifelse(abs(x) <= 1, pi/4 * cos(pi/2 * x), 0)
Now, R has instead (for bandwidth h <- bw/1.135724 which makes the bandwidth
Gaussian equivalent;
here just h == 1/pi to be similar to above)
Kcosine <- function(x) ifelse(abs(x) < 1, (1+cos(x*pi))/...