Data for Statistical Insight Chapter 10

`Supercar`

A data frame/tibble with 30 observations on two variables

- speed
top speed (in miles per hour) of car without redlining

- car
name of sports car

*Car and Drvier* (July 1995).

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

```
boxplot(speed ~ car, data = Supercar, col = rainbow(6),
ylab = "Speed (mph)")
summary(aov(speed ~ car, data = Supercar))
#> Df Sum Sq Mean Sq F value Pr(>F)
#> car 4 1456 364.1 25.14 1.9e-08 ***
#> Residuals 25 362 14.5
#> ---
#> Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
anova(lm(speed ~ car, data = Supercar))
#> Analysis of Variance Table
#>
#> Response: speed
#> Df Sum Sq Mean Sq F value Pr(>F)
#> car 4 1456.52 364.13 25.145 1.903e-08 ***
#> Residuals 25 362.02 14.48
#> ---
#> Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
```