ค่าเฉลี่ยของการแจกแจงเลขชี้กำลังผกผัน


11

ให้ตัวแปรสุ่มค่าเฉลี่ยและความแปรปรวนของG = 1 คืออะไรY=Exp(λ)ไหมG=1Y

ฉันดูการแจกแจงผกผันแกมม่า แต่ค่าเฉลี่ยและความแปรปรวนถูกกำหนดเฉพาะสำหรับและα > 2ตามลำดับ ...α>1α>2

คำตอบ:


9

ระบุว่าการกระจายชี้แจงผกผันมีคุณได้สะดุดเข้ากับความจริงที่ว่าค่าเฉลี่ยของผกผันชี้แจงมี∞ ดังนั้นความแปรปรวนของเลขชี้กำลังผกผันจึงไม่ได้ถูกกำหนดα=1

หากเป็นสิ่งที่ตรงกันข้ามกระจายชี้แจงE ( G R )มีอยู่และเป็นที่แน่นอนสำหรับR < 1และ= สำหรับR = 1GE(Gr)r<1=r=1


นี่เชื่อมโยงกับคำถามของฉันที่นี่
Diogo Santos

3

ฉันจะแสดงการคำนวณหาค่าเฉลี่ยของการแจกแจงเอ็กซ์โพเนนเชียลเพื่อให้คุณนึกถึงวิธีการ จากนั้นฉันจะไปหาเอ็กซ์โพเนนเชียลผกผันด้วยวิธีการเดียวกัน

รับfY(y)=λeλy

E[Y]=0yfY(y)dy

=0yλeλydy

=λ0yeλydy

การบูรณาการโดยส่วน (ละเว้นหน้าอินทิกรัลสำหรับช่วงเวลา)λ

u=y,dv=eλydy

du=dy,v=1λeλy

=y1λeλy01λeλydy

=y1λeλy+1λ0eλydy

=y1λeλy1λ2eλy

λ

=yeλy1λeλy

0

=(00)1λ(01)

=λ1

ซึ่งเป็นผลลัพธ์ที่รู้จัก

G=1Y

E[G]=E[1Y]=01yfY(y)dy

=01yλeλydy

=λ01yeλydy

ความแตกต่างที่สำคัญคือการรวมเข้าด้วยกัน

u=y1

และ

du=1y2

G=1y

http://www.wolframalpha.com/input/?i=integrate+from+0+to+infinity+(1%2Fx)+exp(-x)+dx

α=1α>2


1
exp(λy)0y00ϵ1ydyϵ>0E[G]

0

หลังจากการจำลองแบบรวดเร็ว (ใน R) ดูเหมือนว่าไม่มีค่าเฉลี่ย: ป้อนคำอธิบายรูปภาพที่นี่

n<-1000
rates <- c(1,0.5,2,10)

par(mfrow = c(2,2))
for(rate in rates)
{
  plot(cumsum(1/rexp(n, rate))/seq(1,n),type='l',main = paste0("Rate = ",rate),
       xlab = "Sample size", ylab = "Empirical Mean")
}

เพื่อการเปรียบเทียบนี่คือสิ่งที่เกิดขึ้นกับตัวแปรสุ่มเลขชี้กำลังของแท้

ป้อนคำอธิบายรูปภาพที่นี่


5
ไม่สามารถหาค่าเฉลี่ยได้เนื่องจากเลขชี้กำลังมีความหนาแน่นเป็นบวกในพื้นที่ใกล้เคียงใด ๆ ที่มีค่าเป็นศูนย์
whuber

@whuber แน่นอนนี่คือสิ่งที่ฉันพยายามที่จะเน้น: ค่าเฉลี่ยประจักษ์ไม่ได้บรรจบกันสำหรับการผกผันของกฎหมายชี้แจงในขณะที่มันทำสำหรับกฎหมายชี้แจง
RUser4512

5
101000

โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.