The R Project SVN R-packages

Rev

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

Rev 1530 Rev 1572
Line 343... Line 343...
343 
	*xp = INTEGER(GET_SLOT(x, Matrix_pSym)),
 343 
	*xp = INTEGER(GET_SLOT(x, Matrix_pSym)),
344 
	m = xdims[0], n = xdims[1];
 344 
	m = xdims[0], n = xdims[1];
345 
    SEXP ans = PROTECT(allocVector(INTSXP, n));
 345 
    SEXP ans = PROTECT(allocVector(INTSXP, n));
346 
    int *actr = Calloc(m, int),
 346 
    int *actr = Calloc(m, int),
347 
	*actc = Calloc(n, int),
 347 
	*actc = Calloc(n, int),
348 
	cj, i, j, mincount, minloc, pos;
 348 
	cj, i, j, mincount, minloc = -1, pos;
349 
 
 349 
 
350 
    for (i = 0; i < m; i++) actr[i] = 1;
 350 
    for (i = 0; i < m; i++) actr[i] = 1;
351 
    mincount = m + 1;
 351 
    mincount = m + 1;
352 
    for (j = 0; j < n; j++) {
 352 
    for (j = 0; j < n; j++) {
353 
	cj = xp[j + 1] - xp[j];
 353 
	cj = xp[j + 1] - xp[j];