From 4009173d8eef27c1733bf8703f6db1bf57f37331 Mon Sep 17 00:00:00 2001
From: aho <an.ho@bsc.es>
Date: Mon, 20 Mar 2023 13:36:17 +0100
Subject: [PATCH] Add default value to atomic function

---
 R/ResidualCorr.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/ResidualCorr.R b/R/ResidualCorr.R
index 8d9f040..6f03ece 100644
--- a/R/ResidualCorr.R
+++ b/R/ResidualCorr.R
@@ -199,7 +199,8 @@ ResidualCorr <- function(exp, obs, ref, N.eff = NA, time_dim = 'sdate',
   return(output)
 }
 
-.ResidualCorr <- function(exp, obs, ref, N.eff, method, alpha, handle.na) {
+.ResidualCorr <- function(exp, obs, ref, N.eff = NA, method = 'pearson', alpha = NULL, 
+                          handle.na = 'return.na') {
   # exp and ref and obs: [time]
   .residual.corr <- function(exp, obs, ref, method, N.eff, alpha) {
 
-- 
GitLab