The R Project SVN R

Rev

Rev 1903 | Rev 4279 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1903 Rev 4179
Line 34... Line 34...
34 
 
 34 
 
35 
    n1 = length(s1);
 35 
    n1 = length(s1);
36 
    n2 = length(s1);
 36 
    n2 = length(s1);
37 
    if(n1 > 1 || n2 > 1) {
 37 
    if(n1 > 1 || n2 > 1) {
38 
	n = (n1 > n2) ? n1 : n2;
 38 
	n = (n1 > n2) ? n1 : n2;
39 
	warningcall(call, "Numerical expression has %d elements: only the first used\n", n);
 39 
	warningcall(call, "Numerical expression has %d elements: only the first used", n);
40 
    }
 40 
    }
41 
    n1 = asReal(s1);
 41 
    n1 = asReal(s1);
42 
    n2 = asReal(s2);
 42 
    n2 = asReal(s2);
43 
    if (ISNAN(n1) || ISNAN(n2))
 43 
    if (ISNAN(n1) || ISNAN(n2))
44 
	errorcall(call, "NA/NaN argument\n");
 44 
	errorcall(call, "NA/NaN argument\n");