gamper <-
function(h, k=500)
{
n <- 10000
c <- 5000
gam0 <- min((n - c)/n, (1 - (1 - 0.2^(1/k))^(1/
h))) * 100
print(gam0)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.