diff --git a/R/est_Beta_Params.R b/R/est_Beta_Params.R new file mode 100644 index 0000000000000000000000000000000000000000..aaf9ec206998903d00358268c16e5af6e6b91c3f --- /dev/null +++ b/R/est_Beta_Params.R @@ -0,0 +1,14 @@ + + +## Estimates starting parameters for the Beta distribution calculation +## +## @param mu The mean of the data. +## @param var The variance of the data. +## +## @return A list containing the estimated beta parameters alpha and beta. +## +est_Beta_Params <- function(mu, var){ + alpha <- ((1-mu)/var - 1/mu) * mu^2 + beta <- alpha * (1/mu - 1) + return(params = list(alpha = alpha, beta = beta)) +}