View source: R/reportSeverity.R
plot.spotSeverity | R Documentation |
Plot method for spotSeverity
## S3 method for class 'spotSeverity' plot( x, add = FALSE, rangeLeft = -1, rangeRight = 1, plotSev = TRUE, plotPow = FALSE, cl = "black", xlab = "x", ylab = "y", ... )
x |
severity object |
add |
default value is FALSE |
rangeLeft |
range default: |
rangeRight |
range default: |
plotSev |
logical. plot severity. Default: TRUE |
plotPow |
logical. plot power. Default: FALSE |
cl |
color, e.g., |
xlab |
x axis label |
ylab |
y axis label |
... |
additional parameters |
description of return value
### Example from D G Mayo and A Spanos. ### Severe Testing as a Basic Concept in a Neyman–Pearson Philosophy of Induction. ### British Journal for the Philosophy of Science, 57:323–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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.