[causal] A/B 테스트 실습

dat <- read.csv('abtest.csv', header = T)
table(dat)
chisq.test(dat$ad_type, dat$buyornot, simulate.p.value = T)