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"