diff --git a/R/GetProbs.R b/R/GetProbs.R index 59304b4e673775438231f94bfcc1d3f5aabeee19..9960c53ff3604d6f1fff182290d647fea449df5b 100644 --- a/R/GetProbs.R +++ b/R/GetProbs.R @@ -151,8 +151,6 @@ GetProbs <- function(data, time_dim = 'sdate', memb_dim = 'member', indices_for_ output_dims = c("bin", time_dim), fun = .GetProbs, # dat_dim = dat_dim, - time_dim = time_dim, - memb_dim = memb_dim, prob_thresholds = prob_thresholds, indices_for_quantiles = indices_for_quantiles, weights = weights, cross.val = cross.val, ncores = ncores)$output1 @@ -160,7 +158,7 @@ GetProbs <- function(data, time_dim = 'sdate', memb_dim = 'member', indices_for_ return(res) } -.GetProbs <- function(data, time_dim = 'sdate', memb_dim = 'member', indices_for_quantiles = NULL, +.GetProbs <- function(data, indices_for_quantiles, prob_thresholds = c(1/3, 2/3), weights = NULL, cross.val = FALSE) { # .GetProbs() is used in RPS, RPSS, ROCSS # data