Michelson Speed of Light Data
A classical data of Michelson (but not this one with Morley) on
measurements done in 1879 on the speed of light. The data consists of
five experiments, each consisting of 20 consecutive ‘runs’.
The response is the speed of light measurement, suitably coded
A data frame with 100 observations on the following 3 variables.
The data is here viewed as a randomized block experiment with ‘experiment’ and ‘run’ as the factors. ‘run’ may also be considered a quantitative variate to account for linear (or polynomial) changes in the measurement over the course of a single experiment.
This is the same dataset as
A. J. Weekes (1986) A Genstat Primer. London: Edward Arnold.
S. M. Stigler (1977) Do robust estimators work with real data? Annals of Statistics 5, 1055–1098. (See Table 6.)
A. A. Michelson (1882) Experimental determination of the velocity of light made at the United States Naval Academy, Annapolis. Astronomic Papers 1 135–8. U.S. Nautical Almanac Office. (See Table 24.)
require(stats); require(graphics) michelson <- transform(morley, Expt = factor(Expt), Run = factor(Run)) xtabs(~ Expt + Run, data = michelson) # 5 x 20 balanced (two-way) plot(Speed ~ Expt, data = michelson, main = "Speed of Light Data", xlab = "Experiment No.") fm <- aov(Speed ~ Run + Expt, data = michelson) summary(fm) fm0 <- update(fm, . ~ . - Run) anova(fm0, fm)
How To Register With a Username
How To Register With Google Single Sign On (SSO)
How To Login With a Username and Password
How To Login With Google Single Sign On (SSO)
How To Import a Dataset
How To Perform Statistical Analysis with Picostat
How To Use Educational Applications with Picostat
|Recent Queries For This Dataset|
No queries made on this dataset yet.
|Title||Authored on||Content type|
|R Dataset / Package datasets / sunspot.year||March 9, 2018 - 1:06 PM||Dataset|
|R Dataset / Package datasets / airmiles||March 9, 2018 - 1:06 PM||Dataset|
|R Dataset / Package Stat2Data / SampleFG||March 9, 2018 - 1:06 PM||Dataset|
|OpenIntro Statistics Dataset - toy_anova||August 9, 2020 - 2:38 PM||Dataset|
|swiss||February 26, 2017 - 11:28 AM||Dataset|