notebook.community

Edit and run 





In [1]:



    


data <- scan("rn01.txt")



    











In [2]:



    


class <- cut(data, breaks=c(-Inf, qnorm((1:7)/8), Inf))
class



    


















    
Out[2]:







    
	
  1. (-0.319,0]
    2. 
	
  2. (-1.15,-0.674]
    3. 
	
  3. (0.674,1.15]
    4. 
	
  4. (-1.15,-0.674]
    5. 
	
  5. (-1.15,-0.674]
    6. 
	
  6. (-Inf,-1.15]
    7. 
	
  7. (0.674,1.15]
    8. 
	
  8. (-1.15,-0.674]
    9. 
	
  9. (-Inf,-1.15]
    10. 
	
  10. (0.674,1.15]
    11. 
	
  11. (1.15, Inf]
    12. 
	
  12. (0.319,0.674]
    13. 
	
  13. (0,0.319]
    14. 
	
  14. (-1.15,-0.674]
    15. 
	
  15. (-1.15,-0.674]
    16. 
	
  16. (1.15, Inf]
    17. 
	
  17. (1.15, Inf]
    18. 
	
  18. (-0.674,-0.319]
    19. 
	
  19. (0.674,1.15]
    20. 
	
  20. (0,0.319]
    21. 
	
  21. (-0.674,-0.319]
    22. 
	
  22. (-1.15,-0.674]
    23. 
	
  23. (0,0.319]
    24. 
	
  24. (-Inf,-1.15]
    25. 
	
  25. (-Inf,-1.15]
    26. 
	
  26. (1.15, Inf]
    27. 
	
  27. (-0.319,0]
    28. 
	
  28. (1.15, Inf]
    29. 
	
  29. (-0.319,0]
    30. 
	
  30. (0,0.319]
    31. 
	
  31. (0.674,1.15]
    32. 
	
  32. (-0.319,0]
    33. 
	
  33. (-0.674,-0.319]
    34. 
	
  34. (1.15, Inf]
    35. 
	
  35. (-1.15,-0.674]
    36. 
	
  36. (0.674,1.15]
    37. 
	
  37. (-0.674,-0.319]
    38. 
	
  38. (0.674,1.15]
    39. 
	
  39. (0.674,1.15]
    40. 
	
  40. (-1.15,-0.674]
    41. 



















In [3]:



    


chisq.test(table(class), p=rep(1/8, 8))



    


















    
Out[3]:








	Chi-squared test for given probabilities

data:  table(class)
X-squared = 9.2, df = 7, p-value = 0.2386

Content source: BerndSchwarzenbacher/AngSt-Problems

Similar notebooks:

notebook.community | gallery | about