Nothing
camelback <- function(x){
x1 <- x[1]*6-3
x2 <- x[2]*4-2
(4-2.1*x1^2+(x1^4)/3)*x1^2+x1*x2+(-4+4*x2^2)*x2^2
}
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.