The R Project SVN R

Rev

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

Rev 2342 Rev 4179
Line 38... Line 38...
38 
    if (nobs <= 0)
 38 
    if (nobs <= 0)
39 
	return R_NilValue;
 39 
	return R_NilValue;
40 
    if (nfac <= 0)
 40 
    if (nfac <= 0)
41 
	errorcall(call, "Group length is 0 but data length > 0");
 41 
	errorcall(call, "Group length is 0 but data length > 0");
42 
    if (nobs != nfac)
 42 
    if (nobs != nfac)
43 
	warningcall(call, "argument lengths differ\n");
 43 
	warningcall(call, "argument lengths differ");
44 
    PROTECT(counts = allocVector(INTSXP, nlevs));
 44 
    PROTECT(counts = allocVector(INTSXP, nlevs));
45 
    for (i = 0; i < nlevs; i++)
 45 
    for (i = 0; i < nlevs; i++)
46 
	INTEGER(counts)[i] = 0;
 46 
	INTEGER(counts)[i] = 0;
47 
    for (i = 0; i < nobs; i++) {
 47 
    for (i = 0; i < nobs; i++) {
48 
	j = INTEGER(f)[i % nfac];
 48 
	j = INTEGER(f)[i % nfac];