swh:1:snp:ffdd0a7d2c8ea15ad41d45b3b178f668bd942287
Tip revision: 1c995ef374a8438306839bffe3c09b7c524aebdd authored by Derek Young on 28 April 2009, 07:56:28 UTC
version 0.4.0
version 0.4.0
Tip revision: 1c995ef
kernB.R
kern.B <- function (x, xi, h, g = 0)
{
((1-((xi-x)/h)^2)^g)/beta(.5,g+1)/h
}