From 0f5a7d8801bcd9a95c75d50386a593fa0017a082 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Wed, 27 Mar 2024 12:25:01 +0100
Subject: [PATCH] fix

---
 R/plot.check_model.R               | 10 +++++++++-
 R/plot.performance_simres.R        |  8 ++++++--
 man/plot.see_performance_simres.Rd |  7 ++++++-
 3 files changed, 21 insertions(+), 4 deletions(-)

diff --git a/R/plot.check_model.R b/R/plot.check_model.R
index d342abfe9..05e683b8b 100644
--- a/R/plot.check_model.R
+++ b/R/plot.check_model.R
@@ -105,6 +105,7 @@ plot.see_check_model <- function(x,
       size_point = size_point,
       base_size = base_size,
       size_axis_title = size_axis_title,
+      size_title = size_title,
       type = type,
       check_model = TRUE,
       adjust_legend = TRUE,
@@ -135,6 +136,7 @@ plot.see_check_model <- function(x,
       style = style,
       base_size = base_size,
       size_axis_title = size_axis_title,
+      size_title = size_title,
       colors = colors[c(2, 3, 1)],
       adjust_legend = TRUE,
       check_model = TRUE,
@@ -147,6 +149,8 @@ plot.see_check_model <- function(x,
       x$OVERDISPERSION,
       style = style,
       base_size = base_size,
+      size_axis_title = size_axis_title,
+      size_title = size_title,
       colors = colors[c(1, 2)],
       size_line = size_line,
       type = overdisp_type
@@ -212,13 +216,17 @@ plot.see_check_model <- function(x,
         colors = colors,
         detrend = detrend,
         style = style,
-        base_size = base_size
+        base_size = base_size,
+        size_axis_title = size_axis_title,
+        size_title = size_title
       )
     } else {
       p$QQ <- .plot_diag_qq(
         x$QQ,
         size_point = size_point,
         size_line = size_line,
+        size_axis_title = size_axis_title,
+        size_title = size_title,
         alpha_level = alpha_level,
         detrend = detrend,
         theme_style = style,
diff --git a/R/plot.performance_simres.R b/R/plot.performance_simres.R
index 5bf7d0830..a9c5801d6 100644
--- a/R/plot.performance_simres.R
+++ b/R/plot.performance_simres.R
@@ -33,13 +33,15 @@
 plot.see_performance_simres <- function(x,
                                         size_line = 0.8,
                                         size_point = 2,
+                                        size_title = 12,
+                                        size_axis_title = base_size,
+                                        base_size = 10,
                                         alpha = 0.2,
                                         dot_alpha = 0.8,
                                         colors = c("#3aaf85", "#1b6ca8"),
                                         detrend = FALSE,
                                         transform = NULL,
                                         style = theme_lucid,
-                                        base_size = 10,
                                         ...) {
   # need DHARMa to be installed
   insight::check_if_installed("DHARMa")
@@ -147,7 +149,9 @@ plot.see_performance_simres <- function(x,
     style(
       base_size = base_size,
       plot.title.space = 3,
-      axis.title.space = 5
+      axis.title.space = 5,
+      plot.title.size = size_title,
+      axis.title.size = size_axis_title
     )
 }
 
diff --git a/man/plot.see_performance_simres.Rd b/man/plot.see_performance_simres.Rd
index bbab57539..8457c3a5d 100644
--- a/man/plot.see_performance_simres.Rd
+++ b/man/plot.see_performance_simres.Rd
@@ -8,13 +8,15 @@
   x,
   size_line = 0.8,
   size_point = 2,
+  size_title = 12,
+  size_axis_title = base_size,
+  base_size = 10,
   alpha = 0.2,
   dot_alpha = 0.8,
   colors = c("#3aaf85", "#1b6ca8"),
   detrend = FALSE,
   transform = NULL,
   style = theme_lucid,
-  base_size = 10,
   ...
 )
 }
@@ -25,6 +27,9 @@
 
 \item{size_point}{Numeric specifying size of point-geoms.}
 
+\item{base_size, size_axis_title, size_title}{Numeric value specifying size of
+axis and plot titles.}
+
 \item{alpha}{Numeric value specifying alpha level of the confidence bands.}
 
 \item{dot_alpha}{Numeric value specifying alpha level of the point geoms.}