1 | cltv(gam = 0.5)
|
gam |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ##---- 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 <- tan((pi * gam)/2)
num <- 2 * k - pi * gam
den <- pi * (gam - (2 * k)/(pi * (1 + k^2)))^2
ltsv <- num/den
num <- gam
den <- 4 * (1/pi - 1/(pi * (1 + k^2)))^2
ltav <- num/den
return(ltsv, ltav)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.