R Notebook

  #성적표
  #상위 20% 커트라인
  student = c('길동','유신','심청','감찬','성계')
  # 길동
  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)
  # 확률면적 
  x <-  qnorm(
    (1 - 0.2), # 상위 20%지점 점수
    mean = 68.4, # 구하고자 하는 과목의 평균값
    sd = 4.9 # 해당과목의 표준편차
  )
  x # [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),
    stringAsFactor=F 
  )
  View(var.score)
  
  
  # 상위 20% 점수를 구해서 컬럼추가 
  var.score[,'상위20'] <- round(qnorm(
    (1 - 0.2), 
    mean = var.score$과목별평균, 
    sd = var.score$표준편차
  ),2)
  
  # 상위 20% 패스여부 판단
  var.score[var.score$점수 < var.score$상위20, 
            '패스'] = "실패"
  var.score[var.score$점수 >= var.score$상위20, 
            '패스']="성공"
  
  var.score <- subset(var.score, select = -c(stringAsFactor))
  View(var.score)
  # 유신의 성적표

  yusin.score <- data.frame(
    과목 = subject <-  c('kor','eng','math','sci','soc'),
    점수 = score <- round(runif(5,40,100),0),
    과목별평균 = 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),
    stringAsFactor=F 
  )
 
  # 상위 20% 점수를 구해서 컬럼추가 
  yusin.score[,'상위20'] <- round(qnorm(
    (1 - 0.2), 
    mean = yusin.score$과목별평균, 
    sd = yusin.score$표준편차
  ),2)
  
  # 상위 20% 패스여부 판단
  yusin.score[yusin.score$점수 < yusin.score$상위20, 
            '패스'] = "실패"
  yusin.score[yusin.score$점수 >= yusin.score$상위20, 
            '패스']="성공"
  
  yusin.score <- subset(yusin.score, select = -c(stringAsFactor))
View(yusin.score)