https://github.com/cran/nFactors
Revision 592b098fc786911733da1c1953e58c9d1c2e9517 authored by Gilles Raiche on 10 April 2010, 00:00:00 UTC, committed by Gabor Csardi on 10 April 2010, 00:00:00 UTC
1 parent 4de3e28
Tip revision: 592b098fc786911733da1c1953e58c9d1c2e9517 authored by Gilles Raiche on 10 April 2010, 00:00:00 UTC
version 2.3.3
version 2.3.3
Tip revision: 592b098
generateStructure.r
generateStructure <-
function(var, mjc, pmjc, loadings, unique) {
if (var/mjc != ceiling(var/mjc)) stop("Bad pmjc value")
fload <- matrix(unique, ncol=mjc, nrow=var)
for (i in 1:mjc) {
if (i == 1) fload[i:(pmjc),i] <- loadings
min <- ((i-1)*pmjc+1)
max <- ((i-1)*pmjc+pmjc)
if (min > dim(fload)[1]) min <- dim(fload)[1]
if (max > dim(fload)[1]) max <- dim(fload)[1]
if (i > 1) fload[min:max,i] <- loadings
if (min > dim(fload)[1]) fload[dim(fload)[1],i] <- unique
}
return(data.frame(fload))
}
Computing file changes ...