The R Project SVN R

Rev

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

Rev 11499 Rev 12976
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
 3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
4 
 *  Copyright (C) 1998-2000   The R Development Core Team.
 4 
 *  Copyright (C) 1998-2001   The R Development Core Team.
5 
 *
 5 
 *
6 
 *  This program is free software; you can redistribute it and/or modify
 6 
 *  This program is free software; you can redistribute it and/or modify
7 
 *  it under the terms of the GNU General Public License as published by
 7 
 *  it under the terms of the GNU General Public License as published by
8 
 *  the Free Software Foundation; either version 2 of the License, or
 8 
 *  the Free Software Foundation; either version 2 of the License, or
9 
 *  (at your option) any later version.
 9 
 *  (at your option) any later version.
Line 785... Line 785...
785 
    case VECSXP:
 785 
    case VECSXP:
786 
	for (i = 0; i < len; i++) {
 786 
	for (i = 0; i < len; i++) {
787 
	    j = swap(i, dimsa, dimsr, perm, ind1, ind2);
 787 
	    j = swap(i, dimsa, dimsr, perm, ind1, ind2);
788 
	    SET_VECTOR_ELT(r, j, VECTOR_ELT(a, i));
 788 
	    SET_VECTOR_ELT(r, j, VECTOR_ELT(a, i));
789 
	}
 789 
	}
- 
 
 790 
	break;
790 
    default:
 791 
    default:
791 
	errorcall(call, R_MSG_IA);
 792 
	errorcall(call, R_MSG_IA);
792 
    }
 793 
    }
793 
 
 794 
 
794 
    if (INTEGER(CAR(CDDR(args)))[0])
 795 
    if (INTEGER(CAR(CDDR(args)))[0])