R에서 중첩 된 if와 함께 일련의 기준을 평가하는 것이 더 좋은 방법일까요?

Question

많은 연구가 결핵 진단 테스트를 중심으로 진행됩니다. 예상대로 테스트 결과를 신속하게 평가하고 검증 할 수 있으면 편리합니다. 나는 그 일을하는 함수를 작성했다. here (명료성을 위해 아래로 내려 간다.) 간단히 말해서, 그것은 테스트의 숫자 결과를 취하고 제조업체 지정 해석을 생성합니다.

이 함수는 잘 작동합니다. 수천 개의 테스트에 대해 유효성을 검사했으며, 내가 던지는 모든 것에 대해 충분히 빠릅니다. 나는 그러나, 넓은 사용을위한 패키지로 유사한 기능의 몇 가지를 번들하고 싶습니다, 그리고 내가 그렇게하기 전에 일부 피드백을 얻을 싶습니다

1. 기능이에 따라 달라집니다 중첩 된 if-else 함수를 감싸는 루프에 아주 좋습니다. 그것은 특히 우아하지 않고 두려움은 의심 할 여지없이 일부 (에헴)와 내 신뢰성을 손상하지만, 그것은 작동합니다. 이것에 대한 더 나은 접근법이 있습니까? 그렇다면, 작동하는 코드 다시 작성을 보증하는 것이 충분합니까?

2. 위 기능의 기준은 북미 지역의 테스트를 해석하기위한 것입니다. 나머지 세계는 약간 다른 표준을 따릅니다. 나는 그것들을 사용할 수있게하고 싶습니다. 나는 각각에 대해 별도의 수출되지 않은 기능을 고려하고있다. 위의 요지에서 제외 된 다양한 데이터 검사는 main 함수에 계속 살며 지정된 함수를 호출합니다. 그게 합리적이라고 생각하니?

3. 다른 제안이나 조언이 있으십니까? 스타일, 코드 구성 - 전혀 없습니다.

나는이 아기 새를 둥지에서 밀어 내야한다고 생각하지만, 대부분 진공 상태에서 일하기 때문에 약간 긴장됩니다. 어떤 조언을 크게 주시면 감사하겠습니다.

편집 : 요점에 대한 링크를 놓친 경우를 대비하여 this is the function I'm talking about.

---

요청시, sample test data.

Answer 1

편집 의견을 반영하고 당신은 모두 루프 또는 if의 모든 유형을 방지하고 단순히 R 벡터 첨자를 사용할 수 있습니다

테스트 데이터에 대한 유효성을 검사 :

qft.interp <- function(nil, tb, mitogen, tbnil.cutoff = 0.35){ 

    # Set a tolerance to avoid floating point comparison troubles. 
    tol <- .Machine$double.eps^0.5 

    # Set up the results vector 
    result <- rep(NA, times = length(nil)) 
    result[nil+tol > 8.0] <- "Indeterminate" 
    result[is.na(result) & (tb-nil+tol > tbnil.cutoff) & 
      (tb-nil+tol > .25*nil)] <- "Positive" 
    result[is.na(result) & (tb-nil+tol < tbnil.cutoff | tb-nil+tol < .25*nil) & 
     !(mitogen-nil+tol < 0.5)] <- "Negative" 
    result[is.na(result) & ((tb-nil+tol < tbnil.cutoff | tb-nil+tol < .25*nil) & 
      mitogen-nil+tol < 0.5)] <- "Indeterminate" 
    result 
} 

all(with(tests, qft.interp(nil, tb, mitogen)) == tests$interp) 

[1] TRUE 

Answer 2

for 루프를 사용하지 않으려면 apply 함수를 사용하여 해석을 반환하십시오.

Answer 3

result[ nil + (tol > 8.0)] <- "Indeterminate" 
result[(tb - nil + (tol > tbnil.cutoff)) & (tb - nil + (tol > .25 * nil))] <- "Positive" 
result[ (tb - nil + (tol < tbnil.cutoff))| (tb - nil + (tol < .25 * nil)) & 
         !(mitogen - nil + tol < 0.5) ] <- "Negative" 
result[ (tb - nil + (tol < tbnil.cutoff)) | (tb - nil + (tol < .25 * nil)) & 
          (mitogen - nil + (tol < 0.5)) ] <- "Indeterminate"