• 가설설정: cut이 Ideal인 경우와 Premium인 경우에 가격의 모평균에 유의미한 차이가 있다.

1. 기초통계량을 관찰하고 표로 그려서 제시
2. 기초통계량을 이용하여 계산으로 가설을 검정
3. R 코드를 이용하여 가설을 검정
4. 가설과 연관된 그래프를 그린다

tbl <- diamonds %>% filter(cut %in% c("Ideal", "Premium")) %>%
  select(cut, price) %>% group_by(cut) %>%
  summarise(n = n(), sample_mean = mean(price), sample_sd = sd(price))
tbl %>% datatable()

## `geom_smooth()` using formula 'y ~ x'