The R Project SVN R

(root)/trunk/src/main/array.c @ 28362 – Rev 90096 → 90115



	UNPROTECT(1);
    }
    else // !resize
	setAttrib(r, R_DimSymbol, dimsa);
 
 
 
    UNPROTECT(3); /* dimsa, r, dimsr */
    return r;
}
 
/* colSums(x, n, p, na.rm) and friends */

Rev 90096	Rev 90115
Line 1884...	Line 1884...
1884	`UNPROTECT(1);`	1884	`UNPROTECT(1);`
1885	`}`	1885	`}`
1886	`else // !resize`	1886	`else // !resize`
1887	`setAttrib(r, R_DimSymbol, dimsa);`	1887	`setAttrib(r, R_DimSymbol, dimsa);`
1888		1888
1889	`copyMostAttrib(a, r);`	-
1890		-
1891	`UNPROTECT(3); /* dimsa, r, dimsr */`	1889	`UNPROTECT(3); /* dimsa, r, dimsr */`
1892	`return r;`	1890	`return r;`
1893	`}`	1891	`}`
1894		1892
1895	`/* colSums(x, n, p, na.rm) and friends */`	1893	`/* colSums(x, n, p, na.rm) and friends */`