Data for Exercise 10.50

`Shock`

A data frame/tibble with 27 observations on two variables

- group
grouping variable with values of

`Group1`

(no shock),`Group2`

(medium shock), and`Group3`

(severe shock)- attempts
number of attempts to complete a task

Kitchens, L. J. (2003) *Basic Statistics and Data Analysis*.
Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.

```
boxplot(attempts ~ group, data = Shock, col = "violet")
model <- lm(attempts ~ group, data = Shock)
anova(model)
#> Analysis of Variance Table
#>
#> Response: attempts
#> Df Sum Sq Mean Sq F value Pr(>F)
#> group 2 364.52 182.259 44.635 8.188e-09 ***
#> Residuals 24 98.00 4.083
#> ---
#> Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
rm(model)
```