04.01.2013: go over the midterm, the midterm data set.
sampling the boxes again (last time, I swear)
list=c(1:20)
plot(boxes,boxes,col="white",pch=16,xlim=c(0,20),ylim=c(0,20),xlab="mean",ylab="test number")
abline(v=mean(boxes),lwd=3)
sample.boxes=c()
for(i in 1:20){sample.boxes<-c(sample.boxes,mean(sample(boxes,10)))}
points(sample.boxes,list,pch=19)
z.star=1.960
sample.box.low=sample.boxes-z.star*sd(boxes)/sqrt(10)
sample.box.high=sample.boxes+z.star*sd(boxes)/sqrt(10)
segments(sample.box.low,list,sample.box.high,list,col="red")
examples:
newts: 29 27 34 40 22 28 14 35 26 35 12 30 23 18 11 22 23 33
known pop sd = 8
95% confidence in healing rate (mm per hour)
seventh graders: 114 100 104 89 102 91 114 114 103 105 108 130 120 132 111 128 118 119 86 72 111 103 74 112 107 103 98 96 112 112 93
known pop sd = 15
90% confidence in IQ of 7th graders is kansas
NewtSalve2000: 25 26 30 21 22 19 23 33 22 21 20 19 22 28 29 28 22 18 18 21
known pop sd=8
95% confidence in healing rate (mm per hour)
comp screen (p 381): 23.2 21.2 28.9 27.7 29.1 27.3 16.1 22.6 25.6 34.2 23.9 26.8 20.5 34.3 21.4 32.6 26.2 34.1 31.5 24.6 23.0 28.6 24.4 28.1 41.3
known pop sd = 6
99% confidence in reading times for fancy fonts.
04.02.2013: hypothesis testing
the creation of a null hypothesis and what it does.
04.03.2013: data set (probably the hardest yet)
04.04.2013: work on data set
04.05.2013: finish data set