効率的なRコードの書き方
Colin Gillespie
Jumping Rivers & Newcastle University
library("parallel")
apply()はforループに相当
10列・10,000行の行列:
m <- matrix(rnorm(100000), ncol = 10)
res <- apply(m, 1, median)
parApply()に切り替えlibrary("parallel")
copies_of_r <- 7
cl <- makeCluster(copies_of_r)
parApply(cl, m, 1, median)
stopCluster(cl)
ルイス・キャロルの言葉より
急げば急ぐほど、遅れる。
# シリアル版
apply(m, 1, median)
# 並列版
parApply(cl, m, 1, median)
効率的なRコードの書き方