Nothing
gompertz <-
function (time, A,mu,lambda, addpar=NULL)
{
A <- A[1]
mu <- mu[1]
lambda <- lambda[1]
if (is.numeric(time)==FALSE) stop("Need numeric vector for: time")
if (is.numeric(mu)==FALSE) stop("Need numeric vector for: mu")
if (is.numeric(lambda)==FALSE) stop("Need numeric vector for: lambda")
if (is.numeric(A)==FALSE) stop("Need numeric vector for: A")
e <- exp(1)
y <- A*exp(-exp(mu*e*(lambda-time)/A +1.0))
gompertz <- y
}
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.