vignettes_src/fault2.R

stochastic_failure <- function(p) {
  x <- runif(1)
  if (x < p) {
    stop(sprintf("Convergence failure - x is only %0.2f", x))
  }
  x
}
richfitz/rrq documentation built on July 15, 2024, 8:12 p.m.