作者roussas (尽力了..)
看板R_Language
标题[问题] boot() 函式的平行运算
时间Fri Sep 12 14:27:51 2014
[问题类型]:
效能谘询(我想让R 跑更快)
[软体熟悉度]:
使用者(已经有用R 做过不少作品)
[问题叙述]:
目前尝试利用 bootstrap 的技巧计算统计量，利用 boot 套件中的 boot()
这个函式做 bootstrap 。
boot()函式有一个参数是 parallel，我在windows 的电脑上将它设定成
parallel="snow"後，发现它做1000次bootstrap的时间和我自己写的 for 回圈几乎一样，
我预期它应该要有改进一点才是。
想问一下以下第二和第三种写法为什麽没有作用？
[程式范例]:
library(boot)
library(snow)
library(doParallel)
#library(Rmpi) #我的电脑上这个套件无法安装，说我遗失了某个档案
我的 OrgData 是一个100x80的矩阵, f.boot 是我自己定义的函数，
f.boot<- function(x, ii){v<- x[ii,]; E<- eigen(cov(v)); sum(E$val) }
system.time(
#我没有设定 cl
b<- boot(OrgData, f.boot, R=1000, parallel="snow")
)[3]
system.time(
#设定 cl
b<- boot(OrgData, f.boot, R=1000, parallel="snow", cl=3)
)[3]
Q<- b$t
#
cl<- makeCluster(3, type="SOCK")
registerDoParallel(cl)
system.time(
b<- boot(OrgData, f.boot, R=1000, parallel="snow", cl=cl)
)[3]
Q<- b$t
#用 foreach()%dopar%{}
cores<- makeCluster(3)
registerDoParallel(cores)
clusterExport(cores, list("OrgData"), envir=.GlobalEnv)
system.time(
Q<- foreach(b=1:1000 )%dopar%{
ii<- sample(1:100, 100, replace=T)
f.boot(OrgData, ii)
}
)[3]
stopCluster(cl)
以上四个方法分别用掉
elapsed 5.05, 3.28, 3.29, 2.61
单纯写 for 回圈
Q<- numeric()
system.time(
for(b in 1:1000 ){
ii<- sample(1:100, 100, replace=T)
Q[b]<- f.boot(OrgData, ii)
}
)[3]
elapsed
3.32
结果是第一种写法效能最差，第二种、第三种和纯用 for 回圈差不多，用 foreach()的
最好。
我有开工作管理员，只有 foreach 在执行时CPU有用到75%（全部四核心），其他都只有
25%在运作。
[关键字]:
选择性，也许未来有用
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 140.113.114.60
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/R_Language/M.1410503274.A.A7C.html
※ 编辑: roussas (140.113.114.60), 09/12/2014 14:28:23
※ 编辑: roussas (140.113.114.60), 09/12/2014 14:29:06
1F：→ andrew43: help(files) 耍笨了 sorry 09/14 19:18
2F：→ andrew43: 推错 sorry 09/14 19:18