- Luisa Velasco (4.4)
March 9, 2017
There are two competing hypotheses: the null and the alternative. In a hypothesis test, we make a decision about which might be true, but our choice might be incorrect.
fail to reject H0 | reject H0 | |
---|---|---|
H0 true | ✔ | Type I Error |
HA true | Type II Error | ✔ |
If we again think of a hypothesis test as a criminal trial then it makes sense to frame the verdict in terms of the null and alternative hypotheses:
H0 : Defendant is innocent
HA : Defendant is guilty
Which type of error is being committed in the following circumstances?
Which error do you think is the worse error to make?
(cv <- qnorm(0.05, mean=0, sd=1, lower.tail=FALSE))
## [1] 1.644854
PlotDist(alpha=0.05, distribution='normal', alternative='greater') abline(v=cv, col='blue')
cord.x1 <- c(-5, seq(from = -5, to = cv, length.out = 100), cv) cord.y1 <- c(0, dnorm(mean=cv, x=seq(from=-5, to=cv, length.out = 100)), 0) curve(dnorm(x, mean=cv), from = -5, to = 5, n = 1000, col = "black", lty = 1, lwd = 2, ylab = "Density", xlab = "Values") polygon(x = cord.x1, y = cord.y1, col = 'lightgreen') abline(v=cv, col='blue')
pnorm(cv, mean=cv, lower.tail = FALSE)
## [1] 0.5
mu <- 2.5 (cv <- qnorm(0.05, mean=0, sd=1, lower.tail=FALSE))
## [1] 1.644854
Type I Error
pnorm(mu, mean=0, sd=1, lower.tail=FALSE)
## [1] 0.006209665
Type II Error
pnorm(cv, mean=mu, lower.tail = TRUE)
## [1] 0.1962351
Visualizing Type I and Type II errors: http://shiny.albany.edu/stat/betaprob/
Check out this page: https://www.openintro.org/stat/why05.php
See also:
Kelly M. Emily Dickinson and monkeys on the stair Or: What is the significance of the 5% significance level? Significance 10:5. 2013.