Displaying 1 result from an estimated 1 matches for "nfmax".
Did you mean:
fmax
2001 Nov 05
1
Problem to transfer Splus functions
...propres de v
#------------------------------------------------------------------------
# Factors associated with very small eigenvalues removed
#------------------------------------------------------------------------
nf <- length(res$values)
cond <- res$values < tol * sum(res$values)
nfmax <- if(sum(cond) > 0) min((1:length(res$values))[cond]) -
1 else nf
res$values <- res$values[1:nfmax]
res$vectors <- res$vectors[, 1:nfmax]
vecp <- res$vectors
# Reorientation des deux premiers vecteurs propres pour avoir un max
# de saturations positives
v12 <- rep(1,...