### Load Metab ###
library(Metab)
### Load the inputData ###
data(exampleMetReport)
### Perform t-test ####
tTestResults <- htest(
exampleMetReport,
signif.level = 0.05,
StatTest = "T",
save = FALSE
)
### Show results ###
print(tTestResults)
### Perform ANOVA ####
AnovaResults <- htest(
exampleMetReport,
signif.level = 0.05,
StatTest = "Anova",
save = FALSE
)
### Show results ###
print(AnovaResults)
Run the code above in your browser using DataLab