43

我想把停止条件放在一个函数中。条件是如果第一个和第二个元素在顺序和长度上应该完全匹配。

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

由于存在一个错误，因此该条件停止并输出该条件在第 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

all是一种选择：

> 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.equalandwhich来获取您想要的信息。由于某种原因不建议all.equal在块中使用，因此我们将其包装在. 查看更多：if...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 回答