Nothing
LSfunctional <- function(f1, g1, w1, f2, g2, w2){
res <- sum(w1 * (f1 - g1) ^ 2) + sum(w2 * (f2 - g2) ^ 2)
return(res)
}
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.