File:EmpiricalQuantiles.svg

The R program to create the SVG file:

svg("EmpiricalQuantiles.svg")
ng <- c(5,10,30)
par(mfrow=c(length(ng),1), mar=c(2.5,0,2,0))
for (i in 1:length(ng)) {
  n <- ng[i] 
  plot(0,0, type="n", xlim=c(0,1), ylim=c(1,5), axes=F, xlab="Quantil", main=sprintf("n=%i", n))
  axis(1)
  rang <- 1:n
  blom    <- (rang-3/8)/(n+1/4)
  rankit  <- (rang-1/2)/n
  tukey   <- (rang-1/3)/(n+1/3)
  waerden <- rang/(n+1)
  points(blom, rep(2, n), pch=19)
  text(0.5,2.5, "Blom", cex=1.5)
  points(rankit, rep(1, n), pch=19)
  text(0.5,1.5, "Rankit", cex=1.5)
  points(tukey, rep(3, n), pch=19)
  text(0.5,3.5, "Tukey", cex=1.5)
  points(waerden, rep(4, n), pch=19)
  text(0.5,4.5, "Van der Waerden", cex=1.5)
  for (j in 0:10) { abline(v=j/10, col="grey", lty=2)}
  box()
}
dev.off()

 

Dieses W3C-unbestimmte Chart wurde mit R erstellt.

Ich, der Urheberrechtsinhaber dieses Werkes, veröffentliche es als gemeinfrei. Dies gilt weltweit. In manchen Staaten könnte dies rechtlich nicht möglich sein. Sofern dies der Fall ist: Ich gewähre jedem das bedingungslose Recht, dieses Werk für jedweden Zweck zu nutzen, es sei denn, Bedingungen sind gesetzlich erforderlich.