1 | nltv(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 <- qnorm(0.5 + gam/2)
den <- gam - 2 * k * dnorm(k)
ltsv <- 1/den
tem <- (1 - exp(-(k^2)/2))^2
ltav <- (2 * pi * gam)/(4 * tem)
return(ltsv, ltav)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.