# R Dataset / Package HistData / Michelson

Attachment | Size |
---|---|

dataset-72512.csv | 415 bytes |

Dataset Help |
---|

On this Picostat.com statistics page, you will find information about the Michelson data set which pertains to Michelson's Determinations of the Velocity of Light. The Michelson data set is found in the HistData R package. You can load the Michelson data set in R by issuing the following command at the console data("Michelson"). This will load the data into a variable called Michelson. If R says the Michelson data set is not found, you can try installing the package by issuing this command install.packages("HistData") and then attempt to reload the data. If you need to download R, you can go to the R project website. You can download a CSV (comma separated values) version of the Michelson R data set. The size of this file is about 415 bytes. |

Documentation |
---|

## Michelson's Determinations of the Velocity of Light## DescriptionThe data frame Stigler (1977) used these data to illustrate properties of robust estimators
with real, historical data. For this purpose, he divided the 100 measurements
into 5 sets of 20 each. These are contained in ## Usagedata(Michelson) data(MichelsonSets) ## Format
`velocity` a numeric vector
## DetailsThe "true" value is taken to be 734.5, arrived at by taking the "true" speed of light in a vacuum to be 299,792.5 km/sec, and adjusting for the velocity in air. The data values are recorded in order, and so may also be taken as a time series. ## SourceKyle Siegrist, "Virtual Laboratories in Probability and Statistics", http://www.math.uah.edu/stat/data/Michelson.html Stephen M. Stigler (1977), "Do robust estimators work with ## ReferencesMichelson, A. A. (1882). "Experimental determination of the velocity of light made at the
United States Naval Academy, Anapolis". ## See Also
## Examplesdata(Michelson)# density plot (default bandwidth & 0.6 * bw) plot(density(Michelson$velocity), xlab="Speed of light - 299000 (km/s)", main="Density plots of Michelson data") lines(density(Michelson$velocity, adjust=0.6), lty=2) rug(jitter(Michelson$velocity)) abline(v=mean(Michelson$velocity), col="blue") abline(v=734.5, col="red", lwd=2) text(mean(Michelson$velocity), .004, "mean", srt=90, pos=2) text(734.5, .004, "true", srt=90, pos=2)# index / time series plot plot(Michelson$velocity, type="b") abline(h=734.5, col="red", lwd=2) lines(lowess(Michelson$velocity), col="blue", lwd=2)# examine lag=1 differences plot(diff(Michelson$velocity), type="b") lines(lowess(diff(Michelson$velocity)), col="blue", lwd=2)# examine different data sets boxplot(MichelsonSets, ylab="Velocity of light - 299000 (km/s)", xlab="Data set") abline(h=734.5, col="red", lwd=2)# means and trimmed means (mn <-apply(MichelsonSets, 2, mean)) (tm <- apply(MichelsonSets, 2, mean, trim=.1)) points(1:5, mn) points(1:5+.05, tm, pch=16, col="blue") -- Dataset imported from https://www.r-project.org. |

Curated Data | File Size |
---|---|

OpenIntro Statistics Dataset - yrbss_samp | 7.62 KB |

OpenIntro Statistics Dataset - yrbss | 1.03 MB |

OpenIntro Statistics Dataset - yawn | 861 bytes |

OpenIntro Statistics Dataset - xom | 4.95 KB |

OpenIntro Statistics Dataset - winery_cars | 489 bytes |

#### Pagination

All Public Datasets | File Size |
---|---|

PSID | |

wage1 | 328 bytes |

OpenIntro Statistics Dataset - yrbss_samp | 7.62 KB |

OpenIntro Statistics Dataset - yrbss | 1.03 MB |

OpenIntro Statistics Dataset - yawn | 861 bytes |

#### Pagination

Recent Queries For This Dataset |
---|

No queries made on this dataset yet. |

Recent Queries | App/Dataset | By | Date |
---|---|---|---|

Picostat Output - Simple Linear Regression | R Dataset / Package datasets / esoph | hyi2 | October 29, 2020 - 5:44 AM |

Picostat Output - Visual Summaries | R Dataset / Package datasets / esoph | hyi2 | October 29, 2020 - 5:42 AM |

Picostat Output - Simple Linear Regression | R Dataset / Package datasets / esoph | hyi2 | October 29, 2020 - 5:42 AM |

Picostat Output - Numerical Summaries | R Dataset / Package datasets / quakes | wicetram | October 24, 2020 - 3:20 PM |

Picostat Output - Visual Summaries | R Dataset / Package datasets / quakes | wicetram | October 24, 2020 - 3:17 PM |