R/dpe.R

Defines functions dpe

Documented in dpe

dpe <- function(x, theta, lambda, logged = FALSE) {
  lf <- log( theta ) + log( lambda ) - lambda * x - theta * exp( - lambda * x ) - log( 1 - exp( - theta ) )
  if ( !logged ) {
    lf <- exp( lf ) 
  } # end if
  lf
}

Try the geppe package in your browser

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

geppe documentation built on June 24, 2024, 5:08 p.m.