# NOT RUN {
# load data
data("Eredivisie")
# log-transform market values
Eredivisie$logMarketValue <- log(Eredivisie$MarketValue)
# aggregate log market values by position
means <- aggregate(Eredivisie[, "logMarketValue", drop = FALSE],
Eredivisie[, "Position", drop = FALSE],
FUN = mean)
# create profile plot
line_plot(means, "logMarketValue", "Position")
# easier and fancier as the plot method of ANOVA results
oneway <- ANOVA(Eredivisie, "logMarketValue",
group = "Position")
plot(oneway)
# }
Run the code above in your browser using DataLab