The R Project SVN R

Rev

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

Rev 5458 Rev 5731
Line 31... Line 31...
31 
    checkArity(op, args);
 31 
    checkArity(op, args);
32 
 
 32 
 
33 
    x = CAR(args);
 33 
    x = CAR(args);
34 
    f = CADR(args);
 34 
    f = CADR(args);
35 
    if (!isVector(x))
 35 
    if (!isVector(x))
36 
	errorcall(call, "first argument must be a vector\n");
 36 
	errorcall(call, "first argument must be a vector");
37 
    if (!isFactor(f))
 37 
    if (!isFactor(f))
38 
	errorcall(call, "second argument must be a factor\n");
 38 
	errorcall(call, "second argument must be a factor");
39 
    nlevs = nlevels(f);
 39 
    nlevs = nlevels(f);
40 
    nfac = LENGTH(CADR(args));
 40 
    nfac = LENGTH(CADR(args));
41 
    nobs = LENGTH(CAR(args));
 41 
    nobs = LENGTH(CAR(args));
42 
    if (nobs <= 0)
 42 
    if (nobs <= 0)
43 
	return R_NilValue;
 43 
	return R_NilValue;