R/laplace.R

Defines functions laplace

laplace <- function(dist, g, k){
if(dist=="gamma")  (1+g/k)^(-k)
else if(dist=="positives") exp(-g^k)
else if(dist=="powerseries") 1-(1-exp(-g))^k
else if(dist=="logarithmic") -log(exp(-g)*(exp(-k)-1)+1)/k
else if(dist=="lognormal") gh(g, 0, k)
else stop("Unrecognized frailty distribution")
}

Try the FamEvent package in your browser

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

FamEvent documentation built on Nov. 17, 2022, 5:06 p.m.