Nothing
"confi.fun" <-
function(abw,kap.mei,method)
{
# Using the already calculated derivation this function calculates
# the upper and lower boundary of a confidence band by substracting
# resp. adding the derivation "abw".
if(method=="linear")
{
lower <- kap.mei-abw
upper <- kap.mei+abw
}
if(method=="log")
{
lower <- kap.mei^(1/abw)
upper <- kap.mei^abw
}
return(list(lower=lower, upper=upper))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.