liesInSupport(Exp(1), rnorm(10))
# note
x <- rpois(10, lam = 10)
liesInSupport(Pois(1), x)
# better
distroptions("TruncQuantile"=1e-15)
liesInSupport(Pois(1), x)
distroptions("TruncQuantile"=1e-05) # default
Run the code above in your browser using DataCamp Workspace