R/ifa.init.random.R

"ifa.init.random" <-
function(y,L)
{
numvar<-ncol(y)
H<-matrix(runif(L*numvar,-3,3),numvar,L)
psi<-diag(diag(var(y)))*0.1

output<-list(psi=psi,H=H)
}

Try the ifa package in your browser

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

ifa documentation built on May 2, 2019, 1:07 p.m.