The R Project SVN R

Rev

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

Rev 5458 Rev 5603
Line 221... Line 221...
221 
    *stretch = (ns > nx) ? ns : 0;
 221 
    *stretch = (ns > nx) ? ns : 0;
222 
#endif
 222 
#endif
223 
    if (ns == 0)
 223 
    if (ns == 0)
224 
	return(allocVector(INTSXP, 0));
 224 
	return(allocVector(INTSXP, 0));
225 
    count = 0;
 225 
    count = 0;
- 
 
 226 
#ifdef BROKEN
226 
    for (i = 0; i < nx; i++)
 227 
    for (i = 0; i < nx; i++)
- 
 
 228 
#else
- 
 
 229 
    for (i = 0; i < nmax; i++)
- 
 
 230 
#endif
227 
	if (LOGICAL(s)[i%ns])
 231 
	if (LOGICAL(s)[i%ns])
228 
	    count++;
 232 
	    count++;
229 
    index = allocVector(INTSXP, count);
 233 
    index = allocVector(INTSXP, count);
230 
    count = 0;
 234 
    count = 0;
231 
#ifdef OLD
 235 
#ifdef OLD