Displaying 1 result from an estimated 1 matches for "jjnr".
Did you mean:
jinr
2010 Sep 08
0
Correction to vec-subset speed patch
...:
+ errorcall(call, _("matrix subscripting not handled for this type"));
+ }
+}
+
+
static SEXP MatrixSubset(SEXP x, SEXP s, SEXP call, int drop)
{
SEXP attr, result, sr, sc, dim;
int nr, nc, nrs, ncs;
- int i, j, ii, jj, ij, iijj;
+ int i, j, ii, jj, ij, iijj, jjnr;
nr = nrows(x);
nc = ncols(x);
@@ -234,79 +280,82 @@
PROTECT(sc);
result = allocVector(TYPEOF(x), nrs*ncs);
PROTECT(result);
+
+ /* Set rows of result to NAs where there are NA row indexes. Also check
+ for bad row indexes (once here rather than many times in l...