# Section 4; Question 10:
#
source('case_study_11_3_1_data.R')
m = lm( CHD_Mortality ~ Consumption, data=DF )
sm = summary(m)


# Section 4; Question 11:
#
source('chap_11_sect_4_question_11_data.R')
print( cor( DF$Altitude, DF$Number_of_Home_Runs ) )
cor.test( DF$Altitude, DF$Number_of_Home_Runs )


# Section 4; Question 12:
#
source('chap_11_sect_4_question_12_data.R')
print( cor( DF$Supply, DF$Price ) )
cor.test( DF$Supply, DF$Price )


# Section 4; Question 13:
#
source('chap_11_sect_4_question_13_data.R')
m = lm( SIRS ~ Average_SRE, data=DF )
print( summary(m) )


# Section 4; Question 14:
#
source('chap_11_sect_4_question_14_data.R')
print( cor( DF$Percent_Change_Year, DF$Percent_Change_First_Week_Jan ) )
cor.test( DF$Percent_Change_Year, DF$Percent_Change_First_Week_Jan ) 

m = lm( Percent_Change_Year ~ Percent_Change_First_Week_Jan, data=DF )
print( summary(m) )