Nothing
hcsrt <- function (M){
RES2 <- residuals(M)^2
FITTED <- fitted.values(M)
M.hcsrt <- lm(RES2 ~ FITTED)
RESULT <- anova(M.hcsrt)
RESULT
}
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.