The R Project SVN R

Rev

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

Rev 74916 Rev 76858
Line 427... Line 427...
427 
				m++;
 427 
				m++;
428 
			    }
 428 
			    }
429 
			    /* Now reverse the transcript. */
 429 
			    /* Now reverse the transcript. */
430 
			    for(k = 0, l = --m; l >= nz; k++, l--)
 430 
			    for(k = 0, l = --m; l >= nz; k++, l--)
431 
				buf[k] = buf[l];
 431 
				buf[k] = buf[l];
432 
			    buf[++k] = '\0';
 432 
			    buf[k] = '\0';
433 
			    COUNTS(i, j, 0) = nins;
 433 
			    COUNTS(i, j, 0) = nins;
434 
			    COUNTS(i, j, 1) = ndel;
 434 
			    COUNTS(i, j, 1) = ndel;
435 
			    COUNTS(i, j, 2) = nsub;
 435 
			    COUNTS(i, j, 2) = nsub;
436 
			    SET_STRING_ELT(trafos, i + nx * j, mkChar(buf));
 436 
			    SET_STRING_ELT(trafos, i + nx * j, mkChar(buf));
437 
			}
 437 
			}