- ZAD12
- a = c(93.8,99,95.4,80.8,86.7,98.3,98.6,94.6,89,95.7,97.2,96.7,90.3,85.8,95.9,91.3)
- b = c(88,95.2,86,77,88.5,94.5,94.9,88.3,93.1,95,91.7,82.8,90.8,79.5,81,89)
- > a = c(93.8,99,95.4,80.8,86.7,98.3,98.6,94.6,89,95.7,97.2,96.7,90.3,85.8,95.9,91.3)
- > b = c(88,95.2,86,77,88.5,94.5,94.9,88.3,93.1,95,91.7,82.8,90.8,79.5,81,89)
- > var.test(a,b, var.equal=TRUE, alt="greater")
- F test to compare two variances
- data: a and b
- F = 0.82018, num df = 15, denom df = 15, p-value = 0.647
- alternative hypothesis: true ratio of variances is greater than 1
- 95 percent confidence interval:
- 0.3412518 Inf
- sample estimates:
- ratio of variances
- 0.8201807
- ZAD11
- 60;57
- 65;60
- 79;70
- 55;60
- 75;70
- 60;65
- 69;59
- 108;101
- 77;67
- 88;86
- Różnice: ( Przed - Po)
- (3,5,9,-5,5,-5,10,7,10,2)
- waga = c(3,5,9,-5,5,-5,10,7,10,2)
- > t.test(waga, mu=0)
- One Sample t-test
- data: waga
- t = 2.3459, df = 9, p-value = 0.04359
- alternative hypothesis: true mean is not equal to 0
- 95 percent confidence interval:
- 0.1464349 8.0535651
- sample estimates:
- mean of x
- 4.1