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

Update calibration.R

Browse Source
This commit is contained in:
Zoltán BARCZA 2020-01-07 14:59:02 +01:00 committed by GitHub
parent b7362c747e
commit cd8f16b3fe
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
RBBGCMuso/R/calibration.R
View File

@ -156,7 +156,7 @@ optiMuso <- function(measuredData, parameters = NULL, startDate = NULL,
geom_point(shape='.',size=1,alpha=0.8) geom_point(shape='.',size=1,alpha=0.8)
} }
ggsave(plotName,grid.arrange(grobs = p, ncol = floor(sqrt(ncol(preservedCalib)-1))),dpi = 4000) ggsave(plotName,grid.arrange(grobs = p, ncol = floor(sqrt(ncol(preservedCalib)-1))), dpi = 1000)
maxLikelihoodPlace <- which(preservedCalib[,"likelihood"]==max(preservedCalib[,"likelihood"],na.rm = TRUE)) maxLikelihoodPlace <- which(preservedCalib[,"likelihood"]==max(preservedCalib[,"likelihood"],na.rm = TRUE))
resPlot <- plotMusoWithData(mdata = mdata, startDate = startDate, endDate = endDate, resPlot <- plotMusoWithData(mdata = mdata, startDate = startDate, endDate = endDate,
dataVar = dataVar, modelVar = modelVar, settings = settings, continious = continious) + dataVar = dataVar, modelVar = modelVar, settings = settings, continious = continious) +