R/ExponentialSupp.R

In actuar: Actuarial Functions and Heavy Tailed Distributions

### actuar: Actuarial Functions and Heavy Tailed Distributions
###
### Definition of the {m,lev,mgf}exp functions to compute raw and
### limited moments, and the moment generating function for the
### Exponential distribution (as defined in R).
###
### See Chapter 18 of Johnson & Kotz, Continuous univariate
### distributions, volume 1, Wiley, 1970
###
### AUTHORS: Mathieu Pigeon, Christophe Dutang,
### Vincent Goulet <vincent.goulet@act.ulaval.ca>

mexp <- function(order, rate = 1)
    .External(C_actuar_do_dpq, "mexp", order, 1/rate, FALSE)

levexp <- function(limit, rate = 1, order = 1)
    .External(C_actuar_do_dpq, "levexp", limit, 1/rate, order, FALSE)

mgfexp <- function(t, rate = 1, log = FALSE)
    .External(C_actuar_do_dpq, "mgfexp", t, 1/rate, log)