Facebook
From Thundering Crow, 4 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 202
  1. ZAD12
  2.  
  3. 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)
  4. 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)
  5.  
  6.  
  7. > 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)
  8. > 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)
  9. > var.test(a,b, var.equal=TRUE, alt="greater")
  10.  
  11.         F test to compare two variances
  12.  
  13. data:  a and b
  14. F = 0.82018, num df = 15, denom df = 15, p-value = 0.647
  15. alternative hypothesis: true ratio of variances is greater than 1
  16. 95 percent confidence interval:
  17.  0.3412518       Inf
  18. sample estimates:
  19. ratio of variances
  20.          0.8201807
  21.  
  22.  
  23. ZAD11
  24.  
  25. 60;57
  26. 65;60
  27. 79;70
  28. 55;60
  29. 75;70
  30. 60;65
  31. 69;59
  32. 108;101
  33. 77;67
  34. 88;86
  35.  
  36. Różnice: ( Przed - Po)
  37. (3,5,9,-5,5,-5,10,7,10,2)
  38.  
  39. waga = c(3,5,9,-5,5,-5,10,7,10,2)
  40.  
  41. > t.test(waga, mu=0)
  42.  
  43.         One Sample t-test
  44.  
  45. data:  waga
  46. t = 2.3459, df = 9, p-value = 0.04359
  47. alternative hypothesis: true mean is not equal to 0
  48. 95 percent confidence interval:
  49.  0.1464349 8.0535651
  50. sample estimates:
  51. mean of x
  52.       4.1