R/SkewnessModuleCoefficient3D.R

SkewnessModuleCoefficient3D <- function (modules) 
{
    n = length(modules)
	mean = sum(modules) / n
    s = ModuleStandardDeviation3D(modules)
    return((n / ((n - 1) * (n - 2))) * (sum(((modules - mean)/s)^3)))
}

Try the VecStatGraphs3D package in your browser

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

VecStatGraphs3D documentation built on May 1, 2019, 8:03 p.m.