# 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