시작하기무료로 시작하기

기회비용 무작위화하기

2장 연습 문제 5와 마찬가지로, 귀무가설이 참일 때의 차이 분포를 만들기 위해 데이터를 순열(permutation)합니다.

이 연구에서는 대조군과 실험군 각각의 표본 수가 고정되어 있습니다. 또한 귀무가설이 참이라고 가정하면—즉, 실험이 DVD 구매 결과에 아무 영향도 주지 않았다고 보면—DVD를 살 사람의 수 역시 고정되었다고 볼 수 있습니다. 다시 말해, 어떤 집단에 배정되었든 상관없이 DVD를 살 사람은 97명이었습니다.

새로운 데이터와 이전 장에서 사용한 방법을 이용해, 순열된 데이터에서 계산한 비율 차이의 무작위화 분포를 만들어 보세요.

이 연습은 강의의 일부입니다

R에서의 추론 기초

강의 보기

실습형 인터랙티브 연습

이 예제를 이 샘플 코드를 완성하여 풀어보세요.

# Calculate the observed difference in purchase rate
diff_obs <- opportunity %>%
  # Group by group
  ___(___) %>%
  # Calculate proportion deciding to buy a DVD
  ___(prop_buy = ___(___)) %>%
  # Calculate difference between groups
  ___(stat = ___) %>% 
  pull()
코드 편집 및 실행