在线时间 1630 小时 最后登录 2024-1-29 注册时间 2017-5-16 听众数 82 收听数 1 能力 120 分 体力 563333 点 威望 12 点 阅读权限 255 积分 174223 相册 1 日志 0 记录 0 帖子 5313 主题 5273 精华 3 分享 0 好友 163
TA的每日心情 开心 2021-8-11 17:59
签到天数: 17 天
[LV.4]偶尔看看III
网络挑战赛参赛者
网络挑战赛参赛者
自我介绍 本人女,毕业于内蒙古科技大学,担任文职专业,毕业专业英语。
群组 : 2018美赛大象算法课程
群组 : 2018美赛护航培训课程
群组 : 2019年 数学中国站长建
群组 : 2019年数据分析师课程
群组 : 2018年大象老师国赛优
. u* M0 c) x+ q
离散函数的数字特征及其R语言的应用 % _ W! |2 T) V- P( f
目录 0 h0 k) w( R1 i+ B* {
0引言
1 W. c7 n. y- m9 P+ S 本文结构 # p; ^" V1 Y4 R
理论公式 # }( `3 E* Z& v1 p& U+ S) x
1、几何分布 ' t; k! x2 K/ j1 u
2、负二项分布 9 T& T1 u7 k0 R* Q2 t8 A
3、帕斯卡分布
3 |$ B6 O% U6 |$ S$ L 4、泊松分布 0 ~) [( b9 Y. Y4 |+ G* k" b
5、 参考链接
/ E* \; f8 A+ g6 `+ [ 0引言
# r8 j$ y4 F6 G! C/ d" P- }! k 本文结构
- ]& F) Z, \/ z$ Q: _ 在文章统计学基础——负二项分布的数字特征1中介绍了负二项分布,在博客2中介绍了离散分布的数字特征。 * q' S+ S( I8 W# j& L
本文计算一些离散分布的:密度函数、分布函数、均值、方差、偏度、峰度、特征函数、矩母函数 9 [. x1 o& d8 Z6 v- t5 C
' M* C2 h4 @$ N , X3 c7 I; g1 r5 ~8 Q
理论公式
: j9 C0 z. S1 r 为了方便先给出计算公式:
/ c$ N6 j5 S' X! b* \
) i2 T, |7 ]1 t$ u' G+ E# {; Y 1 ~- h/ [$ [, C2 j" M+ _9 C
– 密度函数:f ( x ) f(x)f(x)
1 B2 Z C6 {2 F' Q0 [ . D' v% p$ F. X# {9 f9 w: Z8 r6 T
* J/ C* g3 a0 k* K – 分布函数:F ( x ) = ∫ − ∞ x f ( x ) d x F(x) = \int_{- \infty }^x f(x)dxF(x)=∫
. d7 ~0 q, _3 l% _' r −∞
+ b" g+ E% M* R4 O x , n' s) @: A, U6 W
9 q- K. E6 k! D2 [& J& j
f(x)dx
% h% c; `4 R' t" `) F# R 8 f- x$ p0 M% D% ]( G
* O; E& o' S2 K& V+ O1 N – 期望:E ( X ) = k 1 E(X) = k_{1}E(X)=k
/ I7 X) z" J+ P9 ]) o$ y3 t" j( I 1 3 {/ t4 H; g8 }) [" k1 f
& h" B9 c8 ~) n) e: C5 u
9 }& h7 P. ? E+ {
' q3 u% L- y/ o/ g
6 l, L3 M( J, Q3 w* ] – 方差:D ( X ) = k 2 − k 1 2 D(X) = k_{2}-k_{1}^2D(X)=k 9 ~* n5 s$ b7 ~( J# |: Q! Z- H& P) M
2 3 x" i3 v: L7 Z9 j0 J
N: U$ x @4 j5 K7 h. G( } −k 9 ~' ?" h' m& X. m
1 ( q: e7 E7 W1 p1 N' L
2
7 y* m* s4 e# f# g 6 `5 E7 e$ S( |2 y
, h& c) ] }! r5 e- _ 1 f) w% Y6 `' w7 u1 f5 G
& ]+ g# K) Z6 E: K6 p3 f: B
– 特征函数:φ ( t ) = E ( e i t X ) \varphi(t) = E(e^{itX})φ(t)=E(e
# O' y7 ~, y, A+ r itX : h5 w6 O7 |& x8 f
) & V3 ?. ]0 A2 ?' Y7 S$ v
+ M9 I% X% `% u; j4 d. x& k
2 p2 w8 f6 Q% A: a8 d* s" T
– 矩母函数:M ( t ) = E ( e t X ) M(t) = E(e^{tX})M(t)=E(e
' l9 U4 K7 Z' S8 i5 u" X tX 7 ^8 g) K1 w% D7 }6 G
) ( ]; j' C* q+ l0 A' d8 f
' O! E7 C7 S; ]) O m + y! n2 l1 o D3 v4 ~# o
– 中心矩的关系:E ( X k ) = i − k φ ( k ) ( 0 ) = M ( k ) ( 0 ) E(X^k) = i^{-k}\varphi^{(k)}(0) = M^{(k)}(0)E(X
7 k* ^' |2 C* J k
* |8 C- }( M8 X/ m3 S )=i 6 q7 v3 l; }7 v* {% K1 |- C
−k
1 A& @5 s3 \5 v" K7 p! j7 N φ 1 S+ z6 @1 j7 z' C) ]
(k) ! B5 I8 I% J) r" t4 x
(0)=M
% a/ P3 }% _5 c. o W (k) 9 O) t) ?7 a; v" s4 W
(0)
5 Z0 R9 }2 j& G& G- ?
# i* I9 W8 O# P$ W: g4 Q
. t0 T3 L, u: N1 W – 偏度:S k e w ( X ) = k 3 k 2 3 / 2 Skew(X) = \frac{k_{3}}{k_{2}^{3/2}}Skew(X)=
' J0 a V8 _9 C$ Q8 N# X k # w. h! t% }+ \4 ?4 @8 [
2 : {. N M) R, e. k" V6 M
3/2 2 Z0 M3 ]/ r1 \4 Z
& r3 R5 `4 m$ [% Q1 t: T$ q" O: x
* X2 g" q( j1 l& D( Z! o+ ~8 s5 G k
0 L5 O, [7 S, X+ H 3
- Q; L4 E- ?, S+ \) p
( k' G8 m- M) \4 [% ~ Q 3 J4 m) f5 v2 F) V" O
! y9 N3 D' I: m
3 * z% ~5 { c+ E: n! t' e" p6 T/ T5 Y
) _( N" |, V% y+ A4 J7 x6 F) S4 g
) \6 Q9 @% H( ~% h: ^8 z
– 峰度:k u r t ( X ) = k 4 k 2 2 kurt(X) = \frac{k_{4}}{k_{2}^{2}}kurt(X)= 7 U0 R9 \( ~. f- l1 m
k
0 q5 `' n N6 k: r6 A, ~) ]" F X. ^ 2 + k$ u3 E3 p# \3 s3 Z, S2 P8 M
2 1 N; s$ \+ m- u$ w( P# B
% ~# Q! o9 R: l2 A/ v0 G
( B' f: m& R" x+ T% {& n k
* x6 ?, ^6 ]7 w, i 4 7 m! G" A$ Y3 x3 [1 `: g
5 d! s7 q+ W2 @' M 5 r, t- q/ H/ \8 ^/ L2 n( c
3 ^ d- w5 T3 M; Q
4
" J- w; V) v2 b- G U" S1 {
& v( C5 `8 g. Q
- X+ h& Q& Q! ^& S' _! K6 [1 G 1、几何分布
! |5 p G0 c$ C% ?2 J c4 u) r8 Q – 密度函数:f ( x ) = ( 1 − p ) ( x − 1 ) p , f(x) = (1-p)^{(x-1)}p,f(x)=(1−p) ^: v" Y0 N7 \7 \
(x−1) ) I* q0 E# u- F2 e2 p
p, x = 1 , 2 , 3 , . . . . . . x = 1,2,3, ... ...x=1,2,3,......
0 E4 j/ i, a1 g7 U ' t5 ]) d% T( o) ~4 t1 k
7 k% N4 P9 J \9 d – 分布函数:F ( x ) = ∑ k = 1 x f ( k ) = 1 − ( 1 − p ) x F(x) = \sum_{k=1}^x f(k) = 1 - (1-p)^xF(x)=∑
) D" Z" T N3 c k=1 $ F6 g! M3 ^( K$ J' E. B- e
x 9 G/ j$ y1 y0 k+ l" G+ \
, i: M0 E3 n/ G5 o3 q& J& Q# c% n f(k)=1−(1−p) ) x! `% |$ Y/ a/ k& ?9 x3 v
x " N2 q8 R( d) G6 u; F3 j% L$ B
( ^; }" D1 Q4 ]; m3 J. y& C
, b: j; r; {7 o7 V2 M5 N8 T
9 ]2 I2 h @ _8 S# t
– 期望:E ( X ) = ∑ k = 1 x k f ( k ) = 1 p E(X) = \sum_{k=1}^x kf(k) = \frac{1}{p}E(X)=∑ + Z, o" F5 Z" {4 c/ k2 N4 _4 Q0 Z4 X1 N
k=1 0 p v# D( y6 a' U* }! u
x
6 D- Z1 g: [ j* {) F$ k
$ ~) w8 r3 b* t2 A7 }& Z- R8 ~: y kf(k)=
* P7 X/ b+ C$ H, Z/ B# ?% i2 D p
5 a! C7 L: P9 M( y 1 % N# m3 n; M, G( n; }
) w) N; }0 S; r( o
3 [8 K* B! R7 S9 ]$ K5 N 9 O3 f% L, G3 K
' B0 \0 z. ?- H2 [ – 方差:D ( X ) = ∑ k = 1 x k 2 f ( k ) − E ( X ) 2 = 1 − p p 2 D(X) = \sum_{k=1}^x k^2f(k) -E(X)^2= \frac{1-p}{p^2}D(X)=∑
% K2 E# S( ^* ?# Y! f" \! J k=1
3 a5 g1 P% o. V0 [8 k R0 H4 u x
E4 G; i {! y! v4 S; K
2 \6 l( g" ]/ K9 T4 S/ H ]* v k
8 ]+ f4 I' R$ O, Z4 z! Z( O 2
; W- g/ R7 x$ H f(k)−E(X) 9 `5 Q1 E8 x) E' j
2
5 M4 U0 U0 B& }1 @1 P = 1 r8 q3 i4 X; [' E, U
p
4 o( A6 P( r1 j. Q5 i 2
' a3 k& C/ T! j( G- k " f+ w- r& `; L
1−p $ k, r0 q. s9 A, ]6 v# ~# o
% l4 Y3 E" {4 Z5 d" y( ]$ f
8 l$ l! }, y3 f- n2 ?
" ?' `) A4 p0 Y# P. w* I* Y
+ l4 h5 @7 n8 e0 p) j* T( S
– 矩母函数:M ( t ) = p e i t 1 − ( 1 − p ) e i t M(t) = \frac{pe^{it}}{1-(1-p)e^{it}}M(t)=
) v: p0 O3 _# s. P- m9 n 1−(1−p)e
6 H, [8 j0 y' M1 ~7 J# [ it
' H6 H* K y. B5 I& p5 M0 N * v- ?4 z# m M$ M) q1 C
pe
( R# G7 |7 _3 p4 k it / ~* Z: o3 S+ M" t4 i- J
; S* Y* o2 h2 ]
5 K9 \0 p+ P3 p* Q4 X$ V ~$ @7 i
$ [' d8 b* F# X6 V+ H 4 K# V. r5 `6 s) `3 H
1 L$ z0 \& k" ~$ b! [9 R5 H8 F – 偏度:S k e w ( X ) = 2 ( 1 − p ) 1 / 2 Skew(X) = 2(1-p)^{1/2}Skew(X)=2(1−p) : P( w* ?) ?, D7 r/ F( ^
1/2 - e" r+ j. D0 \; b" P
. X* ], f) Q4 s0 Z& C9 Y2 \! E " [! M3 H- W3 R0 Z: X
$ E9 Q: W6 _. }+ q7 H – 峰度:k u r t ( X ) = 9 − 6 p kurt(X) = 9-6pkurt(X)=9−6p
9 }* y( U* Z. N# I: q( W1 H
: u/ P% n( }: z( u( H$ P/ l
* j5 {4 y6 x/ W! ~& m 函数 功能
% f/ f( h3 t: F3 e( |9 E dgeom(x, prob, log = FALSE) 概率密度
, e' @% d- ?1 e( j& u pgeom(q, prob, lower.tail = TRUE, log.p = FALSE) 累计密度 9 D" `- L9 g( a! ~# {; G. S. X. |- d6 e
qgeom(p, prob, lower.tail = TRUE, log.p = FALSE) 分位数
" c3 s0 o$ w1 P2 o9 p rgeom(n, prob) 随机数
- W' Q. }" i, _; L9 ]9 v V 几何分布的各中心距来自5: / B1 ]% m: k- l. L
# [% s4 v8 {- q5 v2 n + ?! H! |' G! r' x' ]
6 f% @% B6 b) i6 m0 d6 U7 _
. u1 u9 {$ X+ |+ l8 w
2、负二项分布 3 m( l+ v( j5 @* O+ e9 X
– 矩母函数:M ( t ) = ( 1 − p ) r ( 1 − p e t ) − r M(t) = (1-p)^r(1-pe^t)^{-r}M(t)=(1−p)
3 E" X' c' K* i& ?7 f9 \& d" \3 C r
0 [+ t/ v) j/ s8 \+ v) ^ (1−pe
0 j2 t0 r# S# r! Z% J6 x$ X! F t - Y7 M @; [3 i% w( i1 L3 p
) 2 B, X) {3 s- j" _* Z' Y% R- z( A; }
−r
8 f2 U% I) ~: |2 E) c
5 v* G, p0 K8 d7 [' G6 G2 h
6 o! A& x9 r# w/ X" N / `' r Z/ t$ \' q/ n
– 偏度:S k e w ( X ) = n 3 + 3 n 2 + 2 n − ( 3 n 2 + 3 n ) p + n p 2 ( n 2 + n ( 1 − p ) ) 3 / 2 Skew(X) = \frac{n^3+3n^2+2n-(3n^2+3n)p+np^2}{(n^2+n(1-p))^{3/2}}Skew(X)= ) `; G, M5 @8 T& v% L
(n
/ f/ i: t) Z0 ~" D6 {3 ?. r 2 0 p' t6 ], B: X- D {
+n(1−p))
# W" g' X" x: Z6 @6 Q 3/2
_6 p/ {) I* o+ r3 u6 p
( T. [; G( s' l2 B, L! c; @ n " M# y; `- @ n8 k, e5 c) H6 A
3
" x% E, V$ `( F3 b +3n : P/ }6 X# u2 }0 _( ?
2
4 S7 l1 {+ B. v+ P' \ +2n−(3n
0 g: q* O7 _1 [5 j3 b% F/ Y% A 2
3 y' V( @9 h# [1 Y% z +3n)p+np
% j# P5 e8 N U 2 & y% Q/ I% E+ a7 k9 K- Z7 U3 \# |( F
: U# F3 ?0 a8 H- w8 E* S# r 3 z9 |5 ~7 P2 ]8 F! _$ K5 O$ |2 \
/ G+ l2 M) Q6 k* k6 y8 @6 M
# Y4 A( R+ g; G' u- Y; M 3 y2 W) ~6 M* S3 a3 o' G* D" j2 a
– 峰度:k u r t ( X ) = 略 kurt(X) = 略kurt(X)=略 (带入递推公式自行运算)
0 I4 n7 L- D3 k( T / @8 k+ p j# X0 L
4 m/ R% H* L( w% R! X 函数 功能
! x) ?) k1 l3 _: r# {% ?* h6 B8 w: v/ n dnbinom(x, size, prob, mu, log = FALSE) 概率密度
! R0 T" M# r9 i. L& e pnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 累计密度 . V/ S# U& i- p3 \) |0 d
qnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 分位数
i) t4 P9 M! Y7 w3 C: s8 @ rnbinom(n, size, prob, mu) 随机数
9 y+ N+ `# O" ?& n 负二项分布的递推公式如下:6 : _+ z. ^) }4 x9 j4 Y) j' ]& M/ y
2 p) Y ^+ W8 X2 c" w3 s! n
3 r+ W' ^( d) ?) y ( b& D+ M1 E5 n" b+ u
9 D7 |, W2 S2 {7 x* O % Z9 [0 r4 K$ U8 Y5 E( r* a
8 Z. `4 i; k9 B) H
+ e- s+ F0 t) U* d' p
7 ~* c: ^/ A7 ^; C4 R6 K& r. j 3、帕斯卡分布 " H% `3 w3 \; r7 U& `
X XX服从r , θ r,\thetar,θ的负二项分布,Y YY服从r , θ r,\thetar,θ的帕斯卡分布。有Y = X + r Y = X +rY=X+r。即:在同样的实验中,帕斯卡分布是成功r rr次后实验(成功+失败)的次数,负二项分布是成功r rr次后失败的次数。负二项分布的数字特征推到见博文1。故帕斯卡分布的数字特征可以由负二项分布推出。
# L3 ^( w9 R( N: ~/ a! J" w X$ h- f 在R语言中我们仍可以使用下面负二项分布的函数做适当调整生成帕斯卡分布。
" Y, F4 K& g4 Q8 Y, [% |. l6 t 注:在百度百科7中还有另一种说法是: - f' d% f/ i, t- w0 H/ G
0 `$ b! A4 E5 g. t
! S# G4 H% j4 E% u4 x 帕斯卡分布,负二项分布的正整数形式,描述第n次成功发生在第x次的概率。
$ C- [/ i' n! c+ u: _
+ l T1 w2 n+ Q% `( r
6 _: A1 k7 J. x' f" `, c) ^! u 我们在课本中见的比较多的是负二项分布的整数形式,这时候课本会标注又称帕斯卡分布,类似于二项分布,负二项分布也可以推广到实数上去定义。大家感兴趣有的可以去自己找资料文献考察一下,这里就不过多的讨论其定义和数字特征的问题了。
. K# [, G1 r" o {
: ~( s6 R- h: S: H( z7 p/ f4 q, G' D
% \( \6 M6 p5 _% @ 函数 功能
8 G! y+ x+ x# F; U% m dnbinom(x, size, prob, mu, log = FALSE) 概率密度
5 V- o; Q( E5 K5 X9 X pnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 累计密度 , n4 I' \0 {2 o
qnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 分位数 : q2 E" Y @9 i
rnbinom(n, size, prob, mu) 随机数
+ y- c8 n4 M* ?/ k8 W 4、泊松分布
1 r/ e0 Q1 o7 [, C) o – 矩母函数:M ( t ) = e λ ( e t − 1 ) M(t) = e^{\lambda(e^t-1)}M(t)=e
+ ~- T% V! a0 ` λ(e
G% F* p$ W& @9 N7 c4 _ C T6 b t ' A0 y B4 v/ e7 e) a% u
−1)
. ^/ N; @3 {) b
$ v% q' q' n# J8 ], ?! a
2 k7 G; o! R: d/ M
% b8 C1 s( c8 J – 偏度:S k e w ( X ) = λ 3 + 3 λ 2 + λ ( λ 2 + λ ) 3 / 2 Skew(X) = \frac{\lambda^3+3\lambda^2+\lambda}{(\lambda^2+\lambda)^{3/2}}Skew(X)= * z/ _2 c% s: ^, ?3 b
(λ
' q8 g8 H, v6 X5 i% R0 z 2 & U. b# V/ i8 u: q
+λ)
! W9 ?+ O* S: @/ B' P3 k% q 3/2
. g* W* s1 i; w6 a) n& e; x 0 x H) t) |3 A# K$ [! _; o" O
λ
- Y. }' o: N5 ~1 K% w/ f) E 3 6 u, a& x% ]- o9 n. X. ~
+3λ
) z( t g# L" n/ K# L; f 2 9 T7 E; `0 o. j4 R8 r! J! Y
+λ 5 t! I# a E* B) ^. O& _1 P4 q5 n
8 w; ]( E4 H4 [ - D W! b: A3 J/ T
/ C) H. ~& N2 |* F. M; o m B1 X G3 w$ O7 M# h
– 峰度:k u r t ( X ) = λ 3 + 6 λ 2 + 7 λ + 1 λ ( λ + 1 ) 2 kurt(X) = \frac{\lambda^3+6\lambda^2+7\lambda+1}{\lambda(\lambda+1)^2}kurt(X)=
: A9 z1 C) c b: k9 p( s λ(λ+1)
, z6 a2 q; G* A& Q. t 2 " W4 e$ r6 W$ Z' A% L& N
( ~! s- Q# m2 w F0 k- V λ # k' n h' W& x( u! r& B
3
* L3 n& r1 ~4 w E1 o5 j +6λ 3 t; }, }- D' G8 y* R( {0 I
2 1 ^0 b4 C. z4 E, G/ ^! u% A
+7λ+1
6 e1 U6 x9 C6 M% T- @8 I" w4 e( L! m# L
0 C- ^* E! F! Q) o l" D5 w" x 2 C Z1 c! [$ f$ T$ v
2 X5 B3 C: r' r* s+ o' J
) {4 s# P: R- s9 \ 函数 功能 6 `5 y# ~! ~7 X3 {' P% R
dpois(x, lambda, log = FALSE) 概率密度 $ S1 z% u; y: v2 n( t. S& M
ppois(q, lambda, lower.tail = TRUE, log.p = FALSE) 累计密度
1 n3 G& O; i5 z5 `* P7 L) b qpois(p, lambda, lower.tail = TRUE, log.p = FALSE) 分位数
3 O5 m1 t- K: G& e# t3 M ~4 U& h& B rpois(n, lambda) 随机数 ! ?0 u0 R1 m* e9 F3 l7 A9 C
中心矩的递推公式来自8: % ?3 W4 C2 y4 F$ V( k
\/ S' |4 e1 i! | }
?5 \2 a$ h0 g2 {3 j5 Q5 F
' |# {7 G2 i/ i7 r/ T3 n8 u
9 U& `, P. c4 J" f, z0 N5 M: B 5、 参考链接
3 B3 _& {' S0 [6 I3 u7 C https://blog.csdn.net/weixin_46111814/article/details/105243202 ↩︎ ↩︎
, z0 \: ~) u& k/ Z' r ( I5 Y* u1 E1 d- ?
, J' C: |) o* r https://blog.csdn.net/weixin_44602958/article/details/105261188 ↩︎ ) {+ L' p+ @8 Z" A" D( _
; q. O+ X1 ^: y
7 s/ M# [5 V4 |2 v* T7 G z; e
https://blog.csdn.net/STcyclone/article/details/84310450 ↩︎
/ h! [5 j6 N8 l- X4 B 4 S, m9 }9 E6 E4 G4 s
! {2 ~5 X) p7 t* o& ~
https://baike.baidu.com/item/%E5%81%8F%E5%BA%A6 ↩︎ 7 ^2 @/ w& C7 ?. [4 P- f |1 f$ o
% U8 w- m# o$ w. k* S ^% G
! q/ r3 ?4 h; r( w: e https://max.book118.com/html/2019/0412/6234220152002022.shtm ↩︎ ' G3 o$ a* l+ k6 L2 @
: ~) o% k5 s1 W' }8 s5 O
% S, U) D5 L1 }* @3 c 朱成莲.关于负二项分布高阶矩的教学注记[J].高教学刊,2017,No.66,103-104+107. ↩︎ . w( E& d; w2 h e
0 F2 r1 u0 I4 T: K* q7 [
w/ X6 W i% J$ c* D, P https://baike.baidu.com/item/%E5%B8%95%E6%96%AF%E5%8D%A1%E5%88%86%E5%B8%83/1188907 ↩︎ 2 ^9 t8 h9 ~/ \ J) @ a7 }5 O
$ x, ~, ]9 q% T! Y
* J: k2 P- ^- X2 q* {+ e- G! v https://wenku.baidu.com/view/7f8328c10c22590102029d83.html ↩︎
- ~2 ^2 A! m, E. c: y8 o0 A ———————————————— 3 A* ^2 L4 [3 L3 A$ }# W
版权声明:本文为CSDN博主「统计学小王子」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
3 |& A. ?0 v( v& _1 e% {5 p 原文链接:https://blog.csdn.net/weixin_46111814/article/details/115499487
6 ]- r- A$ u+ H! t% J% _ 1 V- `/ ?/ n# K7 S
* q# G% e6 |5 L! Q* f% i: g
zan