Nothing
calc_ss_residual <- function(seq_anova_arguments) {
sum((seq_anova_arguments@data$y - seq_anova_arguments@data$group_mean_A)^2)
}
calc_ss_effect <- function(seq_anova_arguments) {
# n_group <- dplyr::count(seq_anova_arguments@data, .data$factor_A)$n[1]
n_group <- table(seq_anova_arguments@data$factor_A)
grand_mean_factor_A <- mean(seq_anova_arguments@data$y)
group_mean_A <- unique(seq_anova_arguments@data$group_mean_A)
sum(n_group * (group_mean_A - grand_mean_factor_A)^2)
}
calc_ss_total <- function(seq_anova_arguments) {
grand_mean_factor_A <- mean(seq_anova_arguments@data$y)
sum((seq_anova_arguments@data$y - grand_mean_factor_A)^2)
}
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.