fix the oTableMaker bug

RBBGCMuso/R/OtableMaker.R

@@ -28,6 +28,9 @@ OtableMaker <- function(parametersReal){
 
   sliced <- constMatrix %>%
       dplyr::filter(GROUP %in% groupIDs)
+  slicedIndexes<- which(sliced[,"INDEX"] %in% intersect(sliced[,"INDEX"],otfIndexes))
+  sliced[slicedIndexes,c("MIN","MAX")] <- OTF[which(OTF["GROUP"] == groupIDs),c("MIN","MAX")]
+  
   OTbig <- rbind(OT0,sliced) %>% data.frame()
   parnumbers <- nrow(OTbig)
 
@@ -48,3 +51,4 @@ OtableMaker <- function(parametersReal){
   return(list(Otable=OTbig,driver=summaries))
 
 }
+

RBBGCMuso/R/outputMapping.R

@@ -44,3 +44,4 @@ musoMappingFind <- function(variable=NULL){
                             mMapping[grep(variable,mMapping[,2]),]
                     }
 }
+