Creates a sampler function for use with with_restarts that
generates uniformly distributed starting points.
Examples
sampler <- uniform_sampler(c(-10, 0.1), c(10, 5))
strategy <- gradient_ascent() %>% with_restarts(n = 20, sampler = sampler)
#> Error in gradient_ascent() %>% with_restarts(n = 20, sampler = sampler): could not find function "%>%"