R/createVarTable.r

createVarTable <- function (sdev, square = TRUE, rownames=NULL) {
    if (square) 
        sdev <- sdev^2
    sdsum <- sum(sdev)
    sdVar <- sdev/sdsum
    sdCum <- cumsum(sdVar)
    Variance <- data.frame(eigenvalues = sdev, exVar = sdVar, cumVar = sdCum)
    rownames(Variance) <- rownames
    return(Variance)
}

Try the Morpho package in your browser

Any scripts or data that you put into this service are public.

Morpho documentation built on Feb. 16, 2023, 10:51 p.m.