Rasch 분석 - 12. Rasch score

#데이터 준비 및 전처 library(readxl) library(TAM) # Sheet1에서 응답 데이터 추출 (D열부터 S열까지) data <- read_excel("A_Rasch_x7-2.xlsx", sheet = "Sheet1") items <- data[, 5:20]  # 실제 열 위치 확인 필요 # 100% 정답/오답 문항 제거 problem_items <- which(colMeans(items) %in% c(0,1)) if(length(problem_items) > 0) items <- items[, -problem_items] # 1PL 모델 적합 rasch_model <- tam.mml(items, irtmodel = "1PL") # 모델 요약 확인 summary(rasch_model) # 문항 난이도(beta) 및 표준오차 item_difficulty <- rasch_model$xsi$xsi item_se <- rasch_model$xsi$se.xsi # 결과 테이블 생성 result_table <- data.frame(   문항 = colnames(items),   Rasch_점수 = round(item_difficulty, 3),   표준오차 = round(item_se, 3) ) print(result_table)

 

 

1. 해석 가이드

1. 난이도 범위
   • 일반적으로 -4 ~ +4 로짓 범위
   • 0 로짓: 중간 난이도
   • 양수 값: 어려운 문항
   • 음수 값: 쉬운 문항
2. 표준오차 기준
   • 0.5 미만: 정확한 추정
   • 0.5~1.0: 수용 가능
   • 1.0 초과: 재검토 필요