Space shuttle: uncertainty in estimated probability of O-ring damage

Illustrates the uncertainty in the estimated probability of an O-ring suffering thermal distress for a given launch temperature.

Usage

shuttle_sim_hists(x, temps, ...)

Arguments

x

A 2-column matrix returned from a call to shuttle_sim_plot

temps

A numeric vector of temperatures, in degrees Fahrenheit.

...

Further arguments to be passed to hist. [Apart from probability, xlab, ylab and main, which are set inside shuttle_sim_hists.]

Value

Nothing, just the plot.

Details

For details of the linear logistic model see Challenger Space Shuttle Disaster vignette and for simulation from this model see shuttle_sim.

See also

shuttle_sim_plot and shuttle_sim.

The Challenger Space Shuttle Disaster vignette.

Examples

x <- shuttle_sim_plot(n_sim = 1000, plot = FALSE)
#> Warning: glm.fit: algorithm did not converge
#> Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
#> Warning: glm.fit: algorithm did not converge
#> Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
shuttle_sim_hists(x, temps = c(31, 50, 65, 80), col = 8)