search for: sreplac

Displaying 1 result from an estimated 1 matches for "sreplac".

Did you mean: replac
2006 Jan 21
1
A patch for do_sample: check replace arg
...-- a/src/main/random.c Sat Jan 21 10:54:11 2006 -0800 +++ b/src/main/random.c Sat Jan 21 11:17:20 2006 -0800 @@ -453,15 +453,18 @@ /* with/without replacement according to r. */ SEXP attribute_hidden do_sample(SEXP call, SEXP op, SEXP args, SEXP rho) { - SEXP x, y, prob; + SEXP x, y, prob, sreplace; int k, n, replace; double *p; checkArity(op, args); n = asInteger(CAR(args)); args = CDR(args); k = asInteger(CAR(args)); args = CDR(args); - replace = asLogical(CAR(args)); args = CDR(args); + sreplace = CAR(args); args = CDR(args); prob = CAR(args); + if...