Có phân phối chung tham số sao cho


7

Có phân phối chung tham số sao cho và đều đồng nhất trên (tức là một copula) và là tuyến tính (theo ý tôi là affine) trong ? Đó là, trong khi và mỗi lề .XY[0,1]E[Y|X=x]x

E[Y|X=x]=a+bx
XYUniform[0,1]

Tất nhiên tôi có thể để và độc lập, trong trường hợp này . Có bất kỳ công thức tham số đơn giản nào thỏa mãn các ràng buộc của tôi mà không có hai biến độc lập không? (Một trường hợp cạnh khác sẽ là và .)XYE[Y|X=x]=0.5Y=XE[Y|X=x]=x

Lưu ý rằng và trong chỉ có một bậc tự do, vì .abE[Y|X=x]=a+bxE[Y]=0.5=E[E[Y|X]]=a+0.5b


Một số động lực trong thế giới thực để làm cho điều này bớt trừu tượng hơn: Nghiên cứu của Chetty et al về di chuyển thu nhập giữa các thế hệ tìm thấy (gần như) các công thức thu nhập tuyến tính (nghĩa là mối quan hệ gần như tuyến tính giữa xếp hạng thu nhập của cha mẹ và xếp hạng thu nhập của con cái họ). Xem http://www.rajchetty.com/chettyfiles/mobility_trends_published.pdf (Hình 1. Xếp hạng thu nhập của trẻ so với xếp hạng thu nhập của phụ huynh theo nhóm sinh) và http://www.rajchetty.com/chettyfiles/mobility_geo.pdf (Hình II : Hiệp hội giữa Xếp hạng phần trăm của trẻ em và phụ huynh).


4
Một mối quan hệ tầm thường (mà tôi không nghĩ rằng bạn muốn) là có X=Y. (cảm ơn @whuber vì đã chỉ ra ví dụ trước đây của tôi không phải là copula)
Cliff AB

Câu trả lời:


4

Chúng ta có thể phát triển các gia đình tham số phong phú từ giải pháp tầm thường với copula F(x,y)=min(x,y), trường hợp tương quan hoàn hảo (tích cực) và đối tác của nó cho tương quan âm hoàn hảo. Thay vào đó, việc tập trung xác suất dọc theo đoạn đường nối từ đến với cung cấp cho copula(0,α)(1,β)β>α

