R/predict.krome.R

In emeryyi/rome: Robust Mean Estimation

Defines functions predict.krome

Documented in predict.krome

predict.krome <- function(object, kern, x, newx,...) {
  nfit <- kernelMult(kern, newx, x, object$alpha[-1,])
  nfit <- sweep(nfit, MARGIN = 2, object$alpha[1,], "+")
  nfit
}