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

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

R語言并行運算(snow包)

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

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
国产精品成熟老女人| 国产精品久久久久久久久久| 欧美丝袜美女中出在线| 亚洲视频在线观看视频| 最近2019中文字幕mv免费看| 日本久久久久久久久| 色哟哟入口国产精品| 中文字幕日韩在线观看| 中文字幕久久精品| 亚洲日本成人网| 日韩电影免费在线观看中文字幕| 国产97色在线|日韩| 久久精品国产69国产精品亚洲| 国产亚洲aⅴaaaaaa毛片| 欧美精品久久久久久久久久| 欧美壮男野外gaytube| 亚洲精品一二区| 亚洲少妇中文在线| 日韩高清不卡av| 成人黄色影片在线| 欧美成人国产va精品日本一级| 久久人人爽人人爽人人片av高请| 欧美综合第一页| 美女av一区二区| 91美女片黄在线观看游戏| 久久免费国产视频| 国产日韩换脸av一区在线观看| 欧美视频一二三| 欧美大片免费看| 精品久久在线播放| 91久久嫩草影院一区二区| 亚洲乱码国产乱码精品精| 国产主播喷水一区二区| 亚洲福利视频免费观看| 国产欧美日韩精品专区| 国产精品av电影| 久久精品国产一区二区三区| 欧美激情欧美激情在线五月| 亚洲综合精品伊人久久| 秋霞成人午夜鲁丝一区二区三区| 精品久久久久久久久久久久| 北条麻妃一区二区在线观看| 最新国产精品拍自在线播放| 亚洲理论在线a中文字幕| 夜夜躁日日躁狠狠久久88av| 青青久久aⅴ北条麻妃| 国产精品精品一区二区三区午夜版| 日韩精品极品在线观看播放免费视频| 久久精视频免费在线久久完整在线看| 日韩在线观看免费高清完整版| 欧美午夜宅男影院在线观看| 日韩高清免费在线| 欧美电影免费在线观看| 日本伊人精品一区二区三区介绍| 欧美成人精品一区二区三区| 萌白酱国产一区二区| 久久久欧美一区二区| 国产精品一区二区久久久久| 久久久影视精品| 亚洲乱码av中文一区二区| 国产91热爆ts人妖在线| 成人a级免费视频| 国产精品极品尤物在线观看| 亚洲欧美日韩天堂一区二区| 亚洲一区二区福利| 91地址最新发布| 97成人精品视频在线观看| 日韩欧美在线视频观看| 亚洲aaa激情| 黑人巨大精品欧美一区免费视频| 亚洲免费av片| 欧美性极品xxxx做受| 美女视频黄免费的亚洲男人天堂| 欧美激情免费看| 国产精品精品一区二区三区午夜版| 欧美日韩在线视频一区二区| 午夜精品福利电影| 国产精品久久999| 精品国产一区久久久| 日韩中文字幕国产精品| 国产精品入口尤物| 国产精品免费电影| 国产成人黄色av| xxav国产精品美女主播| www国产91| 亚洲午夜精品久久久久久久久久久久| 亚洲成av人片在线观看香蕉| 国产精品扒开腿做爽爽爽男男| 国外成人在线视频| 亚洲欧美日韩视频一区| 91麻豆桃色免费看| 最新91在线视频| 在线精品高清中文字幕| 欧美在线中文字幕| 国产91色在线播放| zzijzzij亚洲日本成熟少妇| 欧美亚洲视频一区二区| 97视频国产在线| 日韩中文字幕亚洲| 成人在线小视频| 国产精品99蜜臀久久不卡二区| 亚洲第一偷拍网| 一区二区欧美亚洲| 日韩欧美视频一区二区三区| 欧美黑人性视频| 精品视频9999| 最近的2019中文字幕免费一页| 国产精品高潮视频| 综合国产在线观看| 亚洲aⅴ日韩av电影在线观看| 欧美成人免费在线观看| 亚洲一区二区三区成人在线视频精品| 欧美大片欧美激情性色a∨久久| 91精品视频免费观看| 国产精品女主播视频| 97av在线影院| 国产精品成人免费电影| 亚洲精品乱码久久久久久按摩观| 欧美精品在线观看91| 国产日韩精品视频| 亚洲午夜未满十八勿入免费观看全集| 国产亚洲精品高潮| 欧美大片欧美激情性色a∨久久| 久久久精品久久久久| 欧美黑人性生活视频| 亚洲va欧美va国产综合剧情| 久久精品国产亚洲一区二区| 国产欧美欧洲在线观看| 亚洲人成五月天| 97在线视频观看| 91探花福利精品国产自产在线| 欧美巨乳在线观看| 欧美日韩国产影院| 国产精品99久久久久久久久| 亚洲天堂2020| 欧美成人精品在线| 日本欧美在线视频| 午夜免费久久久久| 日韩av免费在线| 欧美大片免费观看| 最近2019年日本中文免费字幕| 国产精品欧美风情| 亚洲成人黄色网| 2020欧美日韩在线视频| 成人性生交xxxxx网站| 日韩电影网在线| 成人在线视频网| 中文精品99久久国产香蕉| 91精品在线影院| 久久精品青青大伊人av| 九色精品美女在线| 久久艹在线视频| 国产suv精品一区二区| 91精品国产高清自在线| 亚洲人线精品午夜| 操人视频在线观看欧美| 日韩在线视频免费观看高清中文| 国产精品青青在线观看爽香蕉| 久久久999成人| 欧美日韩激情网| 欧美激情videoshd| 国产精品美乳在线观看| 亚洲欧美中文日韩v在线观看| 蜜臀久久99精品久久久无需会员|