F(x,y;α,β)={xy,0y<α or β<y1βx,x(βα)yααx+yαotherwise.

Một copula tương tự phát sinh khi , mà tôi cũng sẽ chỉ định .β<αF(x,y;α,β)

Hình: cốt truyện 3D của copula này

Hãy nghĩ về những điều này như là hỗn hợp: khi , có các thành phần đồng nhất trên các hình chữ nhật nằm ngang , , và trên hình chữ nhật trung tâm có một mối tương quan hoàn hảo (phân phối của nó là cho biến được phân phối đồng đều ). Quan niệm này về giúp dễ dàng tính toán hồi quy: đó là tổng của ba phương tiện có điều kiện,β>α[0,1]×[0,α][0,1]×[β,1][0,1]×[α,β](U,α+(βα)U)UF

E(YX)=α(α2)+(βα)(α+(βα)X)+(1β)(1+β2).

Điều này rõ ràng là tuyến tính trong : phần chặn bằng và độ dốc là lần dấu của . Hơn nữa, nó đã được xây dựng để có biên độ thống nhất.X(1+(βα)2)/2(βα)2βα

Để tạo một họ tham số, chọn bất kỳ phân phối tham số nào cho với tham số . Đặt là hàm phân phối. Nó mô tả một hỗn hợp của thông qua tích hợp:(α,β)θG(α,β;θ)F(;α,β)

F~(x,y;θ)=F(x,y;α,β)dG(α,β;θ)

là hàm phân phối (copula). Bởi vì mỗi có lề đồng nhất, nên . Hơn nữa, hồi quy của nó là tuyến tính vìF(;α,β)F~(;θ)

EF~(;θ)(YX)=EF(;α,β)(YX)dG(α,β;θ)=((1+(βα)2)/2+sgn(βα)(βα)2X)dG(α,β;θ)=(1+(βα)2)/2dG(α,β;θ)+sgn(βα)(βα)2dG(α,β;θ)X=EG(;θ)((1+(βα)2)/2)+EG(;θ)(sgn(βα)(βα)2)X.

Điều này cho thấy mức độ chặn và độ dốc là kỳ vọng của đánh chặn và độ dốc (đối với ), cung cấp thông tin hữu ích để chọn gia đình phù hợp .GG(;θ)

Số liệu kết quả mô phỏng

Những tài liệu đồ họa mô phỏng từ một gia đình như vậy. Ở đây, được rút ra từ bản phân phối Beta và được rút ra độc lập với bản phân phối Beta . Cột đầu tiên hiển thị biểu đồ của việc thực hiện các tham số này. Cột thứ hai hiển thị biểu đồ phân phối biên của và : chúng gần giống với thống nhất. Cột ngoài cùng bên phải hiển thị một tập hợp con ngẫu nhiên của 100.000 giá trị mô phỏng, cùng với ước tính hồi quy của nó (đường màu đỏ) và gần đúng với hồi quy lý thuyết (đường chấm đen): chúng đồng ý chặt chẽ. Hồi quy ước tính thu được bằng cách tính các phương tiện củaα(5,1)β(3,10)XYXvà trong các cửa sổ của , sau đó làm mịn dấu vết của chúng bằng Loess.YX

(Đường hồi quy "lý thuyết" chỉ là một xấp xỉ thu được bằng cách thay thế và trong các công thức kỳ vọng bằng các kỳ vọng của chúng. Các công thức chính xác rất đơn giản để thực hiện trong trường hợp này, nhưng mã dài và lộn xộn.)αβ

Các Rmã mà tạo ra con số này có thể dễ dàng được sử dụng để nghiên cứu các gia đình khác .G(;θ)

#
# Draw `n` variates from the mixture copula.
# `alpha` and `beta` are intended to be realizations of G(;theta).
#
runif.xy <- function(n, alpha=0, beta=1) {
  a <- pmin(alpha, beta)
  b <- pmax(alpha, beta)
  xy <- matrix(runif(2*n), nrow=2)              # Start with a uniform distribution
  i <- xy[2,] > a & xy[2,] < b                  # Select the middle rectangle
  xy[2, i] <- (xy[1,]*(beta - alpha) + alpha)[i]# Create perfect correlation
  return(xy)
}
#
# Specify the parameters ("theta").
#
a.alpha <- 5
b.alpha <- 1
a.beta <- 3
b.beta <- 10
#
# Draw the slope `beta` and intercept `alpha` from G(;theta).
#
n.sim <- 1e5
alpha <- rbeta(n.sim, a.alpha, b.alpha)
beta <- rbeta(n.sim, a.beta, b.beta)
#
# Draw (X,Y) from the mixture.
#
sim <- runif.xy(n.sim, alpha, beta)
#
# Plot histograms of alpha, beta, X, Y.
#
par(mfcol=c(2,3))
hist(alpha); abline(v=a.alpha/(a.alpha+b.alpha), col="Red", lwd=2)
hist(beta); abline(v=a.beta/(a.beta+b.beta), col="Red", lwd=2)
hist(sim[1,], main="X Marginal", xlab="X")
hist(sim[2,], main="Y Marginal", xlab="Y")
#
# Plot the simulation and its regression curve.
#
i <- sample.int(n.sim, min(5e3, n.sim)) # Limit how many points are shown
plot(t(sim[, i]), asp=1, pch=19, col="#00000002", main="Simulation",
     xlab="X", ylab="Y")

library(zoo)
i <- order(sim[1,])
x <- as.vector(rollapply(ts(sim[1, i]), ceiling(n.sim/100), mean))
y <- as.vector(rollapply(ts(sim[2, i]), ceiling(n.sim/100), mean))
lines(lowess(y ~ x), col="Red", lwd=2)
#
# Overplot the theoretical regression curve.
#
a <- a.alpha / (a.alpha + b.alpha) # Expectation of `alpha`
b <- a.beta / (a.beta + b.beta)    # Expectation of `beta`
intercept <- (1 + (b-a)^2)/2
slope <- (b - a)^2 * sign(b-a)
abline(c(intercept, slope), lty=3, lwd=3)
Khi sử dụng trang web của chúng tôi, bạn xác nhận rằng bạn đã đọc và hiểu Chính sách cookieChính sách bảo mật của chúng tôi.
Licensed under cc by-sa 3.0 with attribution required.