library(readxl)library(TAM)# 엑셀 파일 불러오기data (내 파일 경로)", sheet = "Sheet1")# 문항 데이터 추출 (D~S열: 5~20열)items # 100% 정답/오답 문항 제거problem_items if(length(problem_items) > 0) items # 1PL 모델 적합rasch_model # 시뮬레이션 없는 빠른 계산 (msq.itemfit 사용)fit_stats item_fit # 결과 테이블 생성result_table 문항 = colnames(items), Outfit_MNSQ = round(item_fit$Outfit, 3), Infit_MNSQ = round(item_fit$Infit, 3))# 콘솔 출력print(result_ta..