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
}
mrc-ide/rrq documentation built on May 1, 2024, 5:35 a.m.