Returns a function that evaluates the Weibull hazard rate h(t)=(shape/scale)(t/scale)shape1 for t>0.

# S3 method for class 'weibull_dist'
hazard(x, ...)

Arguments

x

A weibull_dist object.

...

Additional arguments (not used).

Value

A function function(t, log = FALSE) returning the hazard (or log-hazard) at t.

Examples

x <- weibull_dist(shape = 2, scale = 3)
h <- hazard(x)
h(1)
#> [1] 0.2222222
h(3)
#> [1] 0.6666667