R/LN1010.R

# QML
# 
LN1010 <- function (a,b,n,m=n-1,d=1/n,mean.rn,sd.rn) {
id <- 1010
#
psi = 1
#
result <- exp(a*mean.rn + b*psi*sd.rn^2/2)
#
return (result)
}

Try the fuel package in your browser

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

fuel documentation built on July 2, 2020, 12:23 a.m.