Сравнение двух векторов в выражении if

Я хочу поставить условие остановки в функцию. Условие состоит в том, что если первый и второй элементы должны соответствовать по порядку и длине.

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

Я пропустил что-то очевидное? Также я могу вывести, где находятся позиции ошибок?

Ответ 1

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.

Ответ 2

Они идентичны?

> identical(A,C)
[1] FALSE

Какие элементы не согласны:

> which(A != C)
[1] 2 4

Ответ 3

Я бы использовал all.equal и which, чтобы получить нужную вам информацию. По какой-то причине не рекомендуется использовать all.equal в блоке if...else, поэтому мы завершаем его в isTRUE(). Подробнее см. ?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