Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- p <- fork()
- if (inherits(p, "masterProcess")) {
- cat("I’m a child! ", Sys.getpid(), "n")
- exit(,"I was a child")
- }
- cat("I’m the mastern")
- unserialize(readChildren(1.5))
- id = mcparallel({ Sys.sleep(5); TRUE })
- mccollect(id)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement