From 030ad2eba1744d8f83edb511ee5cf56b1bf172e2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roland=20Holl=C3=B3s?= Date: Thu, 28 May 2020 10:10:24 +0200 Subject: [PATCH] bugfix single objective --- RBBGCMuso/R/calibration.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RBBGCMuso/R/calibration.R b/RBBGCMuso/R/calibration.R index 54ce8ba..3b27bd2 100644 --- a/RBBGCMuso/R/calibration.R +++ b/RBBGCMuso/R/calibration.R @@ -221,7 +221,7 @@ musoGlue <- function(preservedCalib, w){ },w,forCombine)), 1, sum) } else { - preservedCalib[["combined"]] <- grep("likelihood",colnames(preservedCalib),value=TRUE) + preservedCalib[["combined"]] <- preservedCalib[,grep("likelihood",colnames(preservedCalib),value=TRUE)] } parameterIndexes <- 1:(min(likeIndexes))