R/nominalY.R

Defines functions `nominalY`

`nominalY` <-
function(d,y,r,verbose=0) {
  qq<-La.svd(sqrt(d)*y,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 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.