Ես փորձում եմ իմ սկրիպտում փոխարինել sapply-ն parSapply-ով, որպեսզի կրճատեմ գործարկման ժամանակը:
Ահա այն սցենարը, որը ես օգտագործում եմ տվյալների շրջանակի օրինակով.
library(relaimpo)
gene1 <- c(1, 2, 3, 4)
gene2 <- c(3,1,2, 4)
age <- c(20, 40, 60, 10)
gender <- c("F", "M", "F", "F")
datatest<- data.frame(gene1, gene2, age, gender)
TEST<-sapply(datatest[,(1:2)], function(i) calc.relimp(lm(i ~ age+gender, data=datatest))$lmg)
##until now it works; Here is when I replace sapply by parSapply:
cl <- makeCluster(4)
TEST2 <- parSapply(cl, datatest[,(1:2)], function(i) calc.relimp(lm(i ~ age+gender, data=datatest))$lmg)
Ես ստանում եմ այս սխալի հաղորդագրությունը.
Սխալ checkForRemoteErrors(val)-ում. 2 հանգույց առաջացրել է սխալներ; առաջին սխալ. չհաջողվեց գտնել «calc.relimp» ֆունկցիան
Ինչ-որ մեկը գիտի, թե ինչպես դա շտկել: Նախապես շատ շնորհակալություն!!!
Լավագույնը,
Բերենգեր