빅분기 실기문제 검정 및 조언 요청
교수님, 아래의 문제를 해결해 보았는데 정상적으로 했는지 알 수 없어 확인 및 조언을 부탁드립니다.
제가 해결한 수준은 아래와 같습니다.
df<-read.csv('https://raw.githubusercontent.com/Datamanim/datarepo/main/smoke/train.csv')
library(dplyr)
glimpse(df)
colSums(is.na(df))
문제는
# 40대(연령대코드 40,45) 여성 중 '총콜레스테롤'값이 40대 여성의 '총콜레스테롤'
# 중간값 이상을 가지는 그룹과
# 50대(연령대코드 50,55) 여성 중 '총콜레스테롤'값이 50대 여성의 '총콜레스테롤'
# 중간값 이상을 가지는 두 그룹의 '수축기혈압'이 독립성,정규성,등분산성이
# 만족하는것을 확인했다.
# 두 그룹의 '수축기혈압'의 독립표본 t 검증 결과를 통계값과 p-value를 구하시오
df%>%filter(성별코드=='F'&연령대코드.5세단위.==40)%>%
summarize(총콜=median(총콜레스테롤)) # 190
df%>%filter(성별코드=='F' & 연령대코드.5세단위.==40|연령대코드.5세단위.==45)%>%
filter(총콜레스테롤>=190)%>%select(수축기혈압)->df1
head(df1)
df%>%filter(성별코드=='F'&연령대코드.5세단위.==50)%>%
summarize(총콜=median(총콜레스테롤)) # 209
df%>%filter(성별코드=='F'&연령대코드.5세단위.==50|연령대코드.5세단위.==55)%>%
filter(총콜레스테롤>=209)%>%select(수축기혈압)->df2
head(df2)
t.test(df1, df2, var.equal=T, alt='two.sided', conf.level=0.95)
# t_value = -9.5525
# p_value = 0.00000000000000022
댓글
안녕하세요 답변드립니다.
계산식은 맞아요. 하지만 귀무가설 대립가설 양측검정이란 단서를 찾을수가 없네요 꼭 확인하세요
댓글을 남기려면 로그인하세요.