Nothing
"simpExp" <-
function (sumT, par, t, tc)
{
sumexp <- exp(-par[2] * (t - tc))
suma <- 1
if (length(par) > 2) {
for(i in seq(3, length(par), by = 2)){
sumexp <- sumexp + (par[i] * exp(-par[i+1] * (t - tc)))
suma <- suma + par[i]
}
}
resT <- sumT + (par[1] * (sumexp/suma))
resT
}
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.