demo/ex10.02.R

str(ex10.02)

ex10.02 %>%
  group_by(Tech) %>% 
  summarize(n = length(X),
            Mean = mean(X),
            Variance = var(X))

fm1 <- aov(X ~ Tech, data = ex10.02)
summary(fm1)

fm2 <- aov(X ~ 1 + Error(Tech), data = ex10.02)
summary(fm2)
kmiddleton/Zar5 documentation built on May 20, 2019, 12:50 p.m.