founderGenomes <- quickHaplo(nInd = 3, nChr = 3, segSites = 100)
SP <- SimParamBee$new(founderGenomes, csdChr = NULL)
SP$nThreads = 1L
isCsdActive()
SP <- SimParamBee$new(founderGenomes)
SP$nThreads = 1L
isCsdActive()
Run the code above in your browser using DataLab