R/UMPExponential.R

UMPExponential <-
function(theta0, n, alpha){
  t <- qgamma(1-alpha, shape=n,scale=theta0)
  return(t)
}

Try the ACSWR package in your browser

Any scripts or data that you put into this service are public.

ACSWR documentation built on May 2, 2019, 6:53 a.m.