# NOT RUN {
sk <- sk_esd(example)
sk$original # Original Groups
sk$groups # Corrected Groups with effect size wise
sk$reverse # Reversed Groups
# For a long-format data frame
long <- melt(example, id.vars=0)
data <- long2wide(long)
sk <- sk_esd(data)
# }
Run the code above in your browser using DataLab