Nothing
func.output.linearFormula <-
function( output ){
if( is.null(output$writeTarget) )
return()
coeffLast <- "z*Xn"
if(names(output$coefficients)[1] == "(Intercept)")
coeffLast <- "const"
writeLines( paste("General Equation: Y = a*X1 + b*X2 + ... + ", coeffLast) , con = output$writeTarget )
}
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.