43

関数内に停止条件を入れたい。条件は、1番目と2番目の要素が順序と長さで完全に一致する必要がある場合です。

A <- c("A", "B", "C", "D")
B <- A
C <- c("A", "C", "C", "E")

> A == B
[1] TRUE TRUE TRUE TRUE

これは前進するのに良い状況です

> A == C

[1]  TRUE  FALSE TRUE FALSE

誤った条件が1つあるため、この条件を停止して出力すると、条件は2列目と4列目に保持されません。

if (A != B) {
           stop("error the A and B does not match at column 2 and 4"} else {
            cat ("I am fine") 
                }
Warning message:
In if (A != B) (stop("error 1")) :
  the condition has length > 1 and only the first element will be used

明らかな何かが欠けていますか？また、エラー位置がどこにあるかを出力できますか？

4

3 に答える 3

66

all1つのオプションです：

> A <- c("A", "B", "C", "D")
> B <- A
> C <- c("A", "C", "C", "E")

> all(A==B)
[1] TRUE
> all(A==C)
[1] FALSE

ただし、リサイクルには注意が必要な場合があります。

> D <- c("A","B","A","B")
> E <- c("A","B")
> all(D==E)
[1] TRUE
> all(length(D)==length(E)) && all(D==E)
[1] FALSE

のドキュメントにlengthは、現在、長さ1の整数のみが出力されると記載されていますが、将来変更される可能性があるため、長さテストをでラップしましたall。

于 2012-04-29T20:34:34.757 に答える
33

それらは同一ですか？

> identical(A,C)
[1] FALSE

同意しない要素：

> which(A != C)
[1] 2 4
于 2012-04-29T18:53:14.417 に答える
7

私はおそらくあなたが欲しい情報を得るためにall.equalそしてを使うでしょう。何らかの理由でブロックで使用することはお勧めしません。そのため、でラップしwhichます。詳細については、以下を参照してください。all.equalif...elseisTRUE()?all.equal

foo <- function(A,B){
  if (!isTRUE(all.equal(A,B))){
    mismatches <- paste(which(A != B), collapse = ",")
    stop("error the A and B does not match at the following columns: ", mismatches )
  } else {
    message("Yahtzee!")
  }
}

そして使用中：

> foo(A,A)
Yahtzee!
> foo(A,B)
Yahtzee!
> foo(A,C)
Error in foo(A, C) : 
  error the A and B does not match at the following columns: 2,4
于 2012-04-29T19:02:07.667 に答える