# NOT RUN {
boxplot(salary ~ university, data = Board, col = c("red", "blue", "green"),
ylab = "Income")
tapply(Board$salary, Board$university, summary)
anova(lm(salary ~ university, data = Board))
# }
# NOT RUN {
library(dplyr)
dplyr::group_by(Board, university) %>%
summarize(Average = mean(salary))
# }
Run the code above in your browser using DataLab