R Notebook

This is an R Markdown Notebook that shows the analysis for this homework.

Plots

ggplot(data = t) +
  geom_smooth(mapping = aes(x = actual_yearly_income, y = monthly_payment,
                            color = CONTROL))

ggplot(data = t) +
  geom_histogram(mapping = aes(x = actual_yearly_income))

ggplot(data = t) +
  geom_density(mapping = aes(x = actual_yearly_income, color = CONTROL))

ggplot(data = t) +
  geom_boxplot(mapping = aes(x = actual_yearly_income, y = CONTROL))