diff --git a/R/elicitation.R b/R/elicitation.R
index d221b4c3f39724595c40ddcfc67386ddbeab75d1..fe63229af0c07ee8c9410ecfe5db7292eb0a9ac1 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))