# NOT RUN {
library(ScottKnottESD)
# Example dataset
example
# Convert data from long format to wide format
long <- melt(example, id.vars=0)
wide <- long2wide(long) # A wide-format data frame
# Check basic ANOVA assumptions
check.ANOVA.assumptions(example)
sk <- sk_esd(example)
sk$original # Original Groups
sk$groups # Corrected Groups with effect size wise
sk$reverse # Reversed Groups
# }
Run the code above in your browser using DataLab