- 在线时间
- 1630 小时
- 最后登录
- 2024-1-29
- 注册时间
- 2017-5-16
- 听众数
- 82
- 收听数
- 1
- 能力
- 120 分
- 体力
- 564460 点
- 威望
- 12 点
- 阅读权限
- 255
- 积分
- 174561
- 相册
- 1
- 日志
- 0
- 记录
- 0
- 帖子
- 5313
- 主题
- 5273
- 精华
- 3
- 分享
- 0
- 好友
- 163
TA的每日心情 | 开心 2021-8-11 17:59 |
|---|
签到天数: 17 天 [LV.4]偶尔看看III 网络挑战赛参赛者 网络挑战赛参赛者 - 自我介绍
- 本人女,毕业于内蒙古科技大学,担任文职专业,毕业专业英语。
 群组: 2018美赛大象算法课程 群组: 2018美赛护航培训课程 群组: 2019年 数学中国站长建 群组: 2019年数据分析师课程 群组: 2018年大象老师国赛优 |
1 A# C$ P1 t" M& c3 m离散函数的数字特征及其R语言的应用
. \8 {. W( c" }: Q. i0 B3 ^目录
: g, N7 i/ r1 B3 `5 K* m+ }0引言9 c/ l! x7 K3 p ]3 l) i
本文结构' ~9 [. k% H. |! ]! c
理论公式
* r) b4 ?' f6 X/ B6 H1、几何分布
" i$ j: F" x; u0 B4 ]2、负二项分布
9 _8 p5 `3 B! Z) d3、帕斯卡分布
* A& E9 L( y+ H; p5 A5 n4、泊松分布
# w3 F( [$ i7 [6 f% @; X5、 参考链接
, Z$ B/ w7 c9 D7 \0引言$ H$ u1 R, d. |7 E F1 K* k
本文结构
3 p' Z1 n. H# Y. b: R" R, V; u在文章统计学基础——负二项分布的数字特征1中介绍了负二项分布,在博客2中介绍了离散分布的数字特征。
3 A1 t; d& q9 z2 p本文计算一些离散分布的:密度函数、分布函数、均值、方差、偏度、峰度、特征函数、矩母函数
& r0 t/ e0 V% s0 @ I+ \
- F6 p# O' Z* G0 D" I3 j- F! W7 S$ M4 B0 F' H5 |
理论公式
4 z) U x0 E& `0 p( E$ P- }为了方便先给出计算公式:
7 q. `% e* t, i1 Z" h( d: ?/ h( C
+ H# X& W. R# }7 G6 s" n) E; X% F% ?: Q7 E, \2 F; ~$ T
– 密度函数:f ( x ) f(x)f(x)9 g5 n1 m$ s, W7 N
# a( E! Q- O: @% {% ^* [2 p0 m* x
" @/ V) e3 T! y; P5 `* d7 R– 分布函数:F ( x ) = ∫ − ∞ x f ( x ) d x F(x) = \int_{- \infty }^x f(x)dxF(x)=∫
P9 _1 ^! r" H' ~! `$ L−∞ J# ^, a' U s; L# D+ L, u- V7 G
x) w4 u' Q5 ~3 \ `# W$ o+ H3 N
7 j! `3 d* F4 f f(x)dx
# m9 j! K" ?2 T, O5 ^
# M/ S& j1 r3 X* H% _! ]5 A9 q8 B: v/ Z" }. f3 ^. M* @. s" {/ G& Z
– 期望:E ( X ) = k 1 E(X) = k_{1}E(X)=k 0 G0 ]" Q8 ?4 @6 Q! C& m6 g
1
9 W& t. l/ ] X; R
, K1 P* e7 y. T
$ {$ J" x8 S4 K" M6 g; Z
' L% w* y; n1 I t1 q1 ]4 u
/ S0 a# ?8 Z+ U4 p5 U) }3 \. Y2 V# j– 方差:D ( X ) = k 2 − k 1 2 D(X) = k_{2}-k_{1}^2D(X)=k
; ^( ]1 c9 [$ j: ~2
! O0 q' r& [0 h$ y/ j" L R# i- r8 P+ F
0 G$ Y. y: t9 a5 H+ X- I −k
8 r2 L' k+ k" X$ t1
0 |. ]- }6 `# x" r" I28 p1 ~ v7 Z: {% A
- C" h9 J# R) O7 T. Y1 C$ Q
# C( y, v: X- S- R
/ v2 E' G# J' }; I) O" E) @
1 `- @. }: i3 E) H' I5 @- M. E
– 特征函数:φ ( t ) = E ( e i t X ) \varphi(t) = E(e^{itX})φ(t)=E(e
! g- |/ v4 n& vitX
9 Z( S) ^0 b% S )
6 z/ j- I4 Y3 x$ X- f6 i6 h: N) D [& F B! b% m
) _% j; G) \/ P- b– 矩母函数:M ( t ) = E ( e t X ) M(t) = E(e^{tX})M(t)=E(e
9 c( `3 D" o8 f g6 O! {# y2 @tX+ }, B4 [ P: g9 H! b/ t* {& t
)
; B: n" Y' ], j6 l4 l: ]0 B9 W& x, i7 X: _
# k9 g# L+ a$ R/ Y3 V2 |
– 中心矩的关系:E ( X k ) = i − k φ ( k ) ( 0 ) = M ( k ) ( 0 ) E(X^k) = i^{-k}\varphi^{(k)}(0) = M^{(k)}(0)E(X ! C* N4 O! o6 g8 G! d
k
, f+ F. h) r( x3 f3 m5 k )=i
7 }. v* k W `/ b−k) V Z5 \6 b) N0 y
φ 5 [! I0 v& _$ {/ W+ ]7 w/ K
(k)
( C2 v/ T, m# y (0)=M 7 z3 [6 H+ m2 x7 q1 C: Y
(k)* h) b8 D; `, Q8 j( g
(0)
' Z% x* O, v& Q' Q1 m, T6 j# U
) l: t" X/ Z6 t7 c, ^2 y/ _6 ^+ H2 [: U& c7 m3 _
– 偏度:S k e w ( X ) = k 3 k 2 3 / 2 Skew(X) = \frac{k_{3}}{k_{2}^{3/2}}Skew(X)= % q! I" _2 a \% y
k U* H$ P+ i% a5 L L
2 ]8 e# y- ]& d. A, c
3/2 q" K6 B" X( z6 o$ |2 E% |
7 a+ N+ @- o+ s+ \; d1 E
1 X4 A. o$ z% K1 Y5 |9 `. [
k * @* d. L: u$ u
37 X' Z& }6 U2 I+ ?% n6 ^' Z% j
' K2 j; M! O2 v+ l; X: |8 V- N3 ? G/ t
$ R+ { }2 V' e) U+ J4 c% X% b
i, H3 g3 a+ a7 Z: h3 p 3( {7 f: `5 I( ]! t
+ Q* O# |) C6 _( V, f
+ h3 ~' \1 D( b( @5 L– 峰度:k u r t ( X ) = k 4 k 2 2 kurt(X) = \frac{k_{4}}{k_{2}^{2}}kurt(X)= ; ~1 H A" [' z. @# `( j
k
1 @! c. } \' |2
2 f( [6 c4 c0 }( p1 N- W1 M' C2
: N" ]$ d$ `7 E/ j2 G& f ( a% j8 t% O; \# A
9 ~1 I- k, ?+ J( Z; L7 x4 L
k ) n z" y# f' J# ^
4
+ p. c% F0 {, D0 e- F 3 k1 k+ \- k3 n5 h( g
, W6 d& l$ K! _ h* I# p; D 2 L* I8 I) G1 {) R7 i7 a, t' w. E
4
# b6 N4 \" _1 V: Z4 E
! a& N* k7 ^! D1 L- Z8 i' p9 q% @( S
1、几何分布
+ K7 c5 Y1 g- B1 `" U8 G0 V– 密度函数:f ( x ) = ( 1 − p ) ( x − 1 ) p , f(x) = (1-p)^{(x-1)}p,f(x)=(1−p) ; K- s e1 B- t1 `
(x−1)
" M/ _; H( ^+ D1 J1 s p, x = 1 , 2 , 3 , . . . . . . x = 1,2,3, ... ...x=1,2,3,......
. C @7 `* |; k ?) x7 v& c) w2 n. ? `9 |8 \
7 [4 o% L% E5 A6 Z/ c– 分布函数:F ( x ) = ∑ k = 1 x f ( k ) = 1 − ( 1 − p ) x F(x) = \sum_{k=1}^x f(k) = 1 - (1-p)^xF(x)=∑ $ {% K& D+ h7 A1 ^3 C W: {4 Q
k=1
& N/ P6 t3 B: A ix
9 ?+ d# l' l% Y1 ^, ]% g " C% Q5 a! E1 W
f(k)=1−(1−p) , M( v6 e0 Q H
x( q/ P g& S( n0 W
6 U' r4 k6 x# K2 ^# w" g- q
& A: `" Q9 N9 H( U7 {- W4 M1 z
7 t2 n4 o, F3 T6 h. o$ C– 期望:E ( X ) = ∑ k = 1 x k f ( k ) = 1 p E(X) = \sum_{k=1}^x kf(k) = \frac{1}{p}E(X)=∑ / F* _% e# {+ d
k=1& F8 E. _% i! w
x
; }0 Y* D& B! Q
* _0 q, D6 V, k+ }5 d kf(k)= / Q0 P+ \+ @. X6 e! x6 P
p4 `5 U' _" u$ v
1- q- c0 d3 |. V5 e* J7 K/ a: s6 u
h/ u: M! \, L, O* i r
. I2 a2 A6 G5 e# t% p1 K: [, W
3 y( Y& x9 V* Q4 T8 A- M
- E! d# }5 f7 o" ^" h- t– 方差: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)=∑ + X) T- |) {: z* t. s3 e" H
k=1$ T9 o* R/ u; O w7 z7 Z
x
" v! j+ p% Z7 F. Y7 C2 n8 j: _, N
# Z" c5 t% a( Y, f k ( g- z* d6 q* b0 Z
2, R: I% H$ m0 T" `' U8 w! B( |
f(k)−E(X)
% f: F% t2 y5 j' b: W2
4 ?- G! ~: |* L" T- `' @ = 2 h: |, t$ M( i; A: z9 `0 n; `/ y
p 9 N+ a( x* W3 i7 z6 z9 `; i4 _ G
2+ e Z) S( [5 B$ w/ x+ \: d
; O8 L9 j& M: `6 g+ n M1−p( q) I8 J a9 E) q2 g- S2 e7 S
4 a5 ^0 [ z2 W1 R3 Y/ U; C
6 _6 J S8 m; l q F6 J
) L# O6 n1 w- u4 @
( D: G& r3 H; y+ G3 d. u) Q6 d
– 矩母函数:M ( t ) = p e i t 1 − ( 1 − p ) e i t M(t) = \frac{pe^{it}}{1-(1-p)e^{it}}M(t)= 1 [% L, Z3 _* [* L
1−(1−p)e . A: ^2 _6 W$ t7 q
it0 `( e$ b/ @8 v
3 V& X* k) @7 R3 L5 a) d) \- y
pe
- s, j3 J- ?8 `+ f5 M% Lit+ u6 i! G6 z/ m( V" D4 A
$ A3 F3 @0 }: R
# L5 A7 |4 c$ t8 @+ u ' x! J+ Z9 \' D, j
# R- B; ~/ C1 l4 S& w
# D0 X" _# |6 w) l
– 偏度:S k e w ( X ) = 2 ( 1 − p ) 1 / 2 Skew(X) = 2(1-p)^{1/2}Skew(X)=2(1−p) ! i8 Q( f7 G6 @* L
1/2
1 O0 Z: u4 M- W5 J6 j
' r* I6 k# k# C
& h1 T. `: D, l+ C/ Y/ a& b3 R+ n3 i8 i) s6 n
– 峰度:k u r t ( X ) = 9 − 6 p kurt(X) = 9-6pkurt(X)=9−6p
$ o V8 i3 w5 o% p o5 `; d% y% v, A7 w
p$ K, S& q* {$ r/ D函数 功能. G7 Z, J! R" b& ?( K3 Q
dgeom(x, prob, log = FALSE) 概率密度
' p6 Z" S! K# ~, f7 W4 Zpgeom(q, prob, lower.tail = TRUE, log.p = FALSE) 累计密度) ]* A+ \# W5 J9 j9 e; Y/ C; x
qgeom(p, prob, lower.tail = TRUE, log.p = FALSE) 分位数8 B/ H# [0 f* D* E( M. \* X
rgeom(n, prob) 随机数
# q; e) ~" {- | B几何分布的各中心距来自5:- A* i: {$ k' T, V7 _7 }( E- M' [
: f, \$ Q* a# D3 [, O! }2 _! q7 F/ J" t& b' l
( Y( ^' I$ U o- v; A
; h m% k7 k6 L7 w/ n) Z6 _
2、负二项分布0 `; m" t8 K6 e9 C+ ^% h4 _
– 矩母函数:M ( t ) = ( 1 − p ) r ( 1 − p e t ) − r M(t) = (1-p)^r(1-pe^t)^{-r}M(t)=(1−p)
2 m9 y7 G$ p6 x) Nr
- z; g/ `6 Q' E: N5 o; B" o (1−pe
" m7 ]* [0 {- u/ T' F/ o3 x3 _# Ut
$ R( ^2 w) k' C: v b )
! L7 y5 m( k+ [; @! ~ r) A( b6 u; F−r
+ _, Z' d8 G# y' Q/ c% Z
! ~! p, c/ x# r+ b; O% o' K% \. W q. ^- q
$ {7 l5 k& s, ]; E3 R– 偏度: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)=
7 P: [# ~- V( v0 ~6 M(n
/ K6 d% V6 x6 d9 F9 Y5 V2) \ l. m- a* ~* I$ `8 }
+n(1−p))
, c. t( O8 ^' o% q3/22 F0 `/ x7 y$ q* r, K* E. O
* \: s% {1 M+ U" d4 f9 V
n 1 V5 I. L7 Z( u* U
3- ~" {4 I4 X, b) |! I; d! _
+3n
2 Z6 R4 {, r4 l: `3 Z2
% L. }) l* C+ P7 F6 o; z( P y8 Y +2n−(3n
' {* Q* l, {; ^5 g4 J. L2
& \/ U/ ^- \" T/ R! O6 o4 |( ] +3n)p+np " _8 B/ d& [ @9 D @% h$ p
2
! u/ C- c4 M" H3 [. n6 j
! N, D& f& d0 j4 A' p6 V ( H2 j5 j# O% N. T" @. `3 z
: @. f/ w, E" v) D0 L
) ?1 E) Z; q4 K [2 X/ D2 N# i7 V( z: J
– 峰度:k u r t ( X ) = 略 kurt(X) = 略kurt(X)=略 (带入递推公式自行运算)
3 l, w' r* m* S0 @, H" h7 S) n( T: t
8 m. ?& e6 X! S0 V; j. G函数 功能' q4 X. R1 {3 d# [- o8 ~
dnbinom(x, size, prob, mu, log = FALSE) 概率密度* B6 r) j5 _# e9 S( z
pnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 累计密度- X! s+ n, l3 n/ w' M
qnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 分位数8 z G1 _/ m% ]& A
rnbinom(n, size, prob, mu) 随机数
0 |* x. b* f% |负二项分布的递推公式如下:6
+ z2 P' E/ a3 p# X8 @
$ `5 S6 { m0 q/ a# C1 W# R4 B& I) B, H3 Q' J
" Z$ z% d5 _7 x1 }( ^8 Y
2 _4 v2 S- G( f& f5 [: G
% k4 s% H9 D. z5 I4 t, ]2 X$ W4 J
- f1 G- G& ?) e: o: [. F& c
7 \+ u2 L! x* j9 ^3、帕斯卡分布
% H) e2 ^! M) Z; D( G) V1 ^X XX服从r , θ r,\thetar,θ的负二项分布,Y YY服从r , θ r,\thetar,θ的帕斯卡分布。有Y = X + r Y = X +rY=X+r。即:在同样的实验中,帕斯卡分布是成功r rr次后实验(成功+失败)的次数,负二项分布是成功r rr次后失败的次数。负二项分布的数字特征推到见博文1。故帕斯卡分布的数字特征可以由负二项分布推出。, y) I+ A- a& d
在R语言中我们仍可以使用下面负二项分布的函数做适当调整生成帕斯卡分布。/ s( b( x, }: Y3 D# ?, f
注:在百度百科7中还有另一种说法是:5 M6 o) T! O, y( I: {5 _3 N' h
7 x8 g( K3 d9 g! b* J9 E- v& l3 t q
帕斯卡分布,负二项分布的正整数形式,描述第n次成功发生在第x次的概率。
2 \* m. K1 {( ~+ N( g( L, F
9 e) j( K: x0 z5 b! P E0 D7 l4 F* z. o0 J
我们在课本中见的比较多的是负二项分布的整数形式,这时候课本会标注又称帕斯卡分布,类似于二项分布,负二项分布也可以推广到实数上去定义。大家感兴趣有的可以去自己找资料文献考察一下,这里就不过多的讨论其定义和数字特征的问题了。
]( a: f9 `, c# U/ f; m
( s* w. f- g2 g# L" a% r7 d
/ h" X6 u+ w0 R0 c. d+ K函数 功能$ A/ X8 ]5 |5 B
dnbinom(x, size, prob, mu, log = FALSE) 概率密度# @* L. K7 u7 J) h0 f
pnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 累计密度9 }9 @# X- H$ i. p7 }4 q
qnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 分位数; ~5 n9 A# d7 M, P
rnbinom(n, size, prob, mu) 随机数
7 h; @" m& ~& j7 e+ J9 m4、泊松分布8 v/ F7 L' @1 q+ t; u7 Y" x
– 矩母函数:M ( t ) = e λ ( e t − 1 ) M(t) = e^{\lambda(e^t-1)}M(t)=e 3 M- E- [: t' H$ x2 ]
λ(e ! D$ |5 E; }. N
t
0 Q5 p: r9 _$ E: v. ?, ~/ ~9 i −1)
8 h- z& k. J% o, K
9 ~8 v0 B, ]5 x' P7 g' Y8 e9 } f# K9 R" F( ?7 N
+ ^) W5 d8 _3 u5 q8 {
– 偏度: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)= ' S8 ?3 F& Y. m9 x- J4 L/ T
(λ
: D; X" ?7 W! a* N4 k29 c) Y8 x, u: H. @# M
+λ)
/ R" u; [( y! R- ^* N3/2
' P1 q7 `3 y2 ?
4 n- p$ s, A. t! h4 k. V5 ?λ 1 R/ T4 M5 W; |& u- k7 ~5 G5 s0 k
3
9 }2 |( x# f! K: {& G +3λ 5 e# q! h0 Q# ?& c! n
2: N- c$ ~" O+ v. X b* a
+λ
; X0 P9 z Q3 T4 y
4 F1 g" ~( ^5 G* l7 o# A" w 5 t3 f R3 d* ^* K) p1 H3 W
% r; x4 v% A* r. `0 H- W
" I0 Q7 g _, N1 w S) g– 峰度: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)=
# T! g9 D5 i; t( z) W- K( Wλ(λ+1) . }8 A0 {, e) }
2* K: f: I! r: W8 f# E6 `
$ k% W1 L, o: ~8 b& s% J' s* a, Gλ * a& b3 Q3 ^* V6 H" J- {
33 T9 h5 p) R. f# A1 g$ O+ Z* R
+6λ
# Y: P) V D* N4 I5 D9 `& P2- q$ H `( l$ d' ]# i1 M& X9 m
+7λ+1
$ Z2 N4 G6 ?0 p& c2 s / N# F4 w# c2 w$ @4 c- {
) `( \6 P% }: W- M" Y! T
# X3 A' i! r: q5 e/ C6 }$ V+ _+ m3 O7 X3 }& M5 Z
函数 功能
; [* B3 F4 s; J! p/ n! |0 [/ Wdpois(x, lambda, log = FALSE) 概率密度0 ]- O9 n' W: c$ l
ppois(q, lambda, lower.tail = TRUE, log.p = FALSE) 累计密度
- U# b- M9 \ r% }2 b9 F5 [4 Eqpois(p, lambda, lower.tail = TRUE, log.p = FALSE) 分位数# [" y+ s) C; \# d8 p
rpois(n, lambda) 随机数
% k. X# \+ Q' i5 K$ }6 w中心矩的递推公式来自8:
8 z7 Y! l& `( e& r, y: g) f+ [$ t+ K/ Y( W% W- p# ?
! ]( p7 n v5 `7 Y! K
( }9 {" _+ f' U& S: A: _7 p. ^0 L! R# C# ~, Z- }% m
5、 参考链接
0 r- G& {# x e$ E1 [: l- q( {) `3 Qhttps://blog.csdn.net/weixin_46111814/article/details/105243202 ↩︎ ↩︎4 x G5 L+ V v, A" @
1 c. q1 G O8 \/ i1 P# A: h$ N) M% y/ c5 z- Y
https://blog.csdn.net/weixin_44602958/article/details/105261188 ↩︎' G- ^; f6 p( v; V. S
8 t: K5 {% E: H
7 v1 Y' [# H3 I- y, F! [8 e k4 w* C/ }https://blog.csdn.net/STcyclone/article/details/84310450 ↩︎% I# [( B. r& c9 ^
+ n8 ~: R5 ?7 P( E% w
$ w5 }* ?. i1 o! I7 X hhttps://baike.baidu.com/item/%E5%81%8F%E5%BA%A6 ↩︎
: J5 I, ^6 U$ l$ u9 d! ~' H1 N, a0 |. c3 i
% Y: E& j( u/ }" {$ T
https://max.book118.com/html/2019/0412/6234220152002022.shtm ↩︎
7 _3 ]- {8 X3 i; N' F7 x# G* Q
$ e0 L9 g5 P \+ s5 l H$ m* n, c, R* U' S
朱成莲.关于负二项分布高阶矩的教学注记[J].高教学刊,2017,No.66,103-104+107. ↩︎6 C) [" J5 |% z5 X
3 m( m5 f' g# h
1 k+ ?2 m9 R1 Vhttps://baike.baidu.com/item/%E5%B8%95%E6%96%AF%E5%8D%A1%E5%88%86%E5%B8%83/1188907 ↩︎
+ u) x* m4 }# X
8 w! i% ?: ?9 y, ^
6 y/ G8 X* u2 S1 W4 ehttps://wenku.baidu.com/view/7f8328c10c22590102029d83.html ↩︎
9 j% Q- I; M& m7 V* @% a————————————————. S& D. x( c/ Q: E
版权声明:本文为CSDN博主「统计学小王子」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
& H: [ `& i: T+ M原文链接:https://blog.csdn.net/weixin_46111814/article/details/115499487! G7 j. h- Z- |# l: W% f$ x
5 @/ c& j( c5 V) D) T: G/ X7 |4 h* \+ w- G. ?
|
zan
|