add eigenvectors.R