ruge.RdDecay counts of polonium recorded by Rutherford and Geiger (1910).
data(ruge)This data frame contains the following columns:
a numeric vector, counts or frequencies
a numeric vector, the number of decays
These are the radioactive decay counts of polonium recorded by Rutherford and Geiger (1910) representing the number of scintillations in 2608 1/8 minute intervals. For example, there were 57 frequencies of zero counts. The counts can be thought of as being approximately Poisson distributed.
Rutherford, E. and Geiger, H. (1910) The Probability Variations in the Distribution of alpha Particles, Philosophical Magazine, 20, 698–704.
lambdahat <- with(ruge, weighted.mean(number, w = counts))
(N <- with(ruge, sum(counts)))
#> [1] 2608
with(ruge, cbind(number, counts,
fitted = round(N * dpois(number, lambdahat))))
#> number counts fitted
#> [1,] 0 57 54
#> [2,] 1 203 210
#> [3,] 2 383 407
#> [4,] 3 525 525
#> [5,] 4 532 508
#> [6,] 5 408 394
#> [7,] 6 273 254
#> [8,] 7 139 141
#> [9,] 8 45 68
#> [10,] 9 27 29
#> [11,] 10 10 11
#> [12,] 11 4 4
#> [13,] 12 0 1
#> [14,] 13 1 0
#> [15,] 14 1 0