hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Solving musoRand bug finally.

Browse Source
This commit is contained in:
Roland Hollós 2019-02-08 16:57:44 +01:00
parent 6ef8f32a72
commit f3fa17d220
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
RBBGCMuso/R/musoRand.R
View File

@ -18,7 +18,7 @@ musoRand <- function(parameters, constrains = NULL, iterations=3000){
constMatrix <- constMatrix[,-1] constMatrix <- constMatrix[,-1]
depTableMaker <- function(constMatrix,parameters){ depTableMaker <- function(constMatrix,parameters){
## parameters <- parameters[order(parameters[,1]),] ## BUG!!! parameters <- parameters[order(parameters[,1]),] ## BUG!!!
selectedRows <- constMatrix[,"INDEX"] %in% parameters[,1] selectedRows <- constMatrix[,"INDEX"] %in% parameters[,1]
rankList <- rank(constMatrix[selectedRows,2]) rankList <- rank(constMatrix[selectedRows,2])
constMatrix[selectedRows,c(5,6)] <- parameters[rankList,c(2,3)] constMatrix[selectedRows,c(5,6)] <- parameters[rankList,c(2,3)]