-
Notifications
You must be signed in to change notification settings - Fork 5
/
Loggamma.R
27 lines (21 loc) · 1.15 KB
/
Loggamma.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
### ===== actuar: An R Package for Actuarial Science =====
###
### Definition of the {d,p,q,r}lgamma functions to compute
### characteristics of the Loggamma distribution. The version used in
### these functions has cumulative distribution function
###
### Pr[X <= x] = pgamma(log(x), shape = shapelog, rate = ratelog).
###
### AUTHORS: Mathieu Pigeon, Vincent Goulet <[email protected]>
dlgamma <- function(x, shapelog, ratelog, log = FALSE)
.External("do_dpq", "dlgamma", x, shapelog, ratelog, log)
plgamma <- function(q, shapelog, ratelog, lower.tail = TRUE, log.p = FALSE)
.External("do_dpq", "plgamma", q, shapelog, ratelog, lower.tail, log.p)
qlgamma <- function(p, shapelog, ratelog, lower.tail = TRUE, log.p = FALSE)
.External("do_dpq", "qlgamma", p, shapelog, ratelog, lower.tail, log.p)
rlgamma <- function(n, shapelog, ratelog)
.External("do_random", "rlgamma", n, shapelog, ratelog)
mlgamma <- function(order, shapelog, ratelog)
.External("do_dpq", "mlgamma", order, shapelog, ratelog, FALSE)
levlgamma <- function(limit, shapelog, ratelog, order = 1)
.External("do_dpq", "levlgamma", limit, shapelog, ratelog, order, FALSE)