#
# Section 3; Question 1:
#
source('chap_13_sect_3_question_1_data.R')
t = t.test( x=(DF$global_rock - DF$lipper), alternative='greater' )
print( t )


# Section 3; Question 2:
#
source('../Chapter8/chap_8_sect_2_question_6_data.R')
t = t.test( x=DF$Mothered, y=DF$Unmothered, alternative='two.sided', paired=TRUE )
print( t )


# Section 3; Question 3:
#
source('chap_13_sect_3_question_3_data.R')
t = t.test( x=DF$Before, y=DF$After, alternative='two.sided', paired=TRUE, conf.level=0.95 )
print( t )


# Section 3; Question 4:
#
source('chap_13_sect_2_question_1_data.R')
t = t.test( x=DF$waking, y=DF$hypnotic, alternative='two.sided', paired=TRUE )
print( t )


# Section 3; Question 5:
#
source('chap_13_sect_2_question_3_data.R')
t = t.test( x=DF$without, y=DF$with, alternative='two.sided', paired=TRUE )
print( t )


# Section 3; Question 6:
#
source('case_study_13_3_1_data.R')
t = t.test( x=DF$Before, y=DF$After, alternative='two.sided', paired=TRUE )
print( t )