Nothing
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)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.