R/predict.KERE.R

predict.KERE <- function(object, kern, x, newx,...) {
  nfit <- kernelMult(kern, newx, x, object$alpha[-1,])
  nfit <- sweep(nfit, MARGIN = 2, object$alpha[1,], "+")
  nfit
}
emeryyi/KERE documentation built on May 16, 2019, 5:06 a.m.