Module 10

 lm(cystfibr$spemax ~ age + weight + bmp + fev1, data=cystfibr)

anova(lm(cystfibr$spemax ~ age + weight + bmp + fev1, data=cystfibr))

 

I used the cystfibr dataset from the ISwR package In completing this assignment. I ran a regression on spemax Based on the predictor variables age, weight, BMI an FEV1 with spemex is being predicted. My results indicated that my overall model model was statistically significant. Therefore, at least one of the predictor variables is significantly associated with spemax. 

Based upon the coefficients produced in this analysis, I examined age. Since the coefficient for age was negative, it can be concluded that the age increases spemex We'll decrease while controlling for the effects of the other predictor variables. This indicates that older patients generally exhibit lower maximum specific power.