패각 무게 범주별 나이 범주
이전에 2장에서 전복 나이를 10.5년 미만은 "< 10.5", 10.5년 이상은 "10.5 and older"로 구분한 agecat을 만들었죠. 이번에는 전복의 패각 무게를 0.235g 이하와 0.235g 초과 두 범주로도 나눠 보겠습니다.
agecat이 포함된 abaloneKeep 데이터셋과 dplyr 패키지가 미리 로드되어 있습니다.
이 연습은 강의의 일부입니다
SAS 사용자를 위한 R
연습 안내
ifelse()함수를 사용해 패각 무게를 0.235g 기준으로 두 범주로 나눈shellcat을abaloneKeep에 추가하세요. 라벨은"<= 0.235g"와"> 0.235g"로 지정합니다.agecat과shellcat의 적합성 검정을 위해 분할표tableageshell을 만들고chisq.test()를 실행하세요.tableageshell에 대해chisq.test()를 수행합니다.agecat과shellcat의 모자이크 플롯을 만드세요. 색상은"light blue"와"grey"를 사용하고, 제목은"Mosaicplot of age by shell categories"로 설정하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Add shellcat to abaloneKeep
___ <- ___ %>%
mutate(shellcat = ifelse(___, ___, ___))
# Run chisq.test of agecat by shellcat
tableageshell <- ___ %>%
with(___)
chisq.test(___)
# Make mosaicplot of agecat by shellcat
mosaicplot(___ ~ ___, data = ___,
color = c(___, ___),
main = ___)