Attēls:Binomial distribution cdf.svg

No ''testwiki''
Pāriet uz navigāciju Pāriet uz meklēšanu
Sākotnējais fails (SVG fails, definētais izmērs 640 × 480 pikseļi, faila izmērs: 64 KB)

Fails ir no Wikimedia Commons, tāpēc tas var tikt izmantots citos projektos. Apraksts ir faila apraksta lapā, kas ir parādīta zemāk.

Kopsavilkums

Apraksts Binomial distribution cumulative distribution function
Datums
Avots Paša darbs
Autors Tayste
SVG veidošana
InfoField
 The source code of this SVG is invalid due to 42 errors.
 This W3C-invalid chart was created with R.
  This file uses embedded text that can be easily translated using a text editor.
Pirmkods
InfoField

R code

# R source code for Wikipedia SVG plot of Binomial CDF
# by de:User:Sigbert, Feb 2010
 
require("RSvgDevice")

create.binomial.cdf <- function(N, p, colour="black", pch=16) {
 n <- max(length(N),length(p),length(colour),length(pch))
 N <- rep(N,length=n); p <- rep(p,length=n)
 colour <- rep(colour,length=n); pch <- rep(pch,length=n) 

 add.one.series <- function(N, p, colour, pch, maxN) {
   cdf <- pbinom(0:N, N, p)
#   lines(0:N, cdf, type="s", col=colour)
   for (i in 1:N) lines (c(i-1,i), c(cdf[i], cdf[i]), type="s", col=colour)
   lines(c(N,maxN), c(1, 1), type="s", col=colour)
   points(0:N, cdf, col=colour, pch=pch)
 }
 
 par(lwd=1.5, cex=1, mar=c(3.1,2.5,0.5,0.5))
 plot(1, xlim=c(0,max(N)), ylim=c(0,1), type="n", xlab="", ylab="")
 for (i in 1:n)
   add.one.series(N[i],p[i],colour[i],pch[i], max(N))
   
 text = paste("p=",rev(p)," and N=",rev(N),sep="")
 legend(max(N), 0, legend=text, xjust=1, yjust=0,
   pch=rev(pch), lwd=rep(par("lwd"),3), col=rev(colour), y.intersp=1.5, bty="n")
}

devSVG("Binomial_distribution_cdf.svg",width=4,height=3)
create.binomial.cdf(c(40,20,20), c(0.5,0.7,0.5), c("red","green","blue"), c(20,15,18))
dev.off()

Licence

Public domain I, the copyright holder of this work, release this work into the public domain. This applies worldwide.
In some countries this may not be legally possible; if so:
I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

Captions

Pievieno vienas rindiņas aprakstu, ko šis fails attēlo

Šajā failā attēlotais

attēlo

2 marts 2008

image/svg+xml

checksum angļu

30b025aa3e7f60281757dceb3ca0f1a7107bb5e3

data size angļu

66 037 Baits

480 pikselis

640 pikselis

Faila hronoloģija

Uzklikšķini uz datums/laiks kolonnā esošās saites, lai apskatītos, kā šis fails izskatījās tad.

Datums/LaiksAttēlsIzmēriDalībnieksKomentārs
tagadējais2010. gada 13. maijs, plkst. 14.112010. gada 13. maijs, plkst. 14.11 versijas sīktēls640 × 480 (64 KB)wikimediacommons>Meisterkochfinal fix

Šo failu izmanto šajā 1 lapā: