R/besselRatio.R

Defines functions besselRatio

Documented in besselRatio

besselRatio <- function(x, nu, orderDiff, useExpScaled = 700) {
  if (x > useExpScaled) {
    besselK(x, nu + orderDiff, expon.scaled = TRUE) /
    besselK(x, nu, expon.scaled = TRUE)
  } else {
    besselK(x, nu + orderDiff) / besselK(x, nu)
  }
}

Try the DistributionUtils package in your browser

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

DistributionUtils documentation built on May 2, 2019, 4:46 p.m.