Nothing
formulaAm <- function(X,Y){
X <- data.frame(X)
p <- dim(X)[2]
Y <- data.frame(Y)
F <- paste(names(Y),"~s(",names(X)[1],")",sep="")
if (p>1){
for (i in 2:p){
F <- paste(F,"+s(",names(X)[i],")",sep="")
}
}
return(as.formula(F))
}
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.