search for: rf_list1

Displaying 2 results from an estimated 2 matches for "rf_list1".

Did you mean: rf_list
2020 Sep 11
4
Garbage collection of seemingly PROTECTed pairlist
...out_int[1] = second; UNPROTECT(1); return out;} SEXP C_fullocate(SEXP int_mat) { int nr = Rf_nrows(int_mat), *int_mat_int = INTEGER(int_mat); int last, row_num; // row_num will be 1-indexed SEXP prlst0cdr = PROTECT(C_int_mat_nth_row_nrnc(int_mat_int, nr, 2, 1)); SEXP prlst = PROTECT(Rf_list1(prlst0cdr)); SEXP prlst_tail = prlst; last = INTEGER(prlst0cdr)[1]; row_num = 2; while (row_num <= nr) { Rprintf("row_num: %i\n", row_num); SEXP row = PROTECT(C_int_mat_nth_row_nrnc(int_mat_int, nr, 2, row_num)); Rf_PrintValue(prlst); // This is where the error occ...
2020 Sep 12
0
Garbage collection of seemingly PROTECTed pairlist
...(1); > return out;} > > SEXP C_fullocate(SEXP int_mat) { > int nr = Rf_nrows(int_mat), *int_mat_int = INTEGER(int_mat); > int last, row_num; // row_num will be 1-indexed > SEXP prlst0cdr = PROTECT(C_int_mat_nth_row_nrnc(int_mat_int, nr, 2, 1)); > SEXP prlst = PROTECT(Rf_list1(prlst0cdr)); > SEXP prlst_tail = prlst; > last = INTEGER(prlst0cdr)[1]; > row_num = 2; > while (row_num <= nr) { > Rprintf("row_num: %i\n", row_num); > SEXP row = PROTECT(C_int_mat_nth_row_nrnc(int_mat_int, nr, 2, > row_num)); > Rf_PrintValue...