Calling df_mia <- getJointRPCA(...) is returning two attributes among others:
attr(df_mia, "varExplained") # explained variance
attr(df_mia, "percentVar") # explained proportion of variance i.e. x^2 / sum(x^2) where x is explained variance
The naming is potentially confusing. One might consider that "varExplained" is already the explained percentage.
Suggestion: rename percentVar into propVarExplained
Calling
df_mia <- getJointRPCA(...)is returning two attributes among others:The naming is potentially confusing. One might consider that "varExplained" is already the explained percentage.
Suggestion: rename percentVar into propVarExplained