Displaying 1 result from an estimated 1 matches for "wtnom".
2001 Nov 05
1
Problem to transfer Splus functions
...urs
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 <- 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, "))",...