Displaying 1 result from an estimated 1 matches for "nomf".
Did you mean:
nom
2001 Nov 05
1
Problem to transfer Splus functions
...de saturations positives
v12 <- rep(1, ncol(x)) %*% (vecp[, 1:2]/abs(vecp[, 1:2]))
v12 <- 2 * (as.numeric(v12 >= 0) - 0.5)
vecp[, 1:2] <- t(v12 * t(vecp[, 1:2]))
# calcul des vecteurs propres M normes
res$vectors <- (1/sqrt(d)) * vecp
# Generation des noms de facteurs
nomf <- as.vector(outer("f", 1:nfmax, paste, sep = ""))
dimnames(res$vectors) <- list(nam[[2]], nomf)
#Affectation des noms
# des vecteurs principaux
res$cmpr <- x %*% (d12 * vecp)
#Calcul des composantes principales
xnom <- deparse(substitute(x))
wtnom <...