Fix pdf for UvBinnedDist

Was failing at right edge of last bin.

Author: oschulz

src/uv_binned_dist.jl

@@ -97,7 +97,7 @@ Distributions.maximum(d::UvBinnedDist) = last(d._edge)
 function Distributions.pdf(d::UvBinnedDist{T,U}, x::Real) where {T,U}
     if insupport(d, x)
         i = _find_bin(d._edge, d._closed_left, x)
-        convert(U, d._bin_pdf[i])
+        i <= lastindex(d._bin_pdf) ? convert(U, d._bin_pdf[i]) : zero(U)
     else
         zero(U)
     end

test/test_uv_binned_dist.jl

@@ -54,6 +54,8 @@ using Adapt, ForwardDiff
     @test isapprox(pdf.(Ref(d), r), pdf.(Ref(true_dist), r), rtol = 0.1)
     @test @inferred(pdf(d, 1000)) == 0
     @test @inferred(pdf(d, -1000)) == 0
+    @test @inferred(pdf(d, first(h.edges[1]))) == 0
+    @test @inferred(pdf(d, last(h.edges[1]))) == 0
 
     @test @inferred(logpdf(d, r[1])) == log(pdf(d, r[1]))
     @test @inferred(logpdf(d, 1000)) == -Inf