Sampler for non-dist objects (degenerate distributions).

# Default S3 method
sampler(x, ...)

Arguments

x

The object to sample from

...

Additional arguments to pass

Value

A function that takes n and returns n copies of x

Examples

s <- sampler(5)
s(3)  # returns c(5, 5, 5)
#> [1] 5 5 5