uniqCo <- matrix(c(1,1,1,0,1,1), nrow=2, dimnames=list(c("PTI","KPE"),c("d","p","h")) )
massModV <- c(d=-18.01056, p=79.96633, h=-18.01056)
chPa <- c(requireNamespace("parallel", quietly=TRUE),
requireNamespace("BiocParallel", quietly=TRUE), "windows" %in% .Platform$OS.type)
## Note : the function may work only on some windows systems
if(all(chPa)) if(parallel::detectCores() >1) {
.parCombinateAllAndSum(uniqCo, massModV, nProc=2)}
Run the code above in your browser using DataLab