R/I_colVars.R

Defines functions .colVars

# Variance of columns of a matrix
.colVars <- function(.x){     
  .m <- colMeans(.x)
  .vr <- rowSums( (t(.x) - .m)^2 ) / (nrow(.x) - 1)  
  return(.vr)
}  
mfasiolo/qgam documentation built on March 9, 2024, 12:01 p.m.