Binomial versus poisson


Autor:
Sergio01
Attribution:
Obraz jest oznaczony jako „Wymagane uznanie autorstwa” (attribution required), ale nie podano żadnych informacji o uznaniu autorstwa. Prawdopodobnie parametr atrybucji został pominięty podczas korzystania z szablonu MediaWiki dla licencji CC-BY. Autorzy mogą znaleźć tutaj przykład prawidłowego korzystania z szablonów.
Credit:
Praca własna
Krótki link:
https://plwiki.pl/b/201a7
źródło:
Wikimedia Commons
Wymiary:
360 x 360 Pixel (64151 Bytes)
Opis:
Comparison of the Poisson distribution (black dots) and the binomial distribution with n=10 (red line), n=20 (blue line), n=1000 (green dots). All distributions have a mean of 5.
Source Code 
svg("poisson-vs-binomial.svg", width=4, height=4)
x <- 0:10
pmean <- 5
pal <- c("black", "tomato", "royalblue", "darkgreen")
par0 <- par(mar=c(4,4,0.5,0)+0.5)
plot.new(); plot.window(range(x), c(0,max(dbinom(x, 10, pmean/10))))
axis(1); axis(2); title(xlab=expression(k), ylab=expression(Density(k)))
abline(h=0, lwd=0.1)
lines(x, dpois(x, pmean), type="h", lwd=2, col=pal[[1]])
for (i in 1:3) {
  n <- c(10, 20, 1000)[[i]]
  y <- dbinom(x, n, pmean/n)
  lines(x, y, type="b", col=pal[[i+1]], pch=NA, lty=3, lwd=0.5)
  points(x, y, col=pal[[i+1]], lwd=2)
}
legend("topright", expression(Poisson(lambda==5),
    Binom(n==10),Binom(n==20),Binom(n==1000)),
  lwd=2, lty=c(1,NA,NA,NA), pch=c(NA,1,1,1), col=pal, cex=0.6)
par(par0)
dev.off()
Licencja:
CC BY-SA 3.0
Warunki licencji:
Creative Commons Attribution-Share Alike 3.0

Więcej informacji o licencji można znaleźć tutaj. Ostatnia aktualizacja: Tue, 23 Aug 2022 00:04:19 GMT