我对R有疑问。 该函数在调用时给我
"could not find function "%dorng%"
我缺少一些包裹吗?
我已经完成install.packages("doRNG")
的安装,已成功安装。
编辑:与安装rngtools
和foreach
相同。
.algorithmA_1 <- function(binaryMatrix, alpha, beta, tries, p){
allResults <- foreach(thisTry = 1:tries) %dorng% {
res1 <- .BicBin(binaryMatrix, alpha, beta, p, proc_genes=TRUE) # Algorithm A_1 by columns
res2 <- .BicBin(binaryMatrix, alpha, beta, p, proc_genes=FALSE) # Algorithm A_1 by rows
if(res1$score > res2$score)
return(res1)
else
return(res2)
}
maxCoords <- allResults[[which.max(sapply(allResults, function(x) x$score))]]
return(list(rows=(maxCoords$x == 1), cols=(maxCoords$y == 1), score=maxCoords$score))
}
答案 0 :(得分:1)
安装软件包doRNG
并附加库:
install.packages("doRNG")
library(doRNG)