John is looking to invest in the Canadian Stock Market. In particular, John wants to maximize his received cash flows, so he would like to invest in companies that have a high dividend per share ratio. Load the FinanceCanada.csv dataset. This contains randomly chosen Canadian companies sorted into seven industry groups (1=real estate, 2=financial, etc), along with a variety of financial metrics. To direct his investing, John would like to test whether certain types of industries have on average a higher dividend per share ratio. b) Run a one-way ANOVA at š¯›¼ = 0.05. Print out the ANOVA table, make a decision, and interpret your result. (HINT: we want to use TypeOfIndustry as a factor, but since the values are numeric (1 through 7) we must use the command as.factor(TypeOfIndustry) to treat it as a grouping variable)
FinanceCanada <- read.csv(file = "FinanceCanada.csv", header = TRUE) attach(FinanceCanada) FinanceCanada$TypeOfIndustry <- as.factor(FinanceCanada$TypeOfIndustry) library(car) DPS.aov <- aov(DPS ~ TypeOfIndustry, data = FinanceCanada) summary(DPS.aov) plot(DPS.aov)