bugfix single objective

This commit is contained in:
Roland Hollós 2020-05-28 10:10:24 +02:00
parent 88d681fe65
commit 030ad2eba1

View File

@ -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))