# # eigenvector_1.r -- Illustrates Eigenvector Extraction # # Assumes that R is a symmetric correlation matrix # # i <- 0 aa <- 0 RSTAR <- NULL nrow <- length(R[,1]) RSTAR <- R %*% xvec while (i < nrow){ i <- i + 1 aa <- aa + RSTAR[i]**2 } aa <- sqrt(aa) xvec <- RSTAR/aa