Posted on

توزیع دوجمله ای

در این برنامه  با مشخص کردن تعداد داده ها و  احتمال پیروزی در توزیع دو جمله ای تمام مقادیر احتمال و توزیع تجمعی را ارائه کرده ، همچنین نمودار این دو تابع را نیز رسم می کند.

##### binomial ########
binom<-function(n,p){
for(x in 1:n){
a<-dbinom(x,n,p)
b<-pbinom(x,n,p)
m<-c(x,a,b)
print(m)
}
x<-1:n
s=stepfun(x,c(0,dbinom(x,n,p)),right=TRUE)
t=stepfun(x,c(0,pbinom(x,n,p)),right=TRUE)
par(mfrow=c(2,2))
plot(s)
plot(t)
plot(x,dbinom(x,n,p),type=”l”)
plot(x,pbinom(x,n,p),type=”l”)
}
###example####
binom(10,0.2)

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *