R/aux_skewness.R

In annabardin/Workout03: Functions for Binomial Distributions

# AUX SKEWNESS
# Private aux function aux_skewness
# Description: returns skewness of binomial exp.
# Input: trials (numeric value), prob (numeric value)
# Returns: skewness
aux_skewness <- function(trials, prob){
  return((1-2*prob)/(sqrt(trials*prob*(1-prob))))
}