안녕하세요 교수님

교수님께서 올려주신 ROC curve 스크립트 파일을 잘 활용하고 있습니다.

두 집단을 감별 할 수 있는 optimal cutoff value를 세 가지 변수 a, b, c에 대해서 구하고 있습니다.

교수님께서 올려주신 ROC_sub.R의 파일 line 146, 147 에서 고민이 되는 부분이 생겼습니다.

cutoff value가 a, b는 가 정수, c는 소수점 셋째자리 까지 나옵니다.

a, b 도 소수점 셋째자리까지 나오게 할 수 없나요?

a, b가 integer로 되어 있어서 numeric으로 변경도 하였는데 안되서 답답한 마음에 문의를 드립니다.

options=(digits=) 를 해봐도 안먹히더라구요.

OS의 31과 Grade의 1 값이 반올림이 된 것 같은데 스크립트를 어떻게 수정해야 AVQI 처럼 소수점까지 나올지 궁금합니다.

원본 데이타 파일 올려드립니다. 확인 부탁드립니다.

cut=optimal_cutpoint(x)

    if(is.numeric(cut)) cut=round(cut,3)

    temp=round(x$AUC,3)

    if(ncol(x$lr$model)==2){

        ci=pROC::ci(ROC2roc(x))  

        temp=paste(temp,"(",round(ci[1],3),"-",round(ci[3],3),")",sep="")

        result=wilcox.test(x$lr$model[,2],x$lr$model[,1])