install.packages("MASS")
library(MASS)
data(Aids2) # 1991.1.1 이전 에이즈 환자 대상 데이터
str(Aids2)
head(Aids2)
summary(Aids2)
Aids2[which(Aids2$age == 0),] # which : 몇 행에 있는지 보여줌 iloc 처럼 행 열 모두 작성해야 하기에 , 씀
Alive <- Aids2[which(Aids2$status == "A"),]
Dead <- Aids2[which(Aids2$status == "D"),]
aggregate(Alive$age, by=list(Alive$sex), median) # aggregate : 집계함수, by : 기준 / 성별 기준으로 나이의 중앙값을 구함
aggregate(Dead$age, by = list(Dead$sex), median)
aggregate(Aids2$age, by = list(Aids2$sex, Aids2$status), mean)
계리사 준비로 바쁘지만 한 강의만 듣더라도 꾸준히 해야겠다.
Aids 데이터 분석 실습을 시작하니 뭔가 본격적으로 R을 배우는 느낌이다.