# NOT RUN {
curve(hotrod(1, 0.1, x, 0.7))
# check it's a probability density
f <- function(x) hotrod(1, 0.1, x, 0.7)
integrate(f, 0, 1)
## absorbing ends
curve(hotrod(1, 0.1, x, 0.7, ends="a"))
# }
Run the code above in your browser using DataLab