(x <- as.snpclone(glSim(100, 1e3, ploid=2)))
if (FALSE) {
# Without parallel processing
system.time(x <- as.snpclone(glSim(1000, 1e5, ploid=2)))
# With parallel processing... doesn't really save you much time.
system.time(x <- as.snpclone(glSim(1000, 1e5, ploid=2, parallel = TRUE),
parallel = TRUE))
}
Run the code above in your browser using DataLab