ฉันมี 2 สคริปต์ที่ทำสิ่งเดียวกัน
แต่หนึ่งสคริปต์กำลังสร้างไฟล์ RData 3 ไฟล์ที่มีน้ำหนัก 82.7 KB และอีกสคริปต์หนึ่งสร้างไฟล์ RData 3 ไฟล์ที่มีน้ำหนัก 120 KB
คนแรกไม่มีขนาน:
library("plyr")
ddply(.data = iris,
.variables = "Species",
##.parallel=TRUE,##Without parallel
.fun = function(SpeciesData){
#Create Simple Model -------------------------------------------------------------
Model <- lm(formula = "Sepal.Length~Sepal.Width+Petal.Length+Petal.Width",data = SpeciesData)
#Save The Model -------------------------------------------------------------
save(Model,
compress = FALSE,
file = gsub(x = "Species.RData",
pattern = "Species",
replacement = unique(SpeciesData$Species)))
})
ประการที่สองคือแบบขนาน:
library("plyr")
doSNOW::registerDoSNOW(cl<-snow::makeCluster(3))
ddply(.data = iris,
.variables = "Species",
.parallel=TRUE,##With parallel
.fun = function(SpeciesData){
#Create Simple Model -------------------------------------------------------------
Model <- lm(formula = "Sepal.Length~Sepal.Width+Petal.Length+Petal.Width",data = SpeciesData)
#Save The Model -------------------------------------------------------------
save(Model,
compress = FALSE,
file = gsub(x = "Species.RData",
pattern = "Species",
replacement = unique(SpeciesData$Species)))
})
snow::stopCluster(cl)
สคริปต์ที่สองสร้างไฟล์ที่มีน้ำหนักมากกว่า 42%
ฉันจะบันทึกไฟล์แบบขนานโดยไม่เพิ่มขนาดไฟล์โดยอัตโนมัติได้อย่างไร
r lang lock file
และหลังจาก 5 วินาทีคุณจะพบแพ็คเกจที่ต้องการcran.r-project.org/web/packages/filelock/filelock.pdf