R/predict.unireg.R

predict.unireg <- function(object, newdata, ...){
      Bneu <- splineDesign(knots=object$knotsequence, newdata, ord = object$degree+1, outer.ok = T)
      as.numeric(Bneu%*%object$coef)
}

Try the uniReg package in your browser

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

uniReg documentation built on May 2, 2019, 6:50 a.m.