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:創用CC
姓名標示 相同方式分享
您可以自由:
  • 分享 – 複製、發佈和傳播本作品
  • 重新修改 – 創作演繹作品
惟需遵照下列條件:
  • 姓名標示 – 您必須指名出正確的製作者,和提供授權條款的連結,以及表示是否有對內容上做出變更。您可以用任何合理的方式來行動,但不得以任何方式表明授權條款是對您許可或是由您所使用。
  • 相同方式分享 – 如果您利用本素材進行再混合、轉換或創作,您必須基於如同原先的相同或兼容的條款,來分布您的貢獻成品。
GNU head 已授權您依據自由軟體基金會發行的無固定段落、封面文字和封底文字GNU自由文件授權條款1.2版或任意後續版本,對本檔進行複製、傳播和/或修改。該協議的副本列在GNU自由文件授權條款中。
您可以選擇您需要的授權條款。

說明

添加單行說明來描述出檔案所代表的內容

在此檔案描寫的項目

描繪內容

沒有維基數據項目的某些值

a2df676355162b7e5512945098b9b49bd5881990

斷定方法:​SHA-1 中文 (已轉換拼寫)

4,375 位元組

480 像素

480 像素

檔案歷史

點選日期/時間以檢視該時間的檔案版本。

日期/時間縮⁠圖尺寸使用者備⁠註
目前2010年5月26日 (三) 23:09於 2010年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 使用了這個檔案: