Nothing
#' @export
P3 <- function(a, X) {
# a simple exponential decay
x <- .GlobalEnv$x
y <- .GlobalEnv$y # explicitly locating the values
if (missing(X)) {
if (length(a) == 1) {
list(Pn = 3, Mod = "P3")
} else {
sum((y - (a[1] + a[2] * exp(-x / a[3]))) ^ 2)
}
} else {
a[1] + a[2] * exp(-X / a[3])
}
}
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.