R/r_moment_gamma_Weib.R

In RSizeBiased: Hypothesis Testing Based on R-Size Biased Samples

Defines functions r_moment_gamma_Weib

Documented in r_moment_gamma_Weib

r_moment_gamma_Weib <- function(TRpar,r, dist){
  shape <- TRpar[1]
  scale <- TRpar[2]
  rm <- switch(dist,
               "weib"=  scale**r*gamma((r + shape)/shape),
               "gamma"= scale**r*gamma(r + shape)/gamma(shape)
  )
  return(rm)
}

Try the RSizeBiased package in your browser