Rでアサーションを作成するには？

Question

RUnitのcheck *機能を使用して前提条件/事後条件文を作成することをお勧めしますか？これはパフォーマンスやその他の面で犠牲となるでしょうか？

Answer 1

これは古い投稿であることは知っていますが、おそらくこの回答はオペレータフォームのRアサーションを探している他の人にとって役に立ちます。面倒なステートメントの最後にアサーションを付ける場合、これは正しい方向への一歩かもしれません。

"%assert%" <- function(e1, e2) 
{ 

    args <- as.list(match.call()[-1]) 
    defs <- as.list(args$e1) 
    preds <- as.list(args$e2)[-1L] 

    for(var in names(defs)[names(defs) != ""]) assign(var, eval(defs[[var]])) 

    for(p in unlist(preds)) eval(
     parse(
      text = paste0("if(!", deparse(p), ") stop('assertion ",deparse(p) , " is not true')") 
     ) 
    ) 

    return(eval(args$e1)) 

} 

例：あなたはベクトルxの平均値を計算していて、各要素が1と10の間にあることを確認したい場合は、

mean(x = sample(1:10, size = 100, replace = T)) %assert% c(min(x) > 0 && max(x) < 11) 
#5.62 

を使用することができ場合、この条件のISN」トン真の、あなたはそれが完全にテストされていないですので、ご自身の責任で使用して、このような

mean(x = sample(11:20, size = 100, replace = T)) %assert% c(min(x) > 0, max(x) < 11) 
#Error in eval(expr, envir, enclos) : assertion max(x) < 11 is not true 

として情報提供（ISH）エラーが発生します！

Answer 2

アサーションには常にstopifnot()を使用します。