FilesExpand file tree

master

/

sockets.R

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

22 lines (14 loc) · 352 Bytes

master

/

sockets.R

Copy path

Top

File metadata and controls

• Code
• Blame

22 lines (14 loc) · 352 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

## @knitr sockets

library(parallel)

machines = c(rep("beren.berkeley.edu", 1),

rep("gandalf.berkeley.edu", 1),

rep("arwen.berkeley.edu", 2))

cl = makeCluster(machines)

cl

n = 1e7

clusterExport(cl, c('n'))

fun = function(i)

out = mean(rnorm(n))

result <- parSapply(cl, 1:20, fun)

result[1:5]

stopCluster(cl) # not strictly necessary