trunc_geom function

Geometric distribution sampler truncated to a maximum