The R Project SVN R

Rev

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

Rev 18775 Rev 21875
Line 471... Line 471...
471 
{
 471 
{
472 
    int ldx, ldy, nrx, ncx, nry, ncy, mode;
 472 
    int ldx, ldy, nrx, ncx, nry, ncy, mode;
473 
    SEXP x = CAR(args), y = CADR(args), xdims, ydims, ans;
 473 
    SEXP x = CAR(args), y = CADR(args), xdims, ydims, ans;
474 
    Rboolean sym;
 474 
    Rboolean sym;
475 
 
 475 
 
- 
 
 476 
    if(R_has_methods(op)) {
- 
 
 477 
      SEXP value;
- 
 
 478 
      value = R_possible_dispatch(call, op, args, rho);
- 
 
 479 
      if(value) return value;
- 
 
 480 
    }
- 
 
 481 
 
476 
    sym = isNull(y);
 482 
    sym = isNull(y);
477 
    if (sym && (PRIMVAL(op) == 1)) y = x;
 483 
    if (sym && (PRIMVAL(op) == 1)) y = x;
478 
    if ( !(isNumeric(x) || isComplex(x)) || !(isNumeric(y) || isComplex(y)) )
 484 
    if ( !(isNumeric(x) || isComplex(x)) || !(isNumeric(y) || isComplex(y)) )
479 
	errorcall(call, "requires numeric matrix/vector arguments");
 485 
	errorcall(call, "requires numeric matrix/vector arguments");
480 
 
 486