Data for Exercise 9.7

Citrus

## Format

A data frame/tibble with nine observations on two variables

age

age of children

percent

percent peak bone density

## References

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

## Examples


model <- lm(percent ~ age, data = Citrus)
summary(model)
#>
#> Call:
#> lm(formula = percent ~ age, data = Citrus)
#>
#> Residuals:
#>     Min      1Q  Median      3Q     Max
#> -3.9278 -2.6278  0.8222  2.7722  3.6722
#>
#> Coefficients:
#>             Estimate Std. Error t value Pr(>|t|)
#> (Intercept)  32.5278     2.4283   13.40 3.03e-06 ***
#> age           3.4250     0.2158   15.87 9.55e-07 ***
#> ---
#> Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#>
#> Residual standard error: 3.342 on 7 degrees of freedom
#> Multiple R-squared:  0.973,	Adjusted R-squared:  0.9691
#> F-statistic:   252 on 1 and 7 DF,  p-value: 9.547e-07
#>
anova(model)
#> Analysis of Variance Table
#>
#> Response: percent
#>           Df  Sum Sq Mean Sq F value    Pr(>F)
#> age        1 2815.35 2815.35     252 9.547e-07 ***
#> Residuals  7   78.21   11.17
#> ---
#> Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
rm(model)