У меня проблема с 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))
}