Loblolly Metrics

summary(Loblolly)

##      height           age            Seed   
##  Min.   : 3.46   Min.   : 3.0   329    : 6  
##  1st Qu.:10.47   1st Qu.: 5.0   327    : 6  
##  Median :34.00   Median :12.5   325    : 6  
##  Mean   :32.36   Mean   :13.0   307    : 6  
##  3rd Qu.:51.36   3rd Qu.:20.0   331    : 6  
##  Max.   :64.10   Max.   :25.0   311    : 6  
##                                 (Other):48

library(ggplot2)
ggplot(Loblolly, aes(x=age, y=height)) +
  geom_point()+
  stat_smooth(method="lm")

ggplot(Loblolly, aes(x=age, y=height)) +
  geom_point()+
  stat_smooth(method=loess)