# NOT RUN {
### Example from D G Mayo and A Spanos.
### Severe Testing as a Basic Concept in a Neyman<U+2013>Pearson Philosophy of Induction.
### British Journal for the Philosophy of Science, 57:323<U+2013>357, 2006. (fig 2):
x0 <- 12.1
mu1 <- seq(11.9,13,0.01)
n <- 100
sigma <- 2
alpha <- 0.025
plot(mu1, spotSeverityBasic(x0, mu1, n, sigma, alpha), type = "l", ylim=c(0,1), col="blue")
abline(h=0)
abline(h=1)
abline(h=0.95)
abline(v=12.43)
### plot power:
mu0 <- 12
points(mu1, spotPower(alpha, mu0, mu1, n, sigma), type = "l", ylim=c(0,1), col="green")
abline(v=12.72)
# }
Run the code above in your browser using DataLab