source('utils.R')

# Section 5; Question 1:
#
source('chap_12_sect_5_question_1_data.R')
DF$sqrt_flaws = sqrt( DF$flaws ) # transform assuming Poisson data
res = wANOVA( DF, 'developer', 'sqrt_flaws' )

# Section 5; Question 3:
#
source('chap_12_sect_5_question_3_data.R')

# These are binomial random variables with n = 20:
DF$asin_n_hits = asin( sqrt( DF$n_hits / 20 ) )
res = wANOVA( DF, 'launcher', 'asin_n_hits' )