1 | deltv(gam = 0.5)
|
gam |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (gam = 0.5)
{
k <- -1 * log(1 - gam)
num <- 2 - (2 + 2 * k + k^2) * exp(-k)
den <- (gam - k * exp(-k))^2
ltsv <- num/den
ltav <- 1/gam
return(ltsv, ltav)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.