## Exercise 1: Change the author to your name, knit, commit, and push

library(tidyverse)
library(MASS)

## Exercise 2: Using the data frame below, $$\pi_k$$, $$\mu_k$$ and $$\sigma_k$$ for the two groups.

df <- data.frame(
x = c(2.5, 1.9, 2.0, 3.0, 2.6, 3.0, 4.9, 2.8, 5.4, 4.2),
y = c(1, 1, 1, 1, 1, 2, 2, 2, 2, 2)
)