Nothing
get.f<-function(fit){
fit$t <- fit$coef / fit$stdev.unscaled / fit$sigma
F.stat <- classifyTestsF(fit, fstat.only = TRUE, df=fit$df.residual)
fit$F <- as.vector(F.stat)
fit
}
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.