R/pdsXty.R

pdsXty <-
function(Xm,yv){
  xeig <- eigen(Xm,symmetric=TRUE)
  nze <- sum(xeig$val>xeig$val[1]*.Machine$double.eps)
  cpv <- (t(xeig$vec[,1:nze])*sqrt(xeig$val[1:nze]))%*%yv
}

Try the bigsplines package in your browser

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

bigsplines documentation built on May 2, 2019, 9:27 a.m.