Displaying 1 result from an estimated 1 matches for "wtequal".
Did you mean:
equal
2001 Nov 05
1
Problem to transfer Splus functions
...;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 <- deparse(substitute(wt))
wtequal <- F
if(wtnom == paste("rep(1/nrow(", xnom, "), nrow(", xnom, "))",
sep = ""))
wtequal <- T
dnom <- deparse(substitute(d))
dusual <- F
if(dnom == paste("rep(1, ncol(", xnom, "))", sep = ""))
dusual <- T...