R/beta_est.R

Defines functions estBetaParams

estBetaParams <- function(mu, var) {
  alpha <- ((1 - mu) / var - 1 / mu) * mu ^ 2
  beta <- alpha * (1 / mu - 1)
  return(params = list(alpha = alpha, beta = beta))
}
zhixingfeng/rGDA documentation built on Jan. 18, 2021, 3:18 p.m.