The R Project SVN R

Rev

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

Rev 31875 Rev 31894
Line 62... Line 62...
62 
 
 62 
 
63 
    checkArity(op, args);
 63 
    checkArity(op, args);
64 
    vals = CAR(args);
 64 
    vals = CAR(args);
65 
    snr = CADR(args);
 65 
    snr = CADR(args);
66 
    snc = CADDR(args);
 66 
    snc = CADDR(args);
67 
    byrow = asInteger(CADR(CDDR(args)));
 67 
    byrow = asLogical(CADR(CDDR(args)));
- 
 
 68 
    if (byrow == NA_INTEGER)
- 
 
 69 
	error("matrix: invalid byrow value");
68 
 
 70 
 
69 
    /* R wrapper does as.vector
 71 
    /* R wrapper does as.vector
70 
    if (isVector(vals) || isList(vals)) {
 72 
    if (isVector(vals) || isList(vals)) {
71 
	if (length(vals) < 0)  (sic! cannot happen)
 73 
	if (length(vals) < 0)  (sic! cannot happen)
72 
	   errorcall(call, "argument has length zero");
 74 
	   errorcall(call, "argument has length zero");