Wie geschieht das Gießen in R?

Question

check.num <- function(x){ 
    if(x>0){ 
    print("Greater than or equal to 1") 
    } else if(x==0){ 
    print("Equals zero") 
    } else if(x<0){ 
    print("Less than zero") 
    } else{ 
    print("Confused") 
    } 
} 

check.num(1) 
#Output: [1] "Greater than or equal to 1" 

check.num(0) 
#Output: [1] "Equals zero" 

check.num(-1) 
#Output: [1] "Less than zero" 

Wie geben die folgenden Befehle die Werte zurück? Ich habe im ersten Fall "0" und im zweiten Fall "Confused" erwartet.

check.num("") 
#Output: [1] "Less than zero" 

check.num("kj") 
#Output: [1] "Greater than or equal to 1" 

Answer 1

Von ?Comparison (oder ?">"):

Wenn die beiden Argumente Atom Vektoren verschiedener Typen sind, ist man dem Typ des anderen dazu gezwungen, dem (niedrigsten) Reihenfolge der Vorrang Sein Charakter, komplex, numerisch, Integer, logisch und roh.

Die Zahl 0 wird zum Charakter wirft das andere Argument ("" oder "kj") passen, so dass wir am Ende mit diesem Vergleichen bis:

"">"0" ## FALSE 
"kj">"0" ## TRUE 

, die, es ist ein lexicographic ist Vergleich.

Es wäre wohl weniger überraschend, wenn ein Vergleich zwischen Zeichen und Zahlen NA ergibt, aber so ist die Sprache nicht definiert.