Nothing
permuteGeneral <- function(v, m = NULL, repetition = FALSE, freqs = NULL,
lower = NULL, upper = NULL, constraintFun = NULL,
comparisonFun = NULL, limitConstraints = NULL,
keepResults = NULL, FUN = NULL, Parallel = FALSE,
nThreads = NULL, tolerance = NULL,
FUN.VALUE = NULL) {
RetValue <- .Call(`_RcppAlgos_CheckReturn`, v, constraintFun,
comparisonFun, limitConstraints,
keepResults, FUN)
if (RetValue == 1) {
return(.Call(`_RcppAlgos_CombinatoricsStndrd`, v, m, repetition,
freqs, lower, upper, Parallel, nThreads,
pkgEnv$nThreads, FALSE))
} else if (RetValue == 2) {
return(.Call(`_RcppAlgos_CombinatoricsApply`, v, m,
repetition, freqs, lower, upper,
FUN, new.env(), FUN.VALUE, FALSE))
} else {
return(.Call(`_RcppAlgos_CombinatoricsCnstrt`, v, m, repetition,
freqs, lower, upper, constraintFun, comparisonFun,
limitConstraints, FALSE, keepResults, Parallel,
nThreads, pkgEnv$nThreads, tolerance, FALSE, FALSE))
}
}
permuteRank <- function(..., v, repetition = FALSE, freqs = NULL) {
GetRank(..., v = v, repetition = repetition,
freqs = freqs, IsComb = FALSE)
}
permuteSample <- function(v, m = NULL, repetition = FALSE, freqs = NULL,
n = NULL, sampleVec = NULL, seed = NULL,
FUN = NULL, Parallel = FALSE, nThreads = NULL,
namedSample = FALSE, FUN.VALUE = NULL) {
if (!is.null(seed)) {
set.seed(seed)
}
return(.Call(`_RcppAlgos_SampleCombPerm`, v, m, repetition, freqs, sampleVec,
FALSE, seed, n, sample, FUN, new.env(), Parallel, nThreads,
pkgEnv$nThreads, namedSample, FUN.VALUE))
}
permuteCount <- function(v, m = NULL, repetition = FALSE, freqs = NULL) {
.Call(`_RcppAlgos_CombinatoricsCount`, v, m,
repetition, freqs, FALSE);
}
permuteIter <- function(v, m = NULL, repetition = FALSE, freqs = NULL,
constraintFun = NULL, comparisonFun = NULL,
limitConstraints = NULL, keepResults = NULL,
FUN = NULL, Parallel = FALSE, nThreads = NULL,
tolerance = NULL, FUN.VALUE = NULL) {
RetValue <- .Call(`_RcppAlgos_CheckReturn`, v, constraintFun,
comparisonFun, limitConstraints,
keepResults, FUN)
IsCnstrd <- .Call(`_RcppAlgos_CheckConstrndCpp`, constraintFun,
comparisonFun, limitConstraints)
InitVals <- .Call(`_RcppAlgos_GetClassVals`, v, m, repetition,
freqs, FALSE, FUN, nThreads, pkgEnv$nThreads,
IsCnstrd, FALSE, FALSE, NULL, NULL, NULL)
if (RetValue == 1) {
new("Combo", InitVals, Parallel)
} else if (RetValue == 2) {
new("ComboApply", InitVals, FUN, new.env(), FUN.VALUE)
} else if (IsCnstrd) {
new("Constraints", InitVals, Parallel, constraintFun, comparisonFun,
limitConstraints, keepResults, tolerance, is.null(m))
} else {
new("ComboRes", InitVals, Parallel, constraintFun, comparisonFun,
limitConstraints, keepResults, tolerance, is.null(m))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.