[빅분기] goorm 체험하기 제3유형 문제&풀이(R)-고혈압 데이터셋

주어진 데이터셋에는 고혈압 환자 120명의 치료 전후의 혈압이 저장되어 있다.
...
치료 후의 혈압이 감소했는지 쌍체표본 t-검정(paired t-test)를 통해 답하고자 한다.
① (치료 후 혈압-치료 전 혈압)의 평균(반올림하여 소수 둘째자리까지 계산)
② 위의 가설을 검정하기 위한 검정통계량(반올림하여 소수 넷째자리까지 계산)
③ 위의 통계량에 대한 p-값(반올림하여 소수 넷째자리까지 계산)
④ 유의수준 0.05 하에서 가설검정의 결과를 (채택/기각) 중 하나를 선택

* csv파일이 없어 Rstudio환경에서 실행 불가.

* 구름 체험하기 환경에서 실행 가능

https://dataq.goorm.io/exam/116674/%EC%B2%B4%ED%97%98%ED%95%98%EA%B8%B0/quiz/3

a <- read.csv("data/blood_pressure.csv", header=TRUE)

r <- t.test(a$bp_after, a$bp_before, alternative="less", paired=TRUE)
# dim(a)
# print(str(r))


# 1. 표본평균
print(round(as.numeric(r$estimate), 2))

# 2. 검정통계량 t
print(round(as.numeric(r$statistic), 4))

# 3. p.value
options(scipen=10)
p <- round(as.numeric(r$p.value), 4)
print(p)

# 4. 채택/기각
# p-value가 0.05보다 작으므로 귀무가설을 기각한다.
print(paste("p-value:",p," 이므로 귀무가설을 기각한다."))

 

다른 좋은 방법도 많겠지만 나는 이 방법으로 풀었다.

다양한 풀이 공유 차원에서 올려본다.

 

 

 

[IT/자격증] - [빅분기]빅데이터 분석기사 6회 실기 후기(R/전공자/직장인/수험서/공부기간/후기/논란)

[빅분기]빅데이터 분석기사 6회 실기 후기(R/전공자/직장인/수험서/공부기간/후기/논란)

[IT/자격증] - [빅분기]빅데이터 분석 기사 6회 실기 합격 후기

[빅분기]빅데이터 분석 기사 6회 실기 합격 후기