powered by
eig
eig(X, tol = sqrt(.Machine$double.eps), max.iter = 100, retain.zeroes = TRUE)
QR
values
vectors
eigen
SVD
C <- matrix(c(1,2,3,2,5,6,3,6,10), 3, 3) # nonsingular, symmetric C EC <- eig(C) # eigenanalysis of C EC$vectors %*% diag(EC$values) %*% t(EC$vectors) # check
Run the code above in your browser using DataLab