R Notebook

정규분포

qnorm()

qnorm(
  (1 - 0.2),# 확률면적, 상위 20%지점 점수 
  mean = 68.4, #구하고자 하는 과목의 평균값
  sd = 4.9 # 해당과목의 표준편차 
)

## [1] 72.52394

#[1] 72.52394 

과목점수 데이터 생성

var.score <- data.frame(
  subject <- c('kor','eng','math','sci','soc'),
  score <- c(75,80,92,77,90),
  subject_mean <- c(68.4,75.1,63.5,76.2,80.3), #과목별 평균
  subject_sd <- c(4.9,11.2,9.8,5.2,8.5), #과목별 표준편차
  stringsAsFactors = F #과목명이 Factor로 바뀌는 것을 막음
)
var.score

상위 20%에 해당하는 점수 구하기

var.score[,"upper_20"] <- qnorm(
(1-0.2),
mean = var.score$subject_mean,
sd = var.score$subject_sd
)
var.score

상위20%이내 여부 체크

var.score[,"check_upper_20"]  = "FAIL"          # defult값을 설정하고 
var.score[var.score$score > var.score$upper_20, # 이후에 추가 조건을 설정
          "check_upper_20"] = "SUCCESS"  
#[앞의 조건을 만족한다면, 이 열에 해당하는 값을 변경하라]

nrow(var.score[var.score$check_upper_20 == "SUCCESS",]) ## 최종합격 과목수 확인

## [1] 3