#This is a model for topic 24
# we will use the hypoth_2popproport() function
source("../hypo_2popproport.R")
hypoth_2test_prop( 60, 265, 96, 321, 0, 0.05)
#
# On the other hand, we might just want to get a 95%
# confidence interval for the difference of the
# proportion of "full time" students at WCC versus
# the proportion at Schoolcraft. To do this we
# use the ci_2popproportion()
#
source("../ci_2popproport.R")
ci_2popproportion( 265, 60, 321, 96, 0.95)