跳转到内容

File:Beta-binomial cdf.png

页面内容不支持其他语言。
這個文件來自維基共享資源
维基百科,自由的百科全书

Beta-binomial_cdf.png (480 × 480像素,文件大小:4 KB,MIME类型:image/png


摘要

描述
English: Beta-binomial distribution cumulative distribution function (cdf)
日期 5/26/10
来源 自己的作品
作者 Nschuma
  1. Display the beta-binomial distribution cdf in png format for various values of alpha and beta and fixed n

require(VGAM)

create.beta.binomial.cdf <- function(N, alpha_v,beta_v,colour="black", pch=16) {

n <- max(length(N),length(alpha_v),length(colour),length(pch))
N <- rep(N,length=n); alpha_v <- rep(alpha_v,length=n)
colour <- rep(colour,length=n); pch <- rep(pch,length=n);labels=NULL 
add.one.series <- function(N, alpha_v,beta_v, colour, pch, maxN) {
  cdf <- pbetabin.ab(0:N, N, alpha_v,beta_v,log=FALSE)
  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, cex=1, mar=c(5,4,2,2)+.1)
plot(x= c(0,max(N)),y=c(0,1),xlab=expression(italic(k)),
 ylab=expression(P(italic(X >= k))),type="n" ,main="")
 axis(1, at=0:(max(N)), lab=0:(max(N)),font.lab=5)
 
for (i in 1:n)
  add.one.series(N[i],alpha_v[i],beta_v[i],col=i,pch[i], max(N))
  

for(i in 1:n){ labels=c(labels,as.expression(bquote(paste(alpha==.(alpha_v[i]),", ", beta==.(beta_v[i])))))

}

legend("bottomright", inset=.05, title=paste("n=",max(N)),legend=labels

, pch=19,lty=1, col=1:n,bty="n") }

png("beta-binomial cdf.png") create.beta.binomial.cdf(10,c(.2,.7,2,600),c(.25,2,2,400)) dev.off()

许可协议

我,本作品著作权人,特此采用以下许可协议发表本作品:
w:zh:知识共享
署名 相同方式共享
您可以自由地:
  • 共享 – 复制、发行并传播本作品
  • 修改 – 改编作品
惟须遵守下列条件:
  • 署名 – 您必须对作品进行署名,提供授权条款的链接,并说明是否对原始内容进行了更改。您可以用任何合理的方式来署名,但不得以任何方式表明许可人认可您或您的使用。
  • 相同方式共享 – 如果您再混合、转换或者基于本作品进行创作,您必须以与原先许可协议相同或相兼容的许可协议分发您贡献的作品。
GNU head 已授权您依据自由软件基金会发行的无固定段落及封面封底文字(Invariant Sections, Front-Cover Texts, and Back-Cover Texts)的GNU自由文件许可协议1.2版或任意后续版本的条款,复制、传播和/或修改本文件。该协议的副本请见“GNU Free Documentation License”。
您可以选择您需要的许可协议。

说明

添加一行文字以描述该文件所表现的内容

此文件中描述的项目

描繪內容

某些值没有维基数据项目

a2df676355162b7e5512945098b9b49bd5881990

4,375 字节

480 像素

480 像素

文件历史

点击某个日期/时间查看对应时刻的文件。

日期/时间缩⁠略⁠图大小用户备注
当前2010年5月26日 (三) 23:092010年5月26日 (三) 23:09版本的缩略图480 × 480(4 KB)Nschuma~commonswiki{{Information |Description={{en|1=Beta-binomial distribution cumulative distribution function (cdf)}} |Source={{own}} |Author=Nschuma |Date=5/26/10 |Permission= |other_versions= }} # Display the beta-binomial distribution cdf in png forma

以下页面使用本文件:

全域文件用途

以下其他wiki使用此文件: