set.seed(1001)
library(granovaGG)
data(arousal)

# Red boxes for F < 1
granovagg.1w(rnorm(100,10,2),rep(1:4,ea=25), main = "Random Data with F < 1")

# Blue boxes for F > 1
granovagg.1w(chickwts$weight, group = chickwts$feed, main = "Chickwts Data with F > 1")