Content - bc34a026ba4d3535b1af610fdb9aa2d892332043 - 36d3991/func.var.R

func.var.R

func.var <- function(functions) 
{
    nrow = dim(functions)[1]
    (nrow - 1) * apply(functions, 2, var)/nrow
}