R/calc_sums_squares.R

In Lucy-333/sprtt: Sequential Probability Ratio Tests Toolbox

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)
}