ggaov: Anova F test plot
In gginference: Visualise the Results of Inferential Statistics using 'ggplot2'

Visualise anova F-test to determine whether group means are equal

1 2	ggaov(t, alpha=0.05, colaccept="lightsteelblue1", colreject="grey84", colstat="navyblue")

`t`	an object of class aov
`alpha`	alpha level for finding critical F value
`colaccept`	color for the acceptance region of the test
`colreject`	color for the area of rejection of the test
`colstat`	color of the statistic of the test line

# 21-th day
chick21 <- ChickWeight[ChickWeight$Time == 21,]
chickaov <- aov(weight~Diet, data = chick21)
summary(chickaov)

ggaov(chickaov, colaccept = "grey89", colreject = "black")