From cd8f16b3fe899ad470792495ddfe0a58b7b5cf65 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Zolt=C3=A1n=20BARCZA?= Date: Tue, 7 Jan 2020 14:59:02 +0100 Subject: [PATCH] Update calibration.R --- RBBGCMuso/R/calibration.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RBBGCMuso/R/calibration.R b/RBBGCMuso/R/calibration.R index 5fa07e1..fcf4135 100644 --- a/RBBGCMuso/R/calibration.R +++ b/RBBGCMuso/R/calibration.R @@ -156,7 +156,7 @@ optiMuso <- function(measuredData, parameters = NULL, startDate = NULL, 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)) resPlot <- plotMusoWithData(mdata = mdata, startDate = startDate, endDate = endDate, dataVar = dataVar, modelVar = modelVar, settings = settings, continious = continious) +