R/LaguerreHalf.R

"LaguerreHalf" <- function(x) {
   a <- x/2; I0 <- besselI(-a, nu=0); I1 <- besselI(-a, nu=1)
   return(exp(x/2)*((1-x)*I0 - x*I1))
}
wasquith/lmomco documentation built on April 20, 2024, 7:20 p.m.