R/final_modeling.R

In fdrennan/test: What the Package Does (One Line, Title Case)

#' final_modeling
#' @export
final_modeling <- function(ready_final_model, toi) {
  var <- ready_final_model$var
  power <- ready_final_model$box_cox
  transformed_data <- ready_final_model$transformed_data

  transformed_data <-
    variance_check(transformed_data, variable = var)

  best_model <- cor_select(transformed_data, variable = var)
  time_order <- unique(transformed_data$Time)
  final_model <- final_model(
    transformed_data = transformed_data,
    best = best_model, variable = var
  )
  # toi <- "Week6" # Need to add a column in the app to save timeSelection
  contrast_list <- generate_contrasts(
    toi = toi,
    data = transformed_data,
    time_order = time_order
  )

  contrasts_stats <- contrast_padjust(
    model = final_model,
    contrast_list = contrast_list,
    data = transformed_data,
    variable = var
  )

  output_tables <- final_output(
    transformed_data = transformed_data,
    toi = toi,
    emmeans_obj = contrasts_stats$emmeans_obj,
    final_contrast = contrasts_stats$final_contrast,
    power = power,
    variable = var
  )
  return(output_tables)
}