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))
+}