{
#' Data loading from 'agricolae' package
data("cotton", package = "agricolae")
#' ANOVA report with default settings
anova_results <- anova_report(
data = cotton,
treatment_col = 3,
value_col = 5
)
## Here returns NULL because no significance among groups
## To conduct prior comparisons
anova_results <- anova_report(
data = cotton,
treatment_col = 3,
value_col = 5,
prior = TRUE
)
## Here found no difference among groups, thus change to a more sensitive method
## (maybe illegal, but only as an example)
anova_results <- anova_report(
data = cotton,
treatment_col = 3,
value_col = 5,
prior = TRUE,
comparison_method = "LSD"
)
#' Data loading 'iris' dataset
data("iris")
#' ANOVA report for 'iris' dataset
anova_results <- anova_report(
data = iris,
treatment_col = 5,
value_col = 2
)
### Extract return
### Basic data description
print(anova_results$basicdata)
### ANOVA model
print(anova_results$anova_model)
### Summary of ANOVA model
print(anova_results$anova_summary)
### Model of multiple comparison
print(anova_results$multiple_comparison_model)
### Difference of multiple comparison
print(anova_results$comparison_results)
### Letters of multiple comparison, which could be used for visualization
print(anova_results$comparison_letters)
}
Run the code above in your browser using DataLab