From f3fa17d2209f46d70dfe823a4277ea32c10dc223 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roland=20Holl=C3=B3s?= Date: Fri, 8 Feb 2019 16:57:44 +0100 Subject: [PATCH] Solving musoRand bug finally. --- RBBGCMuso/R/musoRand.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RBBGCMuso/R/musoRand.R b/RBBGCMuso/R/musoRand.R index 477bd17..bb995cc 100644 --- a/RBBGCMuso/R/musoRand.R +++ b/RBBGCMuso/R/musoRand.R @@ -18,7 +18,7 @@ musoRand <- function(parameters, constrains = NULL, iterations=3000){ constMatrix <- constMatrix[,-1] depTableMaker <- function(constMatrix,parameters){ - ## parameters <- parameters[order(parameters[,1]),] ## BUG!!! + parameters <- parameters[order(parameters[,1]),] ## BUG!!! selectedRows <- constMatrix[,"INDEX"] %in% parameters[,1] rankList <- rank(constMatrix[selectedRows,2]) constMatrix[selectedRows,c(5,6)] <- parameters[rankList,c(2,3)]