powered by
Computes the fraction of variance explained (variance explained normalized by the trace of the covariance/correlation matrix) by a set of PCs.
fraction_variance_explained(C, U)
A float.
A matrix. The correlation or covariance matrix (p x p).
A matrix. The matrix containing the r PCs (p x r).
library(datasets) TestMat <- cor(datasets::mtcars) mspcares <- mspca(TestMat, 2, c(4,4)) fraction_variance_explained(TestMat, mspcares$x_best)
Run the code above in your browser using DataLab