Anova

data=read.csv("Topeka.csv")
model=lm(FEV_1~Age+Height,data=data)
summary_m=summary(model)
summary_m

## 
## Call:
## lm(formula = FEV_1 ~ Age + Height, data = data)
## 
## Residuals:
##        1        2        3        4        5        6        7        8 
##  0.06134 -0.05156 -0.17343 -0.07841  0.26329  0.43511 -0.59796  0.14163 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept)  -0.2552     2.6568  -0.096    0.927
## Age           0.1254     0.1317   0.953    0.384
## Height        0.6447     2.9627   0.218    0.836
## 
## Residual standard error: 0.3685 on 5 degrees of freedom
## Multiple R-squared:  0.8005, Adjusted R-squared:  0.7206 
## F-statistic: 10.03 on 2 and 5 DF,  p-value: 0.01779

data

##   Subjectid   Age Height  Time FEV_1
## 1       159  6.58   1.13  0.00  1.36
## 2       159  7.65   1.19  1.06  1.42
## 3       159 12.74   1.49  6.15  2.13
## 4       159 13.77   1.53  7.19  2.38
## 5       159 14.69   1.55  8.11  2.85
## 6       159 15.82   1.56  9.23  3.17
## 7       159 16.67   1.57 10.08  2.25
## 8       159 17.63   1.57 11.04  3.11