Function sample

inst/include/Rcpp/sugar/functions/sample.h:400–433

Adapted from `do_sample`

// Adapted from `do_sample`
inline Vector<INTSXP>
sample(int n, int size, bool replace = false, sugar::probs_t probs = R_NilValue, bool one_based = true)
{
    if (probs.isNotNull()) {
        Vector<REALSXP> p = clone(probs.get());
        if (static_cast<int>(p.size()) != n) {
            stop("probs.size() != n!");
        }

        sugar::Normalize(p, size, replace);

        if (replace) {
            int i = 0, nc = 0;
            for ( ; i < n; i++) {
                nc += (n * p[i] > 0.1);
            }

            return nc > 200 ? sugar::WalkerSample(p, n, size, one_based) :
                              sugar::SampleReplace(p, n, size, one_based);
        }

        if (size > n) {
            stop("Sample size must be <= n when not using replacement!");
        }

        return sugar::SampleNoReplace(p, n, size, one_based);
    }

    if (!replace && size > n) {
        stop("Sample size must be <= n when not using replacement!");
    }

    return sugar::EmpiricalSample(n, size, replace, one_based);
}

template <int RTYPE>
inline Vector<RTYPE>