# Problem 1 The Data Set FEV.DAT on the Companion Website contains pulmonary function measures on 654 children ages 3-19 seen in East Boston, MA as part of Childhood Respiratory Disease (CRD) Study. The dataset contains data on age, sex, height (inches), FEV=volume of air expelled in 1 second (liters), and smoking status. ```{r} #read in dataset setwd("~/Documents") ##you need to change this to match your directory information #read in the data fev.df <- read.csv("FEV.DAT.txt") #adjust column names names(fev.df) <- gsub("X.", "", names(fev.df)) names(fev.df) <- gsub("\\.", '', names(fev.df)) # dim(fev.df) fev.df$Sex <- as.factor(fev.df$Sex) #0=female, 1=male fev.df$Smoke <- as.factor(fev.df$Smoke) #0=nonsmoker, 1=smoker ```

## Part (c) 6 points Suppose you fit a linear model for FEV against all covariates provided in the data set. Do you see a reason to doubt the assumption of (i) normality (ii) equal variance and (iii) linearity against the covariate Age?