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,sep=",")
attach(FinanceCanada)
summary(FinanceCanada)
FinanceCanada$TypeOfIndustry<-as.factor(TypeOfIndustry)
summary(FinanceCanada)
options(repr.plot.width=4, repr.plot.height=4)
plot(FinanceCanada$TypeOfIndustry,FinanceCanada$DPS,ylab="DPS",xlab="TypeOfIndustry")
# fit anova
fit<-lm(DPS~TypeOfIndustry)
anova(fit)