Rasch 분석 - 10. Person reliability

library(TAM) library(readxl) # Sheet1 데이터 로드 data <- read_excel("C:/Users/Users/Desktop/....(내 파일 경로)", sheet="Sheet1") items <- data[,5:20]  # D~S열 선택 (문항 응답 데이터) # Rasch 모델 적 rasch_model <- tam.mml(items, irtmodel="1PL") # WLE 능력치 추정 wle_estimates <- tam.wle(rasch_model) # Person reliability 계산 person_reliability <- WLErel(   theta = wle_estimates$theta,   error = wle_estimates$error ) # 결과해석 cat("Person Reliability:", round(person_reliability, 3))

 

1. 계산 공식

중요 출력값

• wle_estimates$theta: 응답자 능력치 (θ)
• wle_estimates$error: 측정 표준오차 (SE)
• WLErel(): 신뢰도 자동 계산 함수

 

2. 해석 가이드

값 범위	해석
0.9 이상	우수한 측정 신뢰도
0.7~0.89	수용 가능한 신뢰도
0.7 미만	측정 도구 개선 필요