powered by
eigenvalues(X,draw=FALSE)
# TODO!! # valpcr <- eigenvalues(Xcr,draw=T)$eigenvalues
Run the code above in your browser using DataLab