library("prolfquapp")
csv <- system.file("application/contrasts/scenario2_two_factor.csv",
package = "prolfquapp")
result <- run_contrasts_twofactor(csv, f1 = "treatment", f2 = "time")
unique(result[!is.na(result$ContrastName), c("ContrastName", "Contrast")])# A tibble: 4 × 2
ContrastName Contrast
<chr> <chr>
1 MINOCA_vs_MI (G_MINOCA_T0 + G_MINOCA_T150)/2 - (G_M…
2 MINOCA_vs_MI_at_T0 G_MINOCA_T0 - G_MI_T0
3 MINOCA_vs_MI_at_T150 G_MINOCA_T150 - G_MI_T150
4 interaction_MINOCA_vs_MI_at_T150_vs_T0 (G_MINOCA_T150 - G_MI_T150) - (G_MINOC…