sleepless

references:
- ISI, explorations 2.2 and 3.3, p.131, 184

hypotheses

Define \(\mu\).

SOLUTION:

\[H_0 : \mu = 8\] \[H_a : \mu < 8\]

State \(\mu\) and \(\alpha\).

mu <- 8             # from the null hypothesis
alpha <- 0.05       # level of significance

data

sleeptimes <- read.delim("SleepTimes.txt")
str(sleeptimes)
## 'data.frame':    22 obs. of  1 variable:
##  $ SleepHrs: num  7 5.5 8 7 7.5 6 6 7.5 7 8 ...
ggplot(sleeptimes, aes(SleepHrs)) +
  geom_histogram(aes(y = ..density..), color = "saddlebrown", fill = "wheat") +
  geom_density(color = "darkred") +
  labs(title = "Sleep")