在线时间 1630 小时 最后登录 2024-1-29 注册时间 2017-5-16 听众数 82 收听数 1 能力 120 分 体力 568940 点 威望 12 点 阅读权限 255 积分 175905 相册 1 日志 0 记录 0 帖子 5313 主题 5273 精华 3 分享 0 好友 163
TA的每日心情 开心 2021-8-11 17:59
签到天数: 17 天
[LV.4]偶尔看看III
网络挑战赛参赛者
网络挑战赛参赛者
自我介绍 本人女,毕业于内蒙古科技大学,担任文职专业,毕业专业英语。
群组 : 2018美赛大象算法课程
群组 : 2018美赛护航培训课程
群组 : 2019年 数学中国站长建
群组 : 2019年数据分析师课程
群组 : 2018年大象老师国赛优
. W: u2 U& x8 [
离散函数的数字特征及其R语言的应用 5 ~% ^' F5 N- p
目录
5 M* M) I; ~; Y; K0 d) T 0引言
( `3 ~5 g& [! U/ T 本文结构
$ Z3 o3 K n+ M, ]$ B! E* T. U 理论公式 0 j1 [: Z* U% n2 Q/ g
1、几何分布
* ~, b* A+ K' Z' w# H1 T! k& x8 ] 2、负二项分布
0 O( I* G9 g0 R: Z 3、帕斯卡分布 , T6 D' K e: m' w a# P
4、泊松分布 7 z4 S5 p5 \9 q2 z" {1 ~, U- Z! \
5、 参考链接
1 m9 M, `% u/ W4 }5 Y+ t B 0引言
$ `6 P! t. ?% q5 { 本文结构
; [0 J- h# N# f 在文章统计学基础——负二项分布的数字特征1中介绍了负二项分布,在博客2中介绍了离散分布的数字特征。 3 o% Y) i. X* }! @' K
本文计算一些离散分布的:密度函数、分布函数、均值、方差、偏度、峰度、特征函数、矩母函数
b6 l( I/ `: i O& b5 ] ' `6 [; e% g6 E4 T' V2 r1 j0 Q0 H
9 x2 n8 \" y% B/ d 理论公式
4 i+ l0 p( t. j, } 为了方便先给出计算公式: ! C- d+ H* K, J3 s- s" J7 [9 K d
2 m3 r) J* R' U" u8 p4 ~
+ C% {4 C/ z! f. m S, n! ? – 密度函数:f ( x ) f(x)f(x)
# f% I* w( Q& e. [. f7 R# S
! ?& N; U* t9 P n/ D4 Q ! v) T; b4 w P' D7 |8 n, }9 I
– 分布函数:F ( x ) = ∫ − ∞ x f ( x ) d x F(x) = \int_{- \infty }^x f(x)dxF(x)=∫ 6 X" D% S5 L# ~8 [ r
−∞ & e& P0 l! c' x6 p
x 3 l& C4 g( e0 u! @% L; u
, Q6 c3 p# n/ W# F
f(x)dx
4 L4 [2 _+ L5 |' d. v9 ` $ |+ Z/ W( q: @$ l9 r
" i5 e3 Q. E7 C( W% i
– 期望:E ( X ) = k 1 E(X) = k_{1}E(X)=k
" `( P9 [ Y* X' x; t' G/ T 1 ; u7 s( N- F4 U t6 E1 I7 f; N& K, ]* O- @" T
( W v+ Q) B/ b& a @$ l3 |" m% f+ {
; Z9 c3 |6 t8 N2 Q/ [
: g% n/ ^5 I& D+ L) {6 u – 方差:D ( X ) = k 2 − k 1 2 D(X) = k_{2}-k_{1}^2D(X)=k
9 h& D& s( D2 |3 n9 B# f 2 , h) T$ ~( H* d+ p( _9 M$ z0 m
: J& d8 H& d! V u% T# I% M* V% m −k
1 W4 n- F3 d+ Z" k 1
- `1 }8 g/ p0 I" |9 z' F8 g: \8 S 2 ) \' {" V) v- @4 |4 a/ Y
+ c/ Y5 V; C# E
; {' \3 G* X1 {0 D+ P
0 B$ U1 w$ R1 S( F o - I5 G+ E0 E5 y/ ~" M+ U
– 特征函数:φ ( t ) = E ( e i t X ) \varphi(t) = E(e^{itX})φ(t)=E(e 7 c9 I! y# y/ x3 f0 J# A0 _# n! Y
itX
; r2 ~$ a8 v% {% d; `. L )
- |% G; F! e9 W0 J% U2 a' L ) k, x% N' r! t" J" k* o
+ ~1 K$ l& n3 c, t – 矩母函数:M ( t ) = E ( e t X ) M(t) = E(e^{tX})M(t)=E(e ) M6 K. i0 @$ M# a( T6 |0 v& F
tX Q. X6 z4 B. e; o
) o3 Y! ^; C; x- o
1 `3 W# p a1 f) t9 O 4 z( E2 `4 {- l" u) X& c4 q# |, l
– 中心矩的关系:E ( X k ) = i − k φ ( k ) ( 0 ) = M ( k ) ( 0 ) E(X^k) = i^{-k}\varphi^{(k)}(0) = M^{(k)}(0)E(X
" p- m1 u3 c; c* n/ @+ l k * _( j+ N' A: ], E9 ]8 `. j6 H
)=i
$ ^# {! G( N; @1 L0 o; v −k
* n. m7 M- B2 `4 v" P% L φ
3 _1 p) [4 o& Y% p (k)
; R) g% K4 U: H! W: W (0)=M 5 o. B* q: C8 ]) H6 D) E8 L0 Z
(k) # \4 q' ]4 ]: ]* g
(0) ) g& q3 k+ I9 u, {* ^7 r1 U
Q! H/ Q$ c0 C; Z( i
/ V* e, Q$ Y: L# g# Y3 A+ _4 ^ – 偏度:S k e w ( X ) = k 3 k 2 3 / 2 Skew(X) = \frac{k_{3}}{k_{2}^{3/2}}Skew(X)= 2 C$ L f! s6 D9 D
k
/ L! G, @4 O* b: @ 2 3 q5 x0 g+ k* G' z. ]! [! d' h! g
3/2
+ t6 k- {2 z/ s
/ a0 T' R8 z. @! u: H. I, S5 P
$ [2 W; V5 N. T k $ i+ P) K9 y0 `, M
3
3 o$ U' _: B8 B7 y- E/ _& a& V }5 R
& k: }6 U1 p* `! M
* d8 U- y1 J3 p1 r9 e5 { 5 n9 y: s9 u, n& J
3 " _1 ~; F A- T& {: [3 I, T/ q$ j
# a/ B7 d/ K6 l5 V, J. {# c1 d
+ h% u3 t2 V9 i' `) K – 峰度:k u r t ( X ) = k 4 k 2 2 kurt(X) = \frac{k_{4}}{k_{2}^{2}}kurt(X)= % K" I8 u- G3 o
k " o2 o, a* L* H* U
2 9 P) u6 x8 ]2 P
2
' b/ Q% ^- \7 q) X+ T0 x 1 a* j( i$ k: l4 i' m- `
. c* x/ v- e3 q0 S$ F* Y- ~4 f) h k
5 A- [. u* i9 d: t7 H/ I& q# L0 u! g 4 ( P" S( p' @" a5 I/ `" S; _3 y
9 k( Z0 @6 `2 R2 b4 }3 k
$ v6 b- O' b, T( x6 J$ Q 3 N7 e5 f: x6 A- |5 p9 U8 Y6 G
4 . i) [5 R$ ]0 V" d& m
7 u% C# y/ ~ z z: c
# o( a3 X' O/ q8 R; ? 1、几何分布 1 d ~- i* P! p" s f% Z! e0 C
– 密度函数:f ( x ) = ( 1 − p ) ( x − 1 ) p , f(x) = (1-p)^{(x-1)}p,f(x)=(1−p)
; C" ~& ^8 N; e; x7 K9 R5 e (x−1)
$ d c% Y$ v5 z1 E. C p, x = 1 , 2 , 3 , . . . . . . x = 1,2,3, ... ...x=1,2,3,...... # F! J, s* C1 n3 h% a1 {
* G8 Z' d/ \! ?
0 N4 f5 b# C3 ~- |/ |/ v# 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)=∑
9 {) G e+ o3 w( h7 ~ k=1 2 f" {7 [3 X. i( ?* o7 |, r2 D
x ) Z) J& }, e1 u" p$ Z4 D4 o+ {
d5 L# n& ?6 P/ K
f(k)=1−(1−p) * P# w$ \+ Q# l! q' ^
x 6 C4 d# \6 o, l9 L* M# w
4 F$ p: b! Z6 Y6 p% @+ ]# C
4 o( `! j% H& P7 A* w ( \6 o4 V9 `. c4 W( M
– 期望:E ( X ) = ∑ k = 1 x k f ( k ) = 1 p E(X) = \sum_{k=1}^x kf(k) = \frac{1}{p}E(X)=∑ 3 R1 |: n. A3 [$ X; v
k=1 $ _, y m6 y" }
x 8 \9 Q* l+ C4 Q' }5 U
' r9 J* J2 c7 ] s k4 j) |
kf(k)=
8 O! Q, Y, K7 ?7 Z" h! k p , S- u; |. h8 L: @, w5 Z( ]7 x& l9 w
1
( U% e+ V/ i6 Z6 w 8 B P! k3 F5 y& ?5 ~5 Q
" u/ v& X! R7 B' f( Y
2 K4 R+ i) E; i n/ v " s8 J8 K+ p1 i# J0 a
– 方差: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)=∑ ) q- n0 w, _% |6 _" b; b5 Q0 X9 @* O
k=1
' V( t# _2 U* m- a) g' X5 ~" l1 E x 3 s* ~2 W4 N4 L6 v: @6 k: Z/ L
) p: a( o/ U( s1 S9 I) G k 4 a; Z( M7 {3 S3 Y
2 + S8 J- y1 k/ N$ w
f(k)−E(X)
9 s% D8 R% ]4 M/ o4 @ 2 ) y8 z3 `- a" e! a X
=
7 \% k% ?* B6 W6 v1 ?# S9 \ p
. [( t2 z8 @9 a* \, X 2
0 ~( g+ n$ @0 E6 ^ 9 J5 S8 s1 s; t! p( n
1−p 9 M- P# C& [! i# Q7 T" b$ ?8 S- _$ C
+ f2 g F' Y( | r+ A' w
- q d) |# Q% e
: h' {. r- \8 B2 ^3 u0 T
( H2 ]2 N( T# a+ | – 矩母函数:M ( t ) = p e i t 1 − ( 1 − p ) e i t M(t) = \frac{pe^{it}}{1-(1-p)e^{it}}M(t)=
) d! A" P: F9 r" i% k9 L# J 1−(1−p)e * o+ M- K) N/ I
it
2 t3 w# P f" O6 P, F
3 |0 Q% ^. c- n pe * v. m) }: W& z
it ) o6 _0 f j6 ]" T: b1 J
2 _1 T- N8 |. T& k
( p6 D3 A2 t9 D& u& H: _5 d F9 L
/ y) N1 D+ e6 E1 S
" _0 z* s5 ^; I# j7 f6 W
0 J# i( k. t& I% C- N – 偏度:S k e w ( X ) = 2 ( 1 − p ) 1 / 2 Skew(X) = 2(1-p)^{1/2}Skew(X)=2(1−p) 8 n* H7 f; y# y0 Q8 _0 U9 @2 K q: R
1/2
8 i( w8 J/ I- ^0 i * R! P( Z m/ G$ r8 z
/ m0 |3 `; r$ \# R( |2 ?% o
8 k: W4 [/ W8 [
– 峰度:k u r t ( X ) = 9 − 6 p kurt(X) = 9-6pkurt(X)=9−6p 1 }9 z- j+ E% t: N# ]+ h! n) w
' P5 y8 M* G; S( L8 ? I! v' ?
9 L9 J1 h$ Y$ a) d7 h 函数 功能
2 R5 O( Y8 T. y$ ? dgeom(x, prob, log = FALSE) 概率密度 4 l* _2 k: y o7 s- M& a1 `
pgeom(q, prob, lower.tail = TRUE, log.p = FALSE) 累计密度
' o8 E4 R% e1 v* v6 b9 { qgeom(p, prob, lower.tail = TRUE, log.p = FALSE) 分位数 5 p, s0 C7 T+ [, [, k* n
rgeom(n, prob) 随机数 ) ?, e. v0 N9 X: H# g
几何分布的各中心距来自5:
0 ]* v- R1 G& t# }2 |( o $ Q2 Y# v' J0 E6 ~
6 t' |2 Z2 X5 Z& R6 P$ b ^2 c
' G$ G, @9 j& V1 o# U6 J, i* K r! o. e( Z6 s. n t1 P
2、负二项分布 ( _5 v0 f; o* h, ?5 h6 d) A. S9 o. `
– 矩母函数:M ( t ) = ( 1 − p ) r ( 1 − p e t ) − r M(t) = (1-p)^r(1-pe^t)^{-r}M(t)=(1−p)
8 G9 ]: n) F0 i- x& m0 E r
$ b1 v! J. y0 z/ k (1−pe
' S8 X7 Y H! i3 X; `9 @' i+ _/ V t ) h- z4 x2 G. `2 e3 R/ M
) {0 v7 t6 E% X% u/ A
−r
+ y0 \+ d& l. R$ F% \
' h* ~9 t# u& L) C2 p8 I2 [- A- K
7 G3 I% @0 A1 Q6 s2 w& I & B0 ]0 @8 S- z, A
– 偏度: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)= 9 t& e0 W2 N9 D1 P( O7 B
(n $ R) J/ }# J* B/ X4 m2 w7 @
2 : ?4 ^5 X" M# a5 N: i
+n(1−p)) 9 }! D# z* I/ F1 f3 ^
3/2 + Q' M% O h/ @5 F0 V/ G
; N! [! l5 D% Z# k9 B. s n % s4 M: \) ~0 I
3
% ~* n" N8 B: `3 W- ?4 L +3n
' l/ y4 W$ F) u5 u) T) R; B 2 ) w' J; F9 W% j, d7 F
+2n−(3n
! d8 |3 ~7 m8 D2 C0 C 2
. b9 L2 a2 C9 {4 c- l +3n)p+np 0 ~6 m0 L- H4 S9 ^6 T$ r R" u6 T3 Q
2
1 {* g: p6 ` i/ E 3 w$ V. |6 \( |, J$ [
' K/ B" ~. R5 Y0 B
' m+ u! k' Q: S) O* C+ _
2 L' ^ v9 I) q( U ' D _0 E; W# {' P
– 峰度:k u r t ( X ) = 略 kurt(X) = 略kurt(X)=略 (带入递推公式自行运算) ; _6 Z5 Z/ X; T/ @- v
2 R5 T: T X9 L; _* Z* [% \
w6 ?: G+ n4 t; [, X1 E 函数 功能
6 d% n# l; A$ P v7 g dnbinom(x, size, prob, mu, log = FALSE) 概率密度
& v7 [9 M6 N' K' ^+ _7 w4 a+ x2 Q pnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 累计密度
$ u6 Z4 }! C0 | qnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 分位数
# r8 U4 N/ m8 T) y8 ~0 @; E rnbinom(n, size, prob, mu) 随机数
! p; A% \ T) J9 C9 W( c4 {& E 负二项分布的递推公式如下:6
& W5 J# o9 h1 ?2 n, J: i
) {' \0 t- Q3 ^ 7 i; E" m4 j/ A( }* R
0 l4 r2 b9 G3 E* R; O0 g+ K % ~& t+ O) h( o
6 Z* D& e0 ?3 T9 @1 [8 f $ _6 i" r S4 G; l
9 G' {" H& [ j- J* x- i 4 p* E2 @: t1 @. t) o8 j
3、帕斯卡分布
( M M" g) l( V# e- p* \3 A4 C" a X XX服从r , θ r,\thetar,θ的负二项分布,Y YY服从r , θ r,\thetar,θ的帕斯卡分布。有Y = X + r Y = X +rY=X+r。即:在同样的实验中,帕斯卡分布是成功r rr次后实验(成功+失败)的次数,负二项分布是成功r rr次后失败的次数。负二项分布的数字特征推到见博文1。故帕斯卡分布的数字特征可以由负二项分布推出。 $ I4 d X2 q$ I/ r# ?
在R语言中我们仍可以使用下面负二项分布的函数做适当调整生成帕斯卡分布。
9 M- ^ W; j% d- E 注:在百度百科7中还有另一种说法是:
) @+ k; f/ y B) F- F ) c# `* o/ W+ Y3 B; X
" k; G7 L. S9 w d3 z6 [
帕斯卡分布,负二项分布的正整数形式,描述第n次成功发生在第x次的概率。
* A& Y4 |5 C% G5 j
. Y2 i& H; c% P4 T
: J8 I T) S0 i P 我们在课本中见的比较多的是负二项分布的整数形式,这时候课本会标注又称帕斯卡分布,类似于二项分布,负二项分布也可以推广到实数上去定义。大家感兴趣有的可以去自己找资料文献考察一下,这里就不过多的讨论其定义和数字特征的问题了。
# x( C/ m {! s 5 d5 [5 ~. y# i0 ]. i" g; T) z- y
2 }" X d$ K, e$ C) g3 k( ~ 函数 功能 % O% G( }/ s% M& r- ]1 q# w! P! d
dnbinom(x, size, prob, mu, log = FALSE) 概率密度
& E3 [7 F% J8 [5 | pnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 累计密度 ) p+ j t8 c, {& M
qnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 分位数
- M& ]8 u" q/ N rnbinom(n, size, prob, mu) 随机数
, b- c* Z0 T- y' n( V6 c0 x) `7 B 4、泊松分布
0 \6 P/ l3 E9 O7 N# T0 ^; N' p- e: \ – 矩母函数:M ( t ) = e λ ( e t − 1 ) M(t) = e^{\lambda(e^t-1)}M(t)=e
, }8 ^" ` X3 B: c λ(e
4 _+ {# @9 F3 s t 4 Y; R n9 O5 c4 v/ s
−1) , e, k* s8 k, h" r: C
* x P6 ~ `1 m
6 o0 D% f% n5 t
" t% M# |5 B- i
– 偏度: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)=
3 w0 v/ m* [$ t; |6 M (λ # e2 D) w$ c( R8 O7 L
2
- \ ~4 Q- r; P6 C+ v7 |( c( Y. a9 ` +λ) - n: k& H) G. d# F$ ?. i/ W
3/2
& Q! p2 v$ k' s& s4 t! D 7 R% U" }" G8 C2 f4 }: M% N8 S( [
λ
, R( F, {0 `8 x# x( L 3
4 |% b# G! A9 M p3 ?/ P +3λ
) u$ C( f: X, `$ z. c. v m- [ 2 8 l$ P: |5 \. @/ R( M7 Y* d& S
+λ
! b8 Q4 Z. l$ _/ @" ] 0 D9 |. K: n0 V
9 ~+ }7 z6 P' Z" }" \# ]4 G
[% i- X; c' |8 [# d
# w2 }* R, d6 i% j# ?: A ]: S, I
– 峰度: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)=
6 O8 ^; J8 y `, ~! q λ(λ+1) ' V4 W, L! h. _5 M2 v
2
: }1 ~! ^3 i2 S$ @2 u1 P" F5 a" y
3 L7 G1 ^8 Z/ j, |0 N: ? λ
6 e* x) @" S2 b) g% u3 s 3
1 y. @; V K6 n/ a +6λ
9 d2 ?! _# `( T/ l' r5 k* s 2
2 F9 R% G0 E0 A( [( c +7λ+1
; b3 b$ g2 H9 U8 D # E4 l" U4 [$ \: Z6 A
2 [* g+ |/ K; |1 h
1 r5 ~ ~/ t- d* b$ f V# t
' G1 Q; e- Q C7 _1 @* \
函数 功能 ; u- G; e/ n. r1 ^5 w
dpois(x, lambda, log = FALSE) 概率密度 0 Q$ X4 C5 b% a
ppois(q, lambda, lower.tail = TRUE, log.p = FALSE) 累计密度
/ A( |6 w7 k8 z1 p; W ^+ j& M4 Q qpois(p, lambda, lower.tail = TRUE, log.p = FALSE) 分位数 - M9 v1 C5 H/ w5 p' v
rpois(n, lambda) 随机数 ! V5 o: K1 F! x: K
中心矩的递推公式来自8: # ^* h9 I" X: v+ l$ W1 N/ U
0 j* a" @! ~5 p0 A' h: N 7 i. R9 U! n+ \3 _
/ O T1 Y- p$ N" X' } " f& Y8 t' y7 X5 j! m/ Z, A/ W' n6 j U
5、 参考链接
+ F- i3 \: N% H$ j' J3 k https://blog.csdn.net/weixin_46111814/article/details/105243202 ↩︎ ↩︎
0 _# |# q ~$ I 9 w- ^) w4 `6 D" t
# s0 I& V; {; r" e- Q! n- Q0 Z https://blog.csdn.net/weixin_44602958/article/details/105261188 ↩︎
: l/ g M8 l5 I& X! `+ T" r8 G " O+ k" d8 c1 C5 `
: Y2 v" W/ h2 K+ y- ~
https://blog.csdn.net/STcyclone/article/details/84310450 ↩︎ 3 t" Z) M) o+ ?2 s
2 \2 X7 g7 a* W1 h
9 ^; m3 s6 R" ?" a* r8 j7 h
https://baike.baidu.com/item/%E5%81%8F%E5%BA%A6 ↩︎
) j4 [0 G5 R( q0 k$ ^" O5 h9 x * Q5 x/ d2 C$ m" a. m
! [8 S% i( W* q4 @/ ]- u
https://max.book118.com/html/2019/0412/6234220152002022.shtm ↩︎ % x3 s$ c% n6 P% ~3 H {
! K8 R; J- c& A8 @- H
0 E8 j. E5 t6 Z( I; K
朱成莲.关于负二项分布高阶矩的教学注记[J].高教学刊,2017,No.66,103-104+107. ↩︎
& f( z2 K& q* F& p" \" @8 U 8 B1 |/ T- {, B: Y
2 R; d( c# F( P https://baike.baidu.com/item/%E5%B8%95%E6%96%AF%E5%8D%A1%E5%88%86%E5%B8%83/1188907 ↩︎
8 I* i/ ?# N" u5 a / w% E& d9 U! e3 y$ y# |
# y \4 ?9 r# V4 ` https://wenku.baidu.com/view/7f8328c10c22590102029d83.html ↩︎ 4 V/ E: q) j9 x7 R6 B, s
———————————————— & V; X/ q" g% G' E0 g
版权声明:本文为CSDN博主「统计学小王子」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
( u) A' \5 E. U& P' P# ^# f# c 原文链接:https://blog.csdn.net/weixin_46111814/article/details/115499487
4 a2 S) E. {% B- l, @
% m! z# A4 Y6 L+ A# k1 u 2 O" F. ]$ t! A) S& h( [
zan