The R Project SVN R

Rev

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

Rev 5731 Rev 6206
Line 426... Line 426...
426 
    int ldx, ldy, nrx, ncx, nry, ncy, mode;
 426 
    int ldx, ldy, nrx, ncx, nry, ncy, mode;
427 
    SEXP x, y, xdims, ydims, ans;
 427 
    SEXP x, y, xdims, ydims, ans;
428 
 
 428 
 
429 
    if (!(isNumeric(CAR(args)) || isComplex(CAR(args))) ||
 429 
    if (!(isNumeric(CAR(args)) || isComplex(CAR(args))) ||
430 
	!(isNumeric(CADR(args)) || isComplex(CADR(args))))
 430 
	!(isNumeric(CADR(args)) || isComplex(CADR(args))))
431 
	error("%%*%% requires numeric matrix/vector arguments");
 431 
	errorcall(call, "requires numeric matrix/vector arguments");
432 
 
 432 
 
433 
    x = CAR(args);
 433 
    x = CAR(args);
434 
    y = CADR(args);
 434 
    y = CADR(args);
435 
    xdims = getAttrib(x, R_DimSymbol);
 435 
    xdims = getAttrib(x, R_DimSymbol);
436 
    ydims = getAttrib(y, R_DimSymbol);
 436 
    ydims = getAttrib(y, R_DimSymbol);