R/bpk.q

bpk <- function(X, bandwidths, a = 1.0, kernel = dnorm, ...)
  apply(X, 1, function(u, v, b) mean(kernel((u%*%v)/b) / b),
        v = bandwidths$alphas, b = a*bandwidths$lambdas)

Try the bpkde package in your browser

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

bpkde documentation built on May 2, 2019, 10:25 a.m.