File:Michelsonmorley-boxplot.svg

From Meta, a Wikimedia project coordination wiki

File
File history
File links

Michelsonmorley-boxplot.svg‎ (SVG file, nominally 432 × 432 pixels, file size: 11 KB)

This file is from Wikimedia Commons and may be used by other projects. The description on its file description page there is shown below.

[edit] Summary

[edit] Original upload by User:Schutz

Boxplot representing Michelson and Morley's data on the speed of light. It consists of five experiments, each made of 20 consecutive runs.

This image is similar to Image:R-speed of light boxplot.png, but is stored in vectorial format instead of bitmap.

Note that the oblique line is incorrect, and probably due to a bug in the Mediawiki software/SVG converter.

The graphic was created by User:Schutz for Wikipedia on 28 December 2006, using the R statistical project. The program that generated the graphic is given below; the data and the idea are from the R help page for the morley dataset (see help(morley)). The graph was exported in postscript format, converted to SVG using the pstoedit command, and the layout was slightly modified using Inkscape before upload.

 
  data(morley)
  morley$Expt <- factor(morley$Expt)
  morley$Run <- factor(morley$Run)
  attach(morley)

  postscript("Michelsonmorley-boxplot.ps", paper="special", height=6, width=6,
             horizontal=F)
  par(las=1)
  par(mar=c(5.1, 5.1, 2.1, 2.1))
  par(font=2)
  par(font.axis=2)
  boxplot(Speed ~ Expt, xlab = "Experiment No.", ylab="Speed of light (km/s minus 299,000)")
  abline(h=792.458, lty=3)
  dev.off()

[edit] New upload by User:Mwtoews

Boxplot representing Michelson and Morley's data on the speed of light. It consists of five experiments, each made of 20 consecutive runs.

The graphic was originally created by User:Schutz for Wikipedia on 28 December 2006, using the R statistical project. The program that generated the graphic is given below; the data and the idea are from the R help page for the morley dataset (see help(morley)). The graph was exported in PDF format, converted to SVG using Adobe Illustrator, and the layout was slightly modified using Vim before upload.

data(morley)
morley$Expt <- factor(morley$Expt)

pdf("Michelsonmorley-boxplot.pdf", height=6, width=6)
par(las=1, mar=c(5.1, 5.1, 2.1, 2.1))
boxplot(Speed ~ Expt, morley, xlab = "Experiment No.",
        ylab="Speed of light (km/s minus 299,000)")
abline(h=792.458, col="red")
text(3,792.458,"true\nspeed")
dev.off()

[edit] License

I, the copyright holder of this work, hereby release it into the public domain. This applies worldwide.

In case this is not legally possible:
I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

The creator and uploader also believes that this graphic is a trivial work which does not qualify for copyright.

[edit] Reference

A. J. Weekes (1986) A Genstat Primer. London: Edward Arnold.

This chart was created with R.

File history

Click on a date/time to view the file as it appeared at that time.

	Date/Time	Thumbnail	Dimensions	User	Comment
current	10:25, 3 May 2008		432×432 (11 KB)	Papa November	(rm opaque bg. No copyright claimed for non-creative derivative work.)
	21:30, 30 October 2007		432×432 (11 KB)	Mwtoews
	21:27, 30 October 2007		432×432 (11 KB)	Mwtoews
	21:24, 30 October 2007		432×432 (12 KB)	Mwtoews
	18:43, 28 December 2006		720×720 (19 KB)	Schutz