svg(file = "horsekick_cdf_groupeddata.svg", width = 4, height = 4, pointsize = 8)
#Empirical cumulative distribution function (ecdf) example. Data = von Bortkiewicz's famous dataset of deaths by horse kick in Prussian cavalry corps
library("pscl")
par(mar=c(4,4,5,3)+0.1)
X <- tapply(prussian$y, prussian$year, sum)
h <- hist(X, plot=F)
xval <- c( -1, h$breaks, 21)
ecdf <- c(0, 0, cumsum(h$counts)/sum(h$counts), 1)
plot(xval[2:10], ecdf[2:10], pch=19, xlab="Tote pro Jahr", ylab=expression(F[n](x)), main="Empirische Verteilungsfunktion\nfür klassierte Daten", xlim=c(0,20))
abline(h=0, col="grey")
abline(h=1, col="grey")
lines(xval, ecdf)
dev.off()

 

Это chart было создано с помощью R.

Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:

Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 3.0 Unported.

Вы можете свободно:

• делиться произведением – копировать, распространять и передавать данное произведение
• создавать производные – переделывать данное произведение

При соблюдении следующих условий:

• атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
• распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.

https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue