द्विपद चर आमतौर पर स्वतंत्र बर्नौली चर द्वारा बनाए जाते हैं। आइए देखें कि क्या हम सहसंबद्ध बर्नौली चर की एक जोड़ी के साथ शुरू कर सकते हैं और वही काम कर सकते हैं।( एक्स), वाई)
मान लीजिए कि एक बर्नौली चर है (अर्थात, और ) और एक बर्नौली चर है। उनके संयुक्त वितरण को कम करने के लिए हमें परिणामों के सभी चार संयोजनों को निर्दिष्ट करने की आवश्यकता है। लेखन हम आसानी से संभावना के स्वयंसिद्धों से बाकी का पता लगा सकते हैं:( p ) Pr ( X = 1 ) = p Pr ( X = 0 ) = 1 - p Y ( q ) Pr ( ( X , Y )एक्स( पी )पीआर ( एक्स)= 1 )=pपीआर (X= 0 ) = 1 - पीY(q)पीआर ( ( एक्स , वाई ) = ( 1 , 0 ) ) = 1 - q
पीआर ( (X,Y) = ( 0 , 0 ) ) = ए ,
पीआर ( (X,Y) = ( 1 , 0 ) ) = 1 -q- ए ,पीआर ( (X,Y) = ( 0 , 1 ) ) = 1 - पी - एक ,पीआर ( (X,Y) = ( 1 , 1 ) ) = a + p + q- 1।
इसे सहसंबंध गुणांक लिए सूत्र में हल करना और हलएक = ( 1 - पी ) ( 1 - क्ष ) + ρ √ρ
a = ( 1 - p ) ( 1 - q) + ρ p q( 1 - पी ) ( 1 - क्यू)-------------√।(1)
बशर्ते सभी चार संभावनाएं गैर-नकारात्मक हैं, यह एक मान्य संयुक्त वितरण देगा - और यह समाधान सभी बीवरिएट बर्नौली वितरणों को मापता है। (जब , और बीच सभी गणितीय रूप से सार्थक सहसंबंधों के लिए एक समाधान है ।) जब हम इन चरों के को जोड़ते हैं, तो सहसंबंध समान रहता है - लेकिन अब सीमांत वितरण द्विपद और हैं द्विपद , इच्छानुसार।- 1पी = क्यू- 1n ( n , p ) ( n , q )1n( एन , पी )( एन , क्यू)
उदाहरण
चलो , , , और हम सहसंबंध को कहेंगे । का समाधान (और अन्य संभावनाएं , और आसपास हैं )। यहाँ संयुक्त वितरण से वास्तविकताओं की एक साजिश है :पी = 1 / 3 क्ष = 3 / 4 ρ = - 4 / 5 ( 1 ) एक = .०,०३,३६,७३५ 0.247 0.663 0.087 1000n = 10पी = 1 / 3क्ष= 3 / 4ρ = - 4 / 5( 1 )a = 0.003367350.2470.6630.0871000
लाल रेखाएँ नमूने के साधनों को इंगित करती हैं और बिंदीदार रेखा प्रतिगमन रेखा है। वे सभी अपने इच्छित मूल्यों के करीब हैं। ओवरलैप्स को हल करने के लिए इस छवि में बेतरतीब ढंग से अंक बनाए गए हैं: आखिरकार, द्विपद वितरण केवल अभिन्न मूल्यों का उत्पादन करते हैं, इसलिए बहुत अधिक मात्रा में ओवरप्लेटिंग होगा।
इन चर को उत्पन्न करने का एक तरीका यह है कि चयनित संभावनाओं के साथ से बार नमूना लिया जाए और फिर प्रत्येक को , प्रत्येक को , प्रत्येक में परिवर्तित करें। में , और प्रत्येक में । परिणाम (वैक्टर के रूप में) का एक साकार प्राप्त करने के लिए ।{ 1 , 2 , 3 , 4 } 1 ( 0 , 0 ) 2 ( 1 , 0 ) 3 ( 0 , 1 ) 4 ( 1 , 1 ) ( एक्स , वाई )n{ 1 , 2 , 3 , 4 }1( 0 , 0 )2( 1 , 0 )3( 0 , 1 )4( 1 , 1 )( एक्स), वाई)
कोड
यहाँ एक R
कार्यान्वयन है।
#
# Compute Pr(0,0) from rho, p=Pr(X=1), and q=Pr(Y=1).
#
a <- function(rho, p, q) {
rho * sqrt(p*q*(1-p)*(1-q)) + (1-p)*(1-q)
}
#
# Specify the parameters.
#
n <- 10
p <- 1/3
q <- 3/4
rho <- -4/5
#
# Compute the four probabilities for the joint distribution.
#
a.0 <- a(rho, p, q)
prob <- c(`(0,0)`=a.0, `(1,0)`=1-q-a.0, `(0,1)`=1-p-a.0, `(1,1)`=a.0+p+q-1)
if (min(prob) < 0) {
print(prob)
stop("Error: a probability is negative.")
}
#
# Illustrate generation of correlated Binomial variables.
#
set.seed(17)
n.sim <- 1000
u <- sample.int(4, n.sim * n, replace=TRUE, prob=prob)
y <- floor((u-1)/2)
x <- 1 - u %% 2
x <- colSums(matrix(x, nrow=n)) # Sum in groups of `n`
y <- colSums(matrix(y, nrow=n)) # Sum in groups of `n`
#
# Plot the empirical bivariate distribution.
#
plot(x+rnorm(length(x), sd=1/8), y+rnorm(length(y), sd=1/8),
pch=19, cex=1/2, col="#00000010",
xlab="X", ylab="Y",
main=paste("Correlation is", signif(cor(x,y), 3)))
abline(v=mean(x), h=mean(y), col="Red")
abline(lm(y ~ x), lwd=2, lty=3)