steven — Dec 3, 2013, 12:52 PM
beds <- read.csv("bed.csv")
bed80 <- beds$Bed_80
bed80
[1] 4.7 3.9 4.4 4.4 3.8 3.5 4.5 4.2 4.8 4.7 4.5 5.1 4.4 4.9 5.7 5.7 5.7
[18] 7.4 5.5 6.0 5.8 3.6 3.6 7.3 4.1 5.5 4.2 3.9 4.6 5.1 4.5 5.5 5.1 5.3
[35] 5.0 4.8 4.6 4.7 5.9 3.7 3.6 4.2 3.1 3.6 3.1 4.2 3.1 3.5 3.6 2.7 3.1
bed86 <- beds$Bed_86
bed86
[1] 4.2 3.3 4.0 4.3 3.5 3.1 4.3 3.9 4.6 4.4 4.2 4.5 4.0 4.5 5.0 5.2 5.1
[18] 7.2 6.5 5.9 5.0 3.4 3.3 7.7 3.7 5.1 3.5 3.4 4.3 4.4 4.4 5.3 5.0 5.2
[35] 4.7 4.5 4.0 3.8 5.7 3.3 4.4 3.5 2.9 3.1 2.7 3.7 3.0 3.1 3.1 2.4 2.6
t.test(bed80,bed86,alternative="two.sided")
Welch Two Sample t-test
data: bed80 and bed86
t = 1.54, df = 99.21, p-value = 0.1268
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
-0.09341 0.74047
sample estimates:
mean of x mean of y
4.557 4.233
t.test(bed80,bed86,alternative="two.sided",paired=T)
Paired t-test
data: bed80 and bed86
t = 6.872, df = 50, p-value = 9.513e-09
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
0.2290 0.4181
sample estimates:
mean of the differences
0.3235