Displaying 1 result from an estimated 1 matches for "dusual".
Did you mean:
usual
2001 Nov 05
1
Problem to transfer Splus functions
...)
#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
dimnames(res$cmpr)[[2]] <- nomf
names(res$values) <- nomf
res$d <- d
res$pi <- wt
res$reduc <- reduc
res$ctr <- ctr
res$moy <- moy
res$sigma <- sigm
attr(...