From 5420e176311753f85cc6e1024c9a78d3b5d9263f Mon Sep 17 00:00:00 2001
From: aho <an.ho@bsc.es>
Date: Fri, 10 Nov 2023 14:20:10 +0100
Subject: [PATCH 1/2] Add citation file

---
 inst/CITATION | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 inst/CITATION

diff --git a/inst/CITATION b/inst/CITATION
new file mode 100644
index 0000000..8f040ce
--- /dev/null
+++ b/inst/CITATION
@@ -0,0 +1,22 @@
+citHeader("To cite package 's2dv' in publications use:")
+
+yr <- sub('.*(2[[:digit:]]{3})-.*', '\\1', meta$Date, perl = TRUE)
+if (length(yr) == 0) yr <- format(Sys.Date(), '%Y')
+
+bibentry(
+  bibtype = 'Manual',
+  title = paste0(meta$Package, ': ', meta$Title),
+  author = Filter(function(p) 'aut' %in% p$role, as.person(meta$Author)),
+  year = yr,
+  note = paste('R package version', meta$Version),
+  url = meta$URL
+)
+
+bibentry(
+  bibtype = "Misc",
+  author = c(person("Nicolau", "Manubens"), person("", "et al.")),
+  title = "An R package for climate forecast verification",
+  doi = "10.1016/j.envsoft.2018.01.018",
+  publisher = "Elsevier",
+  year = "2018"
+)
-- 
GitLab


From bf5808974059117146d7a03dcf125e15de7df704 Mon Sep 17 00:00:00 2001
From: aho <an.ho@bsc.es>
Date: Fri, 10 Nov 2023 14:39:18 +0100
Subject: [PATCH 2/2] Correct InsertDim() param names

---
 R/GetProbs.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/GetProbs.R b/R/GetProbs.R
index 25251ce..1ca34d8 100644
--- a/R/GetProbs.R
+++ b/R/GetProbs.R
@@ -286,8 +286,8 @@ GetProbs <- function(data, time_dim = 'sdate', memb_dim = 'member',
   } else { # abs_thresholds provided
     quantiles <- abs_thresholds
     if (length(dim(quantiles)) == 1) {
-      quantiles <- InsertDim(quantiles, len = dim(data)[1],
-                             pos = 2, name = names(dim(data))[1])
+      quantiles <- InsertDim(quantiles, lendim = dim(data)[1],
+                             posdim = 2, name = names(dim(data))[1])
     }
   }
   # quantiles: [bin-1, sdate]
-- 
GitLab