#
# get a 95% confidence interval for the
# ratio of the variances from the problem
source("../ci_2popvar.R")
#
ci_2popvar( 38, 12.58, 51, 17.24, 0.95)
#
# Test the null hypothesis that the ratio of the
# variances is 1 versus the alternative that the
# ratio is not one. Do the test at the 0.05 level.
source("../hypo_2var.R")
# run function
hypoth_2test_var( 38, 12.58, 51, 17.24,
0, 0.05 )