added check to have at least one ensemble model asked for

Rémi Patin · Rémi Patin · commit 041ae73b93fc · 2022-11-09T16:18:47.000+01:00
diff --git a/R/BIOMOD_EnsembleModeling.R b/R/BIOMOD_EnsembleModeling.R
@@ -820,6 +820,9 @@ BIOMOD_EnsembleModeling <- function(bm.mod,
     stop("You must choose metric.select if you want to compute Committee Averaging or Probability Weighted Mean algorithms")
   }
   
+  if(all(! c(prob.mean, prob.median, prob.cv, prob.ci, committee.averaging, prob.mean.weight))){
+    stop("at least one of prob.mean, prob.cv, prob.ci, prob.median, committee.averaging and prob.mean.weight must be set to TRUE")
+  }
   ## 6.1 Check alpha for Confident interval
   if (prob.ci) {
     .fun_testIfPosNum(TRUE, "prob.ci.alpha", prob.ci.alpha)

Original file line number	Diff line number	Diff line change
`@@ -820,6 +820,9 @@ BIOMOD_EnsembleModeling <- function(bm.mod,`
`820`	`820`	`stop("You must choose metric.select if you want to compute Committee Averaging or Probability Weighted Mean algorithms")`
`821`	`821`	`}`
`822`	`822`
	`823`	`+ if(all(! c(prob.mean, prob.median, prob.cv, prob.ci, committee.averaging, prob.mean.weight))){`
	`824`	`+ stop("at least one of prob.mean, prob.cv, prob.ci, prob.median, committee.averaging and prob.mean.weight must be set to TRUE")`
	`825`	`+ }`
`823`	`826`	`## 6.1 Check alpha for Confident interval`
`824`	`827`	`if (prob.ci) {`
`825`	`828`	`.fun_testIfPosNum(TRUE, "prob.ci.alpha", prob.ci.alpha)`