source('utils.R')

# Section 3; Question 1:
#
source('case_study_12_2_1_data.R')
res = wANOVA( DF, 'smoker_type', 'value' )
cis = mean_diff_CI_utils(res)


# Section 3; Question 2:
#
source('chap_12_sect_2_question_3_data.R')
res = wANOVA( DF, 'sector', 'PERatio' )
cis = mean_diff_CI_utils(res)


# Section 3; Question 3:
#
source('chap_12_sect_3_question_3_data.R')
res = wANOVA( DF, 'company', 'number' )
cis = mean_diff_CI_utils(res)


# Section 3; Question 4:
#
source('chap_12_sect_2_question_4_data.R')
res = wANOVA( DF, 'sector', 'yield' )
cis = mean_diff_CI_utils(res)


# Section 3; Question 5:
#
source('../Chapter8/chap_8_sect_2_question_15_data.R')
res = wANOVA( DF, 'type', 'score' )
cis = mean_diff_CI_utils(res)