자격증

[Adp 실기 기출 풀이] 25회 5번 공장 순위 문제

돌돌55 2023. 3. 2. 23:34

문제는 멋쟁이천재사자님의 내용을 참고하였습니다.

https://it-freelancer.tistory.com/65

 

[Adp 실기 기출 풀이] 25회 5번 공장 순위 문제

웹에 공유된 정보를 활용하여 문제를 만들어 풀어 보았습니다. 올바른 답인지도 불확실하며, 문제가 올바른지도 불확실합니다. 참고한 자료 link https://lovelydiary.tistory.com/381 https://blog.naver.com/sbp36

it-freelancer.tistory.com

 

문제

aa 에 x y z 3개의 공장(group칼럼)에서 생산된 총 32개 제품 무게의 순위정보(rank 칼럼)가 있다.

공장별로 생산되는 제품 무게에 차이가 있는지 검증하라. 

 

5-1. 연구가설과 귀무가설을 설정하시오

- 귀무가설 : 공장별로 생산되는 제품 무게에 차이가 없다.

- 연구가설 : 공장별로 생산되는 제품 무게에 차이가 있다.

 

5-2. 검정통계량을 구하고 가설을 채택하시오

 

문제 특징 : 순위 정보만 있음. 

 

kruskal .test 로 풀이

 

sample data로는 다음과 같이 되어있었음..

x <- c(2.9, 3.0, 2.5, 2.6, 3.2) # normal subjects
y <- c(3.8, 2.7, 4.0, 2.4)      # with obstructive airway disease
z <- c(2.8, 3.4, 3.7, 2.2, 2.0) # with asbestosis
kruskal.test(list(x, y, z))

 

 

wilcox test도 연관이 있는거 같은데 아래 고수께서 친절하게 작성을 해주셨는데 

 

kruscal은 모든 관측치가 독립, 반복되는 관측치는 관련이 있음

 

wilcox는 관측치가 pair 되었을때 유효하다라고 이해했다.

 

https://stats.stackexchange.com/questions/302464/wilcoxon-signed-rank-vs-kruskal-wallis

 

 

Wilcoxon-signed rank vs Kruskal-Wallis?

I am rather stressed out about my methodology. For my PhD I ran a year long literacy intervention (small scale longitudinal study) that was supposed to test the rate of change in individual students'

stats.stackexchange.com

 

아무튼 wilcox.test 코드도 한번 봐두자(sample)

ranks <- c(1:20)
groupA <- factor(rep("A", 10))
groupB <- factor(rep("B", 10))

data <- data.frame(ranks, group = c(groupA, groupB))

wilcox.test(ranks ~ group, data = data)