Coefficient of Biomodality
get.coefficient.of.bimodality.RdCalculates the coefficient of bimodality from a vector, as defined as (1+skewness^2)/(kurtosis+3). For normal distributions, the value should be close to 0.16667; for uniform distributions, close to 0.5555; and for bimodal distributions, the coefficient should be close to 1.
Examples
x <- rnorm(1000);
coeff <- get.coefficient.of.bimodality(x);