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

fix the oTableMaker bug

Browse Source
This commit is contained in:
hollorol 2018-05-05 08:15:18 +02:00
parent d672205c6c
commit a903bd2f8b
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
RBBGCMuso/R/OtableMaker.R
View File

@ -28,6 +28,9 @@ OtableMaker <- function(parametersReal){
sliced <- constMatrix %>% sliced <- constMatrix %>%
dplyr::filter(GROUP %in% groupIDs) 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() OTbig <- rbind(OT0,sliced) %>% data.frame()
parnumbers <- nrow(OTbig) parnumbers <- nrow(OTbig)
@ -36,7 +39,7 @@ OtableMaker <- function(parametersReal){
OTbig[i,3] <- OTF[OTF$INDEX==OTbig[i,1],2] OTbig[i,3] <- OTF[OTF$INDEX==OTbig[i,1],2]
OTbig[i,4] <- OTF[OTF$INDEX==OTbig[i,1],3] OTbig[i,4] <- OTF[OTF$INDEX==OTbig[i,1],3]
if(OTbig$Type[i]==2){ if(OTbig$Type[i]==2){
OTbig$DEPENDENCE[i] <-2 OTbig$DEPENDENCE[i] <- 2
} }
} }
} }
@ -48,3 +51,4 @@ OtableMaker <- function(parametersReal){
return(list(Otable=OTbig,driver=summaries)) return(list(Otable=OTbig,driver=summaries))
} }

1
RBBGCMuso/R/outputMapping.R
View File

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