summarise_anova {AgroR}

Utils: Summary of Analysis of Variance and Test of Means

Description

Summarizes the output of the analysis of variance and the multiple comparisons test for completely randomized (DIC), randomized block (DBC) and Latin square (DQL) designs.

Usage

summarise_anova(analysis, inf = "p", design = "DIC", round = 3, divisor = TRUE)

Arguments

analysis

List with the analysis outputs of the DIC, DBC, DQL, FAT2DIC, FAT2DBC, PSUBDIC and PSUBDBC functions

inf

Analysis of variance information (can be "p", "f", "QM" or "SQ")

design

Type of experimental project (DIC, DBC, DQL, FAT2DIC, FAT2DBC, PSUBDIC or PSUBDBC)

round

Number of decimal places

divisor

Add divider between columns

Note

Adding table divider can help to build tables in microsoft word. Copy console output, paste into MS Word, Insert, Table, Convert text to table, Separated text into:, Other: |.

The column names in the final output are imported from the ylab argument within each function.

This function is only for declared qualitative factors. In the case of a quantitative factor and the other qualitative in projects with two factors, this function will not work.

Triple factorials and split-split-plot do not work in this function.

Author(s)

Gabriel Danilo Shimizu

Examples

library(AgroR)

#=====================================
# DIC
#=====================================
data(pomegranate)
attach(pomegranate)
a=DIC(trat, WL, geom = "point", ylab = "WL")
b=DIC(trat, SS, geom = "point", ylab="SS")
c=DIC(trat, AT, geom = "point", ylab = "AT")
summarise_anova(analysis = list(a,b,c), divisor = TRUE)
library(knitr)
kable(summarise_anova(analysis = list(a,b,c), divisor = FALSE))

#=====================================
vari=c("WL","SS","AT")
output=lapply(vari,function(x){
output=DIC(trat,response = unlist(pomegranate[,x]),ylab = parse(text=x))})
summarise_anova(analysis = output, divisor = TRUE)

#=====================================
# DBC
#=====================================
data(soybean)
attach(soybean)
a=DBC(cult,bloc,prod,ylab = "Yield")
summarise_anova(list(a),design = "DBC")

#=====================================
# FAT2DIC
#=====================================
data(corn)
attach(corn)
a=FAT2DIC(A, B, Resp, quali=c(TRUE, TRUE))
summarise_anova(list(a),design="FAT2DIC")