R/vFun_zScore.R

#' zScore
#'
#' @param pcaTable
#'
#' @return
#' @keywords internal
#'
#' @examples
zScore<- function (pcaTable){

    numcol<- length (pcaTable[1,])
    numrow<- length (pcaTable[,1])
    pcaTable[is.na(pcaTable)] <- 0

    for (col in 1:numcol){

        stanDev<-sd (pcaTable[,col], na.rm=TRUE)
        meanCol<- mean (pcaTable[,col])

        for (row in 1:numrow){

            zVal<- (pcaTable[row,col]-meanCol)/stanDev
            pcaTable[row,col]<- zVal

        }

        return (pcaTable)

    }

}
lucidif/HiCeekR documentation built on Jan. 31, 2021, 10:30 p.m.