The R Project SVN R-packages

Rev

Rev 4994 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4994 Rev 5003
Line 541... Line 541...
541 
	for_DIAG(v[i] = x_x[i_from]);
 541 
	for_DIAG(v[i] = x_x[i_from]);
542 
	break;
 542 
	break;
543 
 
 543 
 
544 
    case diag_backpermuted:
 544 
    case diag_backpermuted:
545 
	for_DIAG(v[i] = x_x[i_from]);
 545 
	for_DIAG(v[i] = x_x[i_from]);
546 
	/* now back_permute : */
 - 
 
547 
 
 546 
 
548 
	error(_("resultKind = 'diagBack' (back-permuted) is not yet implemented"));
 547 
	error(_("resultKind = 'diagBack' (back-permuted) is not yet implemented"));
- 
 
 548 
	/* now back_permute : */
- 
 
 549 
	for(i = 0; i < n; i++) {
- 
 
 550 
	    double tmp = v[i]; v[i] = v[perm[i]]; v[perm[i]] = tmp;
- 
 
 551 
	    /*^^^^ FIXME[Generalize] */
- 
 
 552 
	}
549 
	break;
 553 
	break;
550 
 
 554 
 
551 
    default: /* -1 from above */
 555 
    default: /* -1 from above */
552 
	error("diag_tC(): invalid 'resultKind'");
 556 
	error("diag_tC(): invalid 'resultKind'");
553 
	/* Wall: */ ans = R_NilValue; v = REAL(ans);
 557 
	/* Wall: */ ans = R_NilValue; v = REAL(ans);