Question 5 is to be done in R

a) There was a positive correlation found between the weight and gestation with 0.35, i.e, 35%
b)
The fitted equation of the best model is:
 Weight = -2379.69 + 149*Gestation
c) The regression is run between Weight (Dependent variable) and (Gestation as independent variable), the above table says that there is a strong positive relationship between Weight and Gestation. There was a statistically significance difference noted between Weight and Gestation. Based on the adjusted R-squared value it is found that the given data does not fit the above model with (0.1207- adj R-square).
d) The predicted weighted of a baby that had a gestation period of 42 weeks is 3878.31 grams.
    >
>
> library(resampledata)
Attaching package: ‘resampledata’
The following object is masked from ‘package:datasets’:
Titanic
> data=as.data.frame(data("NCBirths2004"))
> attach(data)
> str(NCBirths2004)
'data.frame':    1009 obs. of 8 variables:
$ ID : int 1 2 3 4 5 6 7 8 9 10 ...
$ MothersAge: Factor w/ 8 levels "under 15","15-19",..: 5 5 6 3 4 6 3 3 3 4 ...
$ Tobacco : Factor w/ 2 levels "No","Yes": 1 1 1 1 1 1 1 1 1 1...