Nothing
model.update <- function(gam.object,form){
if(gam.object$family$family=="multinom"){stop("Please update multinomial models manually.\n")}else{
return(update(gam.object,form,data=gam.object$data,family=gam.object$family$family))}
}
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.