내가 보고 싶은 건 A집단과 B집단이 있고 각각 a1, b1, b2를 뽑았을 때
1. a1이 b1보다 작은 정도

2. b2가 b1보다 작은 정도


1번이 2번보다 큰 경우가 유의하게 많은지 알아보려고 했거든

여기서 조언을 얻어서 R로 분석해봤는데


a_vec <- rnorm(10000, 70, 60)

b_vec <- rnorm(10000, 85, 25)

b_vec1 <- rnorm(10000, 85, 25)


A <- ifelse(b_vec > a_vec, b_vec - a_vec, NA)

B <- ifelse(b_vec > b_vec1, b_vec - b_vec1, NA)


observed <- table(A > B)

expected <- c(0.5, 0.5)

chisq.test(x = observed, p = expected)

요렇게 분석해서 나름 결과는 나왔거든? 내가 원하는 걸 제대로 분석한게 맞나?