In matt92253/Sta486Project1mtf83:

library( Sta486Project1mtf83)
library( tidyverse)
library( knitr)
library( kableExtra)

ggplot( mathData, aes( x = Walc, y = G3 )) +
  geom_boxplot() +
  labs( title = "Effect of Weekend Alcohol Consumption on Final Grade",
        subtitle = "Survey results of weekend alcohol consumption are from 1 - very low to 5 - very high") +
  xlab("Weekend Alcohol Consumption")+
  ylab("Final Grade")
kable( anova(lm( G3 ~ Walc, mathData)),
       caption = "1-Way ANOVA Results(Final Grade ~ Weekend Alcohol Consumption)")%>%
  footnote(general = "", general_title = "")

\newpage

ggplot( porData, aes( x = nursery, y = G3 )) +
  geom_boxplot() +
  labs( title = "Effect of Having Attended Nursery School on Final Grade",
        caption = "abc") +
  xlab("Nursery School")+
  ylab("Final Grade") 
kable( anova(lm( G3 ~ nursery, porData)))

\newpage

ggplot( porData, aes( x = school, y = G3 ))  +
  geom_boxplot() +
  labs( title = "Effect of Attended Different Schools on Final Grade",
        caption = "abc") +
  xlab("School")+
  ylab("Final Grade") 
kable( anova(lm( G3 ~ school, porData)))

\newpage

ggplot( porData, aes( x = schoolsup, y = G3 ))  +
  geom_boxplot() +
  labs( title = "Effect of Having Extra Educational Support on Final Grade") +
  xlab("Extra Educational Support")+
  ylab("Final Grade") 
kable( anova(lm( G3 ~ schoolsup, porData)))

\newpage

ggplot( porData, aes( x = nursery, y = G3 ))  +
  geom_boxplot() +
  labs( title = "Effect of Having Attended Nursery School on Final Grade",
        caption = "abc") +
  xlab("Nursery School")+
  ylab("Final Grade") 
kable( anova(lm( G3 ~ nursery, porData)))

matt92253/Sta486Project1mtf83 documentation built on April 29, 2022, 4:45 a.m.