The R Project SVN R

Rev

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

Rev 9147 Rev 9543
Line 738... Line 738...
738 
    if (dimsa == R_NilValue)
 738 
    if (dimsa == R_NilValue)
739 
	error("aperm: invalid first argument, must be an array");
 739 
	error("aperm: invalid first argument, must be an array");
740 
 
 740 
 
741 
    PROTECT(perm = coerceVector(CADR(args), INTSXP));
 741 
    PROTECT(perm = coerceVector(CADR(args), INTSXP));
742 
    if (!isVector(perm) || (length(perm) != length(dimsa)))
 742 
    if (!isVector(perm) || (length(perm) != length(dimsa)))
743 
	error("aperm: invalid second argument, must be a vector");
 743 
	error("aperm: invalid second argument, must be a vector of the appropriate length");
744 
 
 744 
 
745 
    len = length(a);
 745 
    len = length(a);
746 
 
 746 
 
747 
    PROTECT(dimsr = allocVector(INTSXP, length(dimsa)));
 747 
    PROTECT(dimsr = allocVector(INTSXP, length(dimsa)));
748 
    for (i = 0; i < length(dimsa); i++)
 748 
    for (i = 0; i < length(dimsa); i++)