
Plot method for spotSeverity
# S3 method for spotSeverity
plot(
x,
add = FALSE,
rangeLeft = -1,
rangeRight = 1,
plotSev = TRUE,
plotPow = FALSE,
cl = "black",
xlab = "x",
ylab = "y",
...
)
severity object
default value is FALSE
range default:-1
range default:1
logical. plot severity. Default: TRUE
logical. plot power. Default: FALSE
color, e.g., c("black", "red", "green", " blue" , "brown",
"cyan", "darkred", "gray", "green", "magenta", "orange")
x axis label
y axis label
additional parameters
description of return value
# 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
tdist <- FALSE
plot(mu1, spotSeverity(xbar=x0, mu0=0, mu1=mu1, n=n, sigma=sigma, alpha=alpha,
tdist=tdist)$severity, 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)
## Fig 13.11 in Span19a
p <- spotSeverity(xbar=10, mu0=10, mu1= 10.2, n=100, sigma = 1, alpha = 0.05, tdist = FALSE)
plot(p, rangeLeft = 10, rangeRight = 10.5, plotPow = TRUE)
# }
Run the code above in your browser using DataLab