# 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)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.