From a2ac71ed07d9bbd16b08f30c7f2a107abb1aaa39 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roland=20Holl=C3=B3s?= Date: Fri, 3 Jan 2020 15:22:21 +0100 Subject: [PATCH] Bigger GLUE image --- 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 7c68c25..1bc47e4 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 = 300) + ggsave(plotName,grid.arrange(grobs = p, ncol = floor(sqrt(ncol(preservedCalib)-1))),dpi = 10000) 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) +