R/cdfrevgum.R

"cdfrevgum" <-
function(x,para) {
   if(! are.parrevgum.valid(para)) return()
   U <- para$para[1]
   A <- para$para[2]

   Y <- (x-U)/A
   f <- (1 - exp(-exp(Y)))
   names(f) <- NULL
   return(f)
}

Try the lmomco package in your browser

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

lmomco documentation built on Aug. 30, 2023, 5:10 p.m.