Decay 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.
lambdahat <- with(ruge, weighted.mean(number, w = counts))
(N <- with(ruge, sum(counts)))
with(ruge, cbind(number, counts,
fitted = round(N * dpois(number, lambdahat))))
Run the code above in your browser using DataLab