R/aux_kurtosis.R

# AUX KURTOSIS
# Private aux function aux_kurtosis
# Description: returns kurtosis of binomial exp.
# Input: trials (numeric value), prob (numeric value)
# Returns: kurtosis
aux_kurtosis <- function(trials, prob){
  return((1-6*prob*(1-prob))/(trials*prob*(1-prob)))
}
annabardin/Workout03 documentation built on May 4, 2019, 12:54 a.m.