seta setb setc setd      setad      setbd      setcd      setdd
1    13   22   12   16 0.08333333 8.33333333 0.00000000 1.33333333
2    11    8   10    7 0.08333333 1.33333333 0.33333333 2.08333333
3    16    7   14   12 1.33333333 2.08333333 0.33333333 0.00000000
4    11    8   10   14 0.08333333 1.33333333 0.33333333 0.33333333
5     5   19   11   15 4.08333333 4.08333333 0.08333333 0.75000000
6    12   20   10    5 0.00000000 5.33333333 0.33333333 4.08333333
7    12   10   20   10 0.00000000 0.33333333 5.33333333 0.33333333
8    19   11   12   21 4.08333333 0.08333333 0.00000000 6.75000000
9     5    6   12   11 4.08333333 3.00000000 0.00000000 0.08333333
10   16    9    9    9 1.33333333 0.75000000 0.75000000 0.75000000
                      setad        setbd     setcd       setdd
Statistic value 15.16666667 26.666666667 7.5000000 16.50000000
p-value          0.08645849  0.001587759 0.5852088  0.05714647

 Using built-in routines for goodness of fit test  

	Chi-squared test for given probabilities

data:  lotto$seta
X-squared = 15.167, df = 9, p-value = 0.08646


	Chi-squared test for given probabilities

data:  lotto$seta
X-squared = 15.167, df = 9, p-value = 0.08646

$pears
[1] 17.69244

$pearspv
[1] 0.08899695


	Chi-squared test for given probabilities

data:  falls$falls
X-squared = 17.692, df = 11, p-value = 0.089

$trend
[1] -0.9653177

$v1
[1] 15460.91

$v2
[1] 8798.597

$trendpv
[1] 0.3343857