# \donttest{
#' set.seed(123)
# Toy within-subject style data
main_df <- data.frame(
Participant = factor(rep(1:20, each = 3)),
CondID = factor(rep(c("A", "B", "C"), times = 20)),
tlx_mental = rnorm(60, mean = 50, sd = 10)
)
# Custom x-axis labels
labels_xlab <- c("Condition A", "Condition B", "Condition C")
ggwithinstatsWithPriorNormalityCheck(
data = main_df,
x = "CondID", y = "tlx_mental",
ylab = "Mental Demand",
xlabels = labels_xlab,
showPairwiseComp = TRUE
)
# }
Run the code above in your browser using DataLab