R/polynomialY.R

Defines functions `polynomialY`

`polynomialY` <-
function(d,y,r,verbose=0) {
  k<-length(d)
  zz<-orthogonalPolynomials(d,1:k,min(r,k-1))
  aa<-crossprod(zz,d*y)
  list(y=zz%*%aa,z=zz,a=aa)
}

Try the homals package in your browser

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

homals documentation built on June 10, 2022, 5:09 p.m.