Confronto di due vettori in una istruzione if

Question

Voglio mettere la condizione di arresto all'interno di una funzione. La condizione è che se il primo e il secondo elemento dovessero combaciare perfettamente in ordine e lunghezza.

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

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

Questa è una buona situazione per andare avanti

> A == C 

[1] TRUE FALSE TRUE FALSE 

Poiché non v'è una falsa questa condizione di fermarsi e di uscita che la condizione doesnot stretta a 2 e 4 esima colonna.

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 

Mi manca qualcosa di ovvio? Posso anche scrivere dove sono posizionate le posizioni di errore?

Answer 1

all è un'opzione:

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

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

Ma potrebbe essere necessario guardare fuori per il riciclaggio:

> 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 

Il documentazione per length dice che attualmente produce solo un numero intero di lunghezza 1, ma che potrebbe cambiare in futuro, ecco perché ho concluso il test di lunghezza in all.

Answer 2

Sono identici?

> identical(A,C) 
[1] FALSE 

Quali elementi non sono d'accordo:

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

Answer 3

probabilmente sarei uso all.equal e which per ottenere le informazioni desiderate. Si sconsiglia di utilizzare all.equal in un blocco if...else per qualche motivo, quindi lo avvolgiamo in isTRUE(). Vedere ?all.equal per più:

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!") 
    } 
} 

e in uso:

> 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