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

fix typo in calibration.R

Browse Source
This commit is contained in:
Roland Hollós 2019-03-04 10:44:49 +01:00
parent 2bfe5d6dba
commit 59cd97679c
1 changed files with 30 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
RBBGCMuso/R/calibration.R
View File

@ -140,18 +140,21 @@ optiMuso <- function(measuredData, parameters = NULL, startDate,
randValues[,randVals[[1]] %in% parameters[,2]][,randInd]) randValues[,randVals[[1]] %in% parameters[,2]][,randInd])
preservedCalib <- cbind(epcStrip,rmsr, preservedCalib <- cbind(epcStrip,rmse,
modellOut) modellOut)
colnames(preservedCalib) <- c(parameterNames[paramLines], "likelihood") columNames <- c(parameterNames[paramLines],"rmse", "likelihood")
colnames(preservedCalib) <- columNames
write.csv(preservedCalib,"preservedCalib.csv")
p<-list() p<-list()
preservedCalib <- preservedCalib[-1,]
for(i in seq_along(colnames(preservedCalib)[-ncol(preservedCalib)])){ dontInclude <-c((ncol(preservedCalib)-1),ncol(preservedCalib))
for(i in seq_along(colnames(preservedCalib)[-dontInclude])){
p[[i]] <- ggplot(as.data.frame(preservedCalib),aes_string(colnames(preservedCalib)[i],"likelihood"))+geom_point(size=0.9) p[[i]] <- ggplot(as.data.frame(preservedCalib),aes_string(colnames(preservedCalib)[i],"likelihood"))+geom_point(size=0.9)
} }
ggsave(plotName,grid.arrange(grobs = p, ncol = floor(sqrt(ncol(preservedCalib)-1))),dpi = 3000) ggsave(plotName,grid.arrange(grobs = p, ncol = floor(sqrt(ncol(preservedCalib)-1))),dpi = 3000)
write.csv(preservedCalib,"preservedCalib.csv")
return(preservedCalib[preservedCalib[,"likelihood"]==max(preservedCalib[,"likelihood"]),]) return(preservedCalib[preservedCalib[,"likelihood"]==max(preservedCalib[,"likelihood"],na.rm = TRUE),])
} }