Data for Exercises 2.16, 2.45, and 2.59

Submarin

Format

A data frame/tibble with 16 observations on three variables

month

month

reported

number of submarines reported sunk by U.S. Navy

actual

number of submarines actually sunk by U.S. Navy

Source

F. Mosteller, S. Fienberg, and R. Rourke, Beginning Statistics with Data Analysis (Reading, MA: Addison-Wesley, 1983).

References

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

Examples


model <- lm(actual ~ reported, data = Submarin)
summary(model)
#> 
#> Call:
#> lm(formula = actual ~ reported, data = Submarin)
#> 
#> Residuals:
#>     Min      1Q  Median      3Q     Max 
#> -4.2306 -2.0454  0.5228  1.0910  4.7304 
#> 
#> Coefficients:
#>             Estimate Std. Error t value Pr(>|t|)    
#> (Intercept)   0.7628     1.2198   0.625    0.542    
#> reported      1.0390     0.1360   7.639 2.33e-06 ***
#> ---
#> Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#> 
#> Residual standard error: 2.513 on 14 degrees of freedom
#> Multiple R-squared:  0.8065,	Adjusted R-squared:  0.7927 
#> F-statistic: 58.36 on 1 and 14 DF,  p-value: 2.333e-06
#> 
plot(actual ~ reported, data = Submarin)
abline(model, col = "red")

rm(model)