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

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

R語言并行運算(snow包)

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

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
久久精品国亚洲| 亚洲视频专区在线| 日本sm极度另类视频| 97视频在线观看网址| 国产精品高精视频免费| 91沈先生作品| 91系列在线观看| 亚洲xxxx视频| 日韩欧美999| 久久综合网hezyo| 久久精品成人欧美大片古装| 欧美最猛性xxxxx(亚洲精品)| 国产在线98福利播放视频| 91欧美激情另类亚洲| 国产精品白嫩美女在线观看| 欧美最猛黑人xxxx黑人猛叫黄| 一本一本久久a久久精品综合小说| 亚洲精品av在线播放| 午夜精品蜜臀一区二区三区免费| 热久久这里只有精品| 国产在线精品播放| 日韩视频在线观看免费| 456国产精品| 亚洲天堂男人的天堂| 亚洲成人黄色在线| 萌白酱国产一区二区| 欧美日本精品在线| 国产亚洲免费的视频看| 69久久夜色精品国产69| 欧美精品videos另类日本| 国产偷国产偷亚洲清高网站| 欧美一二三视频| 日韩视频第一页| 国产成人精品久久久| 中文字幕精品影院| 日本久久中文字幕| 97热在线精品视频在线观看| 日韩成人高清在线| 久久久精品一区| 国产欧美日韩亚洲精品| 国产日韩欧美夫妻视频在线观看| 亚洲成人精品久久| 亚洲国产精品一区二区三区| 亚洲综合中文字幕68页| 26uuu另类亚洲欧美日本一| 精品国产福利视频| 久久久久久久久久久成人| 日韩av在线网站| 国产日韩av在线播放| 69久久夜色精品国产7777| 国产成人亚洲综合91精品| 亚洲欧美日本伦理| 国产中文欧美精品| 中文字幕在线视频日韩| 国产精品十八以下禁看| 午夜精品久久久99热福利| 91理论片午午论夜理片久久| 亚洲va久久久噜噜噜久久天堂| 亚洲欧美制服丝袜| 欧美性jizz18性欧美| 97精品久久久中文字幕免费| 国产91对白在线播放| 国产精品aaaa| 91福利视频在线观看| 91在线观看免费高清完整版在线观看| 国产精品视频网| 欧美性猛xxx| 欧美韩国理论所午夜片917电影| 中文字幕在线国产精品| 久久久久久久久久久久久久久久久久av| 91网站免费看| 国产成人精品在线视频| 亚洲国产高潮在线观看| 欧美日韩性视频| 精品五月天久久| 国产一区二区三区高清在线观看| 国产精品一区二区久久久久| 日韩免费观看网站| 精品香蕉一区二区三区| 国产999在线观看| 国模私拍视频一区| 91精品啪aⅴ在线观看国产| 亚洲日本中文字幕| 亚洲娇小xxxx欧美娇小| 久久成人av网站| 久久精品久久久久| 午夜剧场成人观在线视频免费观看| 亚洲成av人影院在线观看| 午夜精品久久久久久久久久久久| 国产一区二区三区三区在线观看| 国产日韩视频在线观看| 亚洲欧美综合区自拍另类| 欧美成人一区二区三区电影| 国产亚洲欧美另类中文| 久久99久久99精品免观看粉嫩| 亚洲国产小视频在线观看| 成人免费淫片aa视频免费| 国产精品igao视频| 国产精品欧美日韩| 欧美日韩国产成人在线| 欧美成人免费全部| 国产丝袜高跟一区| 2019精品视频| 日韩高清电影好看的电视剧电影| 亚洲成人xxx| 久久全球大尺度高清视频| 国产精品久久久久久久久免费| 亚洲欧洲日产国码av系列天堂| 国产精品99久久久久久白浆小说| 日韩电影中文 亚洲精品乱码| 粉嫩av一区二区三区免费野| 日韩中文字幕精品视频| 日本精品视频在线观看| 欧美日韩国产999| 欧美午夜宅男影院在线观看| 国产69精品久久久久久| 神马国产精品影院av| 久久精品成人一区二区三区| 日韩av影片在线观看| 国产+成+人+亚洲欧洲| 久久成人精品一区二区三区| 欧美一区二区三区……| 久久久人成影片一区二区三区观看| 日韩精品免费一线在线观看| 国产综合久久久久久| 日韩av片永久免费网站| 亚洲精品美女久久久| 欧美激情视频网站| 欧美日韩一区二区在线| 欧美精品免费在线观看| 色阁综合伊人av| 色哟哟入口国产精品| www.国产一区| 久久福利视频网| 懂色av一区二区三区| 欧美亚洲激情在线| 7777免费精品视频| 日韩电影中文 亚洲精品乱码| 91po在线观看91精品国产性色| 亚洲国产一区二区三区四区| 黄色成人在线播放| 三级精品视频久久久久| 91麻豆国产精品| 国产一区二区三区三区在线观看| 国产成人亚洲综合91精品| 久久久99久久精品女同性| 欧美亚洲午夜视频在线观看| 亚洲国产欧美久久| 成人免费观看a| 成人xxxxx| 亚洲国产婷婷香蕉久久久久久| 欧美激情在线有限公司| 亚洲欧美日韩天堂一区二区| 亚洲一区二区三区四区在线播放| 热久久这里只有| 91国产精品视频在线| 午夜精品三级视频福利| 日韩在线小视频| 欧美大荫蒂xxx| 草民午夜欧美限制a级福利片| 久久久久久国产精品美女| 精品调教chinesegay| 午夜精品一区二区三区视频免费看| 国产激情999|