File: utils_parallel.R

package info (click to toggle)
r-bioc-scran 1.26.2%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 1,692 kB
  • sloc: cpp: 733; makefile: 2
file content (12 lines) | stat: -rw-r--r-- 386 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
 
#' @importFrom dqrng generateSeedVectors
.setup_pcg_state <- function(per.core) {
    seeds <- streams <- vector("list", length(per.core))
    last <- 0L
    for (i in seq_along(per.core)) { 
        N <- per.core[i]
        seeds[[i]] <- generateSeedVectors(N, nwords=2)
        streams[[i]] <- last + seq_len(N)
        last <- last + N
    }
    list(seeds=seeds, streams=streams)
}