R/nominalY.R

Defines functions `nominalY`

`nominalY` <-
function(d,yy,r,verbose=0) {
  qq<-La.svd(sqrt(d)*yy,r,r)
  zz<-(1/sqrt(d))*qq$u
  aa<-qq$d[1:r]*qq$vt
  list(y=zz%*%aa,z=zz,a=aa)
}

Try the aspect package in your browser

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

aspect documentation built on May 6, 2022, 9:06 a.m.