Nothing
########################################################################
# ETA AUX FUNCTIONS
########################################################################
eta.func <- function(x, y, svydes){
withReplicates(svydes, function(w,data){
mod <- lm(x~factor(y), weights = w)
anova.res <- anova(mod)
SS <- anova.res[,2]
eta2 <- SS[1]/sum(SS)
sqrt(eta2)})}
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.