亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

R語言并行運算(snow包)

2019-11-10 17:50:06
字體:
來源:轉載
供稿:網友

snow包

snow包主要運行于傳統的集群計算。它主要用于蒙特卡洛模擬(Monte Carlo simulations),boostrapping,交叉驗證(cross validation),集成機器學習算法(ensemble machine learning algorithms)和K均值聚類(K-Means clustering)等,并且也很好支持并行隨機數的生成。 snow包的安裝一般應用install.packages('snow'). 要使用snow包進行并行運算,首先要創建一個集群對象,主要用于與內核的交互,一般傳遞與snow包中函數的第一個參數。 基本的集群創建函數為makeCluster(),它能創建任何類型的集群,例如,在本地機器上創建一個4核的集群:

cl <- makeCluster(4, type="SOCK")

第一個參數為集群設定,即設定使用的CPU數;第二個參數是集群類型。 注意:在結束集群時使用stopCluster()。 下面使用snow包做一個并行運算。

并行運算K均值聚類

數據是MASS包自帶的Boston數據集。 K均值函數使用stats包中的kmeans()

library(MASS)result <- kmeans(Boston, 4, nstart = 100)

在使用并行計算前,首先看看使用lapply函數的運行情況

results <- lapply(rep(25,4), function(nstart) kmeans(Boston, 4, nstart = nstart)i <- sapply(results, function(result) result$tot.withiness)result <- results[[which.min(i)]]

使用clusterApply并行計算

library(snow)cl <- makeCluster(4, type="SOCK")ignore <- clusterEvalQ(cl, {library(MASS); NULL}) #用clusterEvalQ函數初始化內核,在每一個內核中載入包results <- clusterApply(cl, rep(25, 4), function(nstart) kmeans(Boston, 4, nstart=nstart)) #parallel computingi <- sapply(results, function(result) result$tot.withinss)result <- results[[which.min(i)]]

相比較clusterEvalQ而言,clusterCall更好用,它的第一個參數為集群對象,第二個參數為一個函數,并且其他的參數可以傳遞給這個函數。最終返回一個列表。

clusterCall(cl, function() { library(MASS); NULL })

clusterCall函數可以調用多個包,

worker.init <- function(packages) {for (p in packages) {library(p, character.only=TRUE)}NULL}clusterCall(cl, worker.init, c('MASS', 'boot'))

character.only=TRUE是使library把參數解釋為字符向量,否則library會重復載入名稱為p的包。

使用clusterApplyLB并行運算

clusterApplyLBclusterApply函數相似,但clusterApplyLB的運行效率更高。在使用clusterApply并行運算時,如果每一個內核花費不同的時間進行運算,那么在那個運行時間長的內核結束之前,運行時間短的內核不能進行下一次運算,而clusterApplyLB不同,它是在運行時間短的內核結束之后接著就運行下一次的運算,這樣就減少了時間的浪費,因此提高了效率。 為了說明clusterApplyLB的效率,我們使用控制任務時間長度的函數Sys.sleep。用snow.time收集整個執行過程的時間信息。

set.seed(7777442)sleeptime <- abs(rnorm(10, 10, 10))tm <- snow.time(clusterApplyLB(cl, sleeptime, Sys.sleep))plot(tm)

clusterApplyLB 作為對照,我們用clusterApply函數來觀察運行時間

tm1 <- snow.time(clusterApply(cl, sleeptime, Sys.sleep))plot(tm1)

clusterApply 由此看出clusterApplyLB效率更高。

使用parLapply并行運算

parLapply是snow包中的一個高級函數,它比clusterApply函數更高效,如果參數x的長度與內核的數量相等,parLapply的優勢不明顯,如果參數x的長度遠大于內核的數量,parLapply相比于clusterApply是一個更好的選擇。 應用一個并行休眠函數的用法,首先使用clusterApply

bigsleep <- function(sleeptime, mat) Sys.sleep(sleeptime)bigmatrix <- matrix(0, 2000, 2000)sleeptime <- rep(1, 100)tm2 <- snow.time(clusterApply(cl, sleeptime, bigsleep, bigmatrix))plot(tm2)

clusterApply 由圖看出并不高效,因為有大量的輸入輸出時間,下面再試一試clusterApplyLB

tm3 <- snow.time(clusterApplyLB(cl, sleeptime, bigsleep, bigmatrix))plot(tm3)

clusterApplyLB 由上圖看出,運算集中在第1、2和3個內核上,第4個內核上運算的時間非常少,及運算效率差,但總體還是比clusterApply函數要好一些。 看看最終的函數parLapply

tm4 <- snow.time(parLapply(cl, sleeptime, bigsleep, bigmatrix))plot(tm4)

parLapply 由此看出,傳輸交換的時間大大縮短了,因此提高了效率。

參考文獻 1. Luke Tierney, A. J. Rossini, Na Li, H. Sevcikova, package snow. 2. Q. Ethan McCallum and Stephen Weston, Parallel R.


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
国产成人综合精品| 亚洲女人初尝黑人巨大| 欧美黄色片免费观看| 国产精品美乳在线观看| 亚洲成人av中文字幕| 国产欧美一区二区三区四区| 狠狠躁18三区二区一区| 日韩av免费看网站| 欧美在线观看一区二区三区| 日韩激情片免费| 成人国内精品久久久久一区| 亚洲欧美中文日韩在线v日本| 美日韩精品免费视频| 久久99久久99精品免观看粉嫩| 国产精品旅馆在线| 欧美精品电影免费在线观看| xx视频.9999.com| 日韩欧美在线视频日韩欧美在线视频| 亚洲香蕉av在线一区二区三区| 亚洲免费影视第一页| 日本欧美在线视频| 日韩女优人人人人射在线视频| 自拍偷拍免费精品| 国产日韩专区在线| 精品国产老师黑色丝袜高跟鞋| 国产精品一区二区三区成人| 欧美日韩另类字幕中文| 国模叶桐国产精品一区| 国产精品中文字幕在线观看| 欧美一区二区色| 日韩精品在线免费播放| 国产成人精品一区二区在线| 日韩精品日韩在线观看| 97国产真实伦对白精彩视频8| 久久影视免费观看| 亚洲国产99精品国自产| 日韩欧美在线视频免费观看| 欧美午夜久久久| 国产精品伦子伦免费视频| 午夜精品福利在线观看| 欧美日韩国产精品一区二区不卡中文| 久久综合久久88| 欧美激情精品在线| 国产精品视频导航| 成人欧美在线观看| 欧美国产精品人人做人人爱| 久久精品中文字幕| 日韩精品亚洲视频| 亚洲精品有码在线| 久久成年人视频| 97超碰国产精品女人人人爽| 国产精品丝袜视频| 久久人人爽亚洲精品天堂| 色偷偷偷综合中文字幕;dd| 国内精品久久久| 日韩成人在线网站| 狠狠躁夜夜躁人人躁婷婷91| 日韩欧美第一页| 日韩精品一二三四区| 亚洲视频第一页| 亚洲色图激情小说| 精品一区电影国产| 45www国产精品网站| 国产精品成熟老女人| 久久国产精品视频| 91在线无精精品一区二区| 国产精品v片在线观看不卡| 亚洲在线免费看| 国产精品久久久久7777婷婷| 欧美日韩亚洲精品内裤| 97久久久免费福利网址| 欧美中文字幕在线| 69久久夜色精品国产69乱青草| 日韩av手机在线看| 国产精品欧美激情| 精品国产欧美一区二区五十路| 国产精品成人aaaaa网站| 26uuu另类亚洲欧美日本一| 欧美激情奇米色| 精品毛片网大全| 永久免费看mv网站入口亚洲| www.xxxx精品| 久久天天躁日日躁| 国产亚洲xxx| 51ⅴ精品国产91久久久久久| 日韩极品精品视频免费观看| 欧美电影在线观看网站| 亚洲人成伊人成综合网久久久| 日韩亚洲精品电影| 韩国精品美女www爽爽爽视频| 萌白酱国产一区二区| 久久久久久久久久久91| 国产一区二区精品丝袜| 亚洲国产日韩欧美在线99| 久久99久久久久久久噜噜| 中文在线资源观看视频网站免费不卡| 亚洲欧洲国产精品| 97色在线观看免费视频| 久久不射电影网| 国产日韩在线亚洲字幕中文| 国产丝袜精品视频| 久久不射热爱视频精品| 日韩欧美国产黄色| 91系列在线观看| 午夜剧场成人观在线视频免费观看| 精品国产一区二区三区在线观看| 蜜臀久久99精品久久久无需会员| 欧美激情视频免费观看| 欧美成人在线免费| 亚洲国产成人在线视频| 精品国产91久久久久久老师| 狠狠躁夜夜躁久久躁别揉| 91国内精品久久| 欧美老少配视频| 欧美黑人极品猛少妇色xxxxx| 亚洲va欧美va在线观看| 久久伊人免费视频| 亚洲第五色综合网| 伊人久久久久久久久久久| 久久69精品久久久久久久电影好| 国产欧美日韩视频| 久久久www成人免费精品张筱雨| 欧美一级淫片videoshd| 日韩av一区在线观看| 91欧美精品午夜性色福利在线| 日本精品久久久久影院| 91在线色戒在线| 国产精品99免视看9| 亚洲精品视频二区| 亚洲精品美女网站| 欧美高清在线视频观看不卡| 成人激情视频在线观看| 日韩av免费看网站| 91精品在线一区| 精品呦交小u女在线| 91精品国产91久久久久福利| 精品亚洲一区二区三区在线播放| 美女福利视频一区| 国产精品美女www爽爽爽视频| 国内揄拍国内精品少妇国语| 国产精品成久久久久三级| 国产91网红主播在线观看| 久久精品国产久精国产思思| 国产精品久久久久久久天堂| 国产成人精品一区| 国产精品视频久| 26uuu另类亚洲欧美日本老年| 岛国av一区二区| 欧美在线不卡区| 91精品免费久久久久久久久| 97av在线视频免费播放| 日韩av免费在线| 国产91色在线免费| 国内精品久久久久| 91色p视频在线| 亚洲精品av在线播放| 日韩电影免费在线观看| 高清日韩电视剧大全免费播放在线观看| 欧美日韩精品在线观看| 亚洲风情亚aⅴ在线发布| 色诱女教师一区二区三区| 亚洲二区在线播放视频| 亚洲欧美日韩国产精品| 欧美在线观看网址综合|