From af5e404f2857b86947caae7bf28b4697a0b8740e Mon Sep 17 00:00:00 2001
From: thierrychambert <thierry.chambert@gmail.com>
Date: Wed, 11 Aug 2021 16:53:56 +0200
Subject: [PATCH] correction in elicitation function to avoid issues when
elicited values are 0
---
R/elicitation.R | 2 ++
1 file changed, 2 insertions(+)
diff --git a/R/elicitation.R b/R/elicitation.R
index d221b4c..fe63229 100644
--- a/R/elicitation.R
+++ b/R/elicitation.R
@@ -44,6 +44,8 @@
#'
elicitation <- function(vals, Cp, weights = 1, lower = 0, upper = Inf){
+ vals[vals == 0] <- min(min(vals[vals != 0])/100, 0.0001)
+
# Get probability of quantiles
probs <- sapply(X = Cp, FUN = function(Cp) c((1-Cp)/2, 0.5, Cp+(1-Cp)/2))
--
GitLab