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

Question

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

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 

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

Answer 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.

Answer 2

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

> identical(A,C) 
[1] FALSE 

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

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

Answer 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