数学建模社区-数学中国

标题: 离散函数的数字特征及其R语言的应用 [打印本页]

作者: 杨利霞    时间: 2021-6-24 16:22
标题: 离散函数的数字特征及其R语言的应用

7 D0 r" F. u; |$ C+ M6 z离散函数的数字特征及其R语言的应用$ }' e  s( p! ?% w8 p
目录# X6 j5 R! R5 ?- P  O8 w
0引言
9 T. |5 e/ y9 l0 t; n4 G' P7 t* l本文结构
/ g% d' k4 H/ }% i: M6 M+ A8 N理论公式
& }2 r% w5 H# l4 e+ [# Y1、几何分布
2 Q& x! G8 T  N$ }# @5 w1 V2 o2、负二项分布
; W' H2 b9 A6 [- Q# w9 ]( ^3、帕斯卡分布
2 F5 {0 J) k% B& K( ?: E: G* ~4、泊松分布
6 L5 l6 C8 j; i  p! I5、 参考链接
8 a0 A! \+ p" ?/ a/ |0引言  ?) M0 E& ~- N- A
本文结构
6 |" d/ [1 [) \1 x) Y: Q3 _8 v/ {在文章统计学基础——负二项分布的数字特征1中介绍了负二项分布,在博客2中介绍了离散分布的数字特征。1 S" y/ o& i6 P
本文计算一些离散分布的:密度函数、分布函数、均值、方差、偏度、峰度、特征函数、矩母函数
- M- G& U( ^/ s# q6 p+ P. T
% `; ~( L* Y' d% K% h
/ }" t5 {0 D0 k1 _! h
理论公式8 p! ~( h2 |% h7 ^# s- s
为了方便先给出计算公式:
3 h/ Z. ]9 ?8 T' u& ]: b# r3 e7 ~8 M. e* S( Q1 s

7 s' \$ N+ C, ~5 c– 密度函数:f ( x ) f(x)f(x)7 [3 c( o4 i& h2 w
- n: y: W% W" T

( Q. i! k; Q" I9 D' A+ v  q– 分布函数:F ( x ) = ∫ − ∞ x f ( x ) d x F(x) = \int_{- \infty }^x f(x)dxF(x)=∫
% A/ k6 K, t6 c−∞, k# @  r! {: R+ `$ G4 H4 Y8 m* V$ o
x
/ n+ [0 X& }. S  ?3 ^0 T6 h​        ! @4 B* J, O* Z4 u: q1 n- t
f(x)dx5 I$ w; C3 J4 e# G$ i

- L+ Q; \5 d5 C2 \
+ N# I- W' t5 W
– 期望:E ( X ) = k 1 E(X) = k_{1}E(X)=k
) a( g& ?/ [4 Q( w1+ ?( S& z+ a9 I3 |$ t
​       
" `! e0 ?* a1 Y2 Q( u! A
0 y8 M. b8 j3 }' `, H. b5 h+ \1 [4 F5 Z, s) E$ x6 y; ~
, \$ P0 n4 O8 u4 L5 U, }7 S/ A8 d
– 方差:D ( X ) = k 2 − k 1 2 D(X) = k_{2}-k_{1}^2D(X)=k 6 t0 K( t1 a, s. d% z6 ~. s
2
# [- w+ k' h1 S+ D  r1 G/ l3 x​       
) o$ g. m5 c7 | −k
# P* ^8 ]& j* r) F, s0 `: u1" l  x4 |: S3 V& V$ E3 C; d
2
0 k/ ~" W+ M, \5 y6 N) H​        & \1 [/ v6 I6 p8 `0 f; r/ h3 k
5 J0 k' \( b8 I* R

' q* \* o; P2 z2 X5 M! W' F
' T  p: _* k8 r, k  ~0 s, |8 _
– 特征函数:φ ( t ) = E ( e i t X ) \varphi(t) = E(e^{itX})φ(t)=E(e
$ [* r2 Z* v) aitX9 Q/ g3 p$ w/ \
)
* s/ G1 J6 W  q5 Q" _& P: m; e  u' Q  T3 _; M% Q
) h# |0 Y/ b; Y- E; V
– 矩母函数:M ( t ) = E ( e t X ) M(t) = E(e^{tX})M(t)=E(e ' |7 j# M( T6 a9 j0 i( {  u* ^
tX
; \. T& M; a% L% G, O ): [7 w3 M( ?6 u2 W  [8 [0 ^  c

& G/ d! C4 [% V

5 w. J% ^$ b8 T' K/ w- ^0 X– 中心矩的关系:E ( X k ) = i − k φ ( k ) ( 0 ) = M ( k ) ( 0 ) E(X^k) = i^{-k}\varphi^{(k)}(0) = M^{(k)}(0)E(X 5 q3 n+ t/ i3 V
k
! v% U7 ~2 h5 p5 z )=i 3 X# m* K" `% S9 P4 ?3 F. t- y2 H. S
−k  G& I$ S* e' W) R& @# y7 n7 \# _
φ . c; y: J% l! ?1 M# O7 a
(k)2 d  k! d& U; p# {+ I1 o
(0)=M
  m# ~! q, f  m& C/ ](k)
# n! {, G1 j$ |3 }' s; `0 \6 [ (0)8 P. z* }* Q$ W/ Z' y& w/ m+ j
6 A  v% r0 B1 x# |

7 k4 x7 x+ y7 _5 t) o1 d6 U! e– 偏度:S k e w ( X ) = k 3 k 2 3 / 2 Skew(X) = \frac{k_{3}}{k_{2}^{3/2}}Skew(X)= ; B0 B, |  v  b* ~. z( m; _3 b
k 0 x( k' R% J5 E8 r* s
27 U3 ]6 [# m; ]" `) x/ n- _
3/2
+ y* K- c) Z% \; K: q" F! u​        7 n9 x# P$ P# f

2 G8 I+ f; l) M* ^3 K5 sk
, i& e4 {. B- |+ S$ z2 f8 c# x9 h3
% @$ A( d. f" ]0 B: t0 {​       
8 \7 q$ P2 J! E3 y1 z% i, P  t $ R8 X4 q# k4 R! h; c
​        8 D9 R$ K- [/ P, n
3
' J, I8 a8 }2 T$ @- ^! `( ~  v% P
4 g% `* C$ t$ i7 k  T- N4 O0 ]. i

" \7 G' H  f5 c. `– 峰度:k u r t ( X ) = k 4 k 2 2 kurt(X) = \frac{k_{4}}{k_{2}^{2}}kurt(X)= - W6 L5 f: Q  r2 x- [. }' F
k % W  f8 m0 ^4 ]
2
# P; m+ I: l: n$ R* z2
& m) i% Z6 j6 s4 S/ j- N​        4 ^) r) s- @1 B2 [7 `; x
5 g0 q2 l. Q! n! U* `- V' l' _0 c
k " h5 Y6 Q6 s9 }
4
4 q3 Y5 `4 |" }9 a( P9 f' k9 O​       
5 n) \9 P- n5 d+ k& V; r! m& ]8 W 1 [% G5 A4 ?) p# O
​        2 I0 R7 T1 g' E3 m# U
44 k  g" B- P8 ?
! G3 w: N$ @1 k7 ~" A% M( g4 {" e) m  g

2 F0 @5 o! @( `- `. o' M1 {# C1、几何分布: T  Q5 o6 v. B0 ^* _% r# [
– 密度函数:f ( x ) = ( 1 − p ) ( x − 1 ) p , f(x) = (1-p)^{(x-1)}p,f(x)=(1−p)
2 ^# t" T1 ^1 u0 A(x−1)
; S: R% ]- T4 d' }3 J p, x = 1 , 2 , 3 , . . . . . . x = 1,2,3, ... ...x=1,2,3,......$ Q5 d: _9 U: N+ K8 r

, k  N! C3 \7 I' Q; Z+ y$ ^( d
$ a" ?( y7 s: ?" Y
– 分布函数:F ( x ) = ∑ k = 1 x f ( k ) = 1 − ( 1 − p ) x F(x) = \sum_{k=1}^x f(k) = 1 - (1-p)^xF(x)=∑ . |) l3 J; `" N! h7 i
k=1) H6 I" N+ v: W  l
x
/ P9 S! S' F. v3 @$ v, |​        / E: N1 Z7 U) l" ^$ }% B
f(k)=1−(1−p) " i8 E3 o4 i+ B* v2 }8 d4 ~4 m4 C
x% r2 f* G) b' _

$ h2 ~$ J0 T9 E4 n" e4 @1 F' A4 g
" ^7 U* c& H. [8 ~

0 F7 ?; M  q7 E$ Y- b– 期望:E ( X ) = ∑ k = 1 x k f ( k ) = 1 p E(X) = \sum_{k=1}^x kf(k) = \frac{1}{p}E(X)=∑
" S1 W* ~4 _' |6 S0 v3 yk=15 q; u: |+ K5 @2 C3 A$ \
x
7 ~$ x, {3 O- [​       
; I6 H% Q. d/ {4 W. F: o. M9 E  |1 g1 X kf(k)=
: \4 M0 [4 w  C- y7 h/ M& Fp  P0 d! a' {5 S! H% i8 B
1
# V/ Z$ p2 i6 L, W​       
: @% V6 {. g# v/ f+ }8 X2 y0 t
) s' K/ i7 ~# |  A6 J: ^% l1 a# B
! o9 F& L0 t, [, I6 N, x( z; p
3 ]: I* a9 {% b0 s
– 方差: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)=∑ ! ^* G) X+ f. D, ?. r+ H
k=1
. R$ Y& H, V( B. V  @# U* t0 ?& gx
1 D9 k' y" R3 r3 i$ T+ u2 L8 X& i8 s, `​       
4 S8 y' X: C& b& a" K7 } k
) h/ d9 d8 s- l9 ^6 T* v5 |2
% Z$ W# H* }. W3 h' X f(k)−E(X)
1 L! J8 W' t: `2 c/ I: `1 A24 O1 u3 F7 v- X3 A  A6 G
= ; d8 |' N( p$ @7 d7 K
p ! }3 j7 N+ K. _2 E$ i- I& v
2
$ Q7 N: V$ R7 s6 V! S' E' U: ?
- f9 R* F+ _$ B% ^( M1−p% M) J: m) [& _0 |. `
​        ) v1 o$ ~: Q  r8 ~) h2 x
+ s. [0 i* z) t3 @  c; ~
, O7 f- ]/ k& o. A/ n" U

/ o+ `/ h% m/ i! \; g$ F. N# I% f– 矩母函数:M ( t ) = p e i t 1 − ( 1 − p ) e i t M(t) = \frac{pe^{it}}{1-(1-p)e^{it}}M(t)= ) |! x3 j# h9 E* u( r
1−(1−p)e 0 M  u! D; {3 i% j$ ]
it, x6 P( o' R: C# r. x; R

5 T$ }8 D6 V5 `, F6 ppe
+ H: Z1 |! d  b+ z2 }it( P( V7 K! K/ T$ h8 l/ D: L; }
- ?( Q9 e, u1 G0 O, K+ D6 u- S
​       
& Q: C, E3 {" v' v, j/ v / o5 f" @8 c2 j. i& a& Z2 G2 J
) o8 q8 O2 d) `8 R* J* c6 i5 @9 h8 i

5 E, t# k/ n2 c# p– 偏度:S k e w ( X ) = 2 ( 1 − p ) 1 / 2 Skew(X) = 2(1-p)^{1/2}Skew(X)=2(1−p) * ]9 G1 D2 J- C. _
1/2
+ }- F$ Z; B9 q# v( r/ }
/ S! o. L  T5 L
1 N& f' I3 b& ~: ?' @5 d

+ g' T8 G0 I0 k* U. A. Z– 峰度:k u r t ( X ) = 9 − 6 p kurt(X) = 9-6pkurt(X)=9−6p; k4 g+ f4 i9 s
! c; Z: P2 H7 R* U
, N; ^* j- E% i1 Z7 D& l9 B6 D: o9 n
函数        功能
/ t/ o( `4 s4 m8 C7 f$ Odgeom(x, prob, log = FALSE)        概率密度: A5 W3 C' S1 b4 n" o+ `4 G: \
pgeom(q, prob, lower.tail = TRUE, log.p = FALSE)        累计密度
$ v& E- _5 b! g  C6 `$ Y' k6 Uqgeom(p, prob, lower.tail = TRUE, log.p = FALSE)        分位数
% e$ F" e+ g6 [1 {+ J- yrgeom(n, prob)        随机数( E6 Q- ]. e5 [( w
几何分布的各中心距来自5:
! S' h9 S8 @( N7 V. t% L
2 e- }; d* g) L0 x

" q% S2 H$ H2 T. }) z& C
' x+ g* ]3 [3 i) J' ^
/ _+ A: c" ?- j. N% e: C: `( Y
2、负二项分布5 J; l9 O+ h4 X( j7 \4 ]
– 矩母函数:M ( t ) = ( 1 − p ) r ( 1 − p e t ) − r M(t) = (1-p)^r(1-pe^t)^{-r}M(t)=(1−p) . S. F* \( E4 J7 e$ y7 N  q
r
4 r1 X5 f' E! |5 _6 }- H (1−pe
8 M. C0 J; g) Z( Y4 K% {( H  }/ [5 ^t
7 E; m# d! R: v ) " }' g6 |# ]! @4 G+ d+ X% R  T
−r3 ^4 j7 G. h: t
& _: e$ q' f/ X( r' y: d

8 H' [6 s& b7 K! D. w/ T( N9 p

! J. I. ~0 [. C0 j  A3 h7 `& C; O( C9 P– 偏度: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)=
" L8 J+ R0 i3 I+ d5 ?" S(n
( n3 S9 J# _1 x. `' Z2
4 l5 {) o/ U& T +n(1−p)) ! u0 g: D& d9 F$ d+ W% c0 g0 g
3/2; T! R1 s4 p( a% y
+ m& i* Z. \1 J6 X
n
4 {/ N. E3 K' A+ ]- S0 I+ k3
3 d9 X' W. t$ V- i5 L8 R, W6 S +3n
% d* e, w) S: w6 e8 ]2
3 I5 z) N& ]3 Y8 A7 k! l) d0 b +2n−(3n 7 u# N" Z  t1 N" D  A
2$ _  M$ j/ j' m! |
+3n)p+np 8 \3 H3 A- H' Q' m8 l4 O1 r2 F
2
+ F" A# }1 H  g: M6 a
, m% }& l+ M5 i* B+ s7 W( G​       
7 d. O7 E3 G! ~3 T) P5 g
8 t5 ~, B2 g% {7 C  H8 g
$ C  d+ E: S* `
% ~# x# R/ y- p, P% A5 f, Z0 A
– 峰度:k u r t ( X ) = 略 kurt(X) = 略kurt(X)=略 (带入递推公式自行运算)" n8 F) t3 b* J7 I) m; B" q0 q5 C

2 h  c7 s4 U1 S. _" U

* R# S" g  K* V: {, I/ m函数        功能% f( Z+ z& y% }8 L# |: U+ o
dnbinom(x, size, prob, mu, log = FALSE)        概率密度0 I1 X" R* l1 v. p
pnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        累计密度& C7 M% V% V$ \8 o1 \5 j9 K* q8 I
qnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        分位数
0 k8 ?, D6 a9 q" W8 _rnbinom(n, size, prob, mu)        随机数3 Z9 J6 {9 D, Y7 ~, ~
负二项分布的递推公式如下:6& ^# T" Z. e; B* x# L+ t3 Z
1 u, z! r# q- Y* f+ U0 v& U

; b9 O" g1 G, h( S- v
  ~* \& ]9 e# I" D3 ~# y) x) p
" V! {  s% X7 k% O1 w

7 F7 R8 y3 E& z" \  L. T6 G
6 B6 _5 I9 G5 t" c

, {3 R. W: b1 T8 w. d" k

3 L; V# X4 ~7 O8 ^3、帕斯卡分布
/ D$ ^$ D8 f0 F5 RX XX服从r , θ r,\thetar,θ的负二项分布,Y YY服从r , θ r,\thetar,θ的帕斯卡分布。有Y = X + r Y = X +rY=X+r。即:在同样的实验中,帕斯卡分布是成功r rr次后实验(成功+失败)的次数,负二项分布是成功r rr次后失败的次数。负二项分布的数字特征推到见博文1。故帕斯卡分布的数字特征可以由负二项分布推出。& w4 z4 `4 J* A' P' S" @" h8 G& M' J9 C
在R语言中我们仍可以使用下面负二项分布的函数做适当调整生成帕斯卡分布。
* R& G9 m. a5 d; F) {4 H- @注:在百度百科7中还有另一种说法是:
! S& g7 d- ^- S: f6 S6 O! w
$ A) K7 d2 I4 q( B/ V0 m# Z! d% `

  b& Y4 h& C) W6 N帕斯卡分布,负二项分布的正整数形式,描述第n次成功发生在第x次的概率。
" a) o. y( q$ w% l
$ c. U" f/ r+ E+ Z
" Y* g# z; k) F2 F4 y( W
我们在课本中见的比较多的是负二项分布的整数形式,这时候课本会标注又称帕斯卡分布,类似于二项分布,负二项分布也可以推广到实数上去定义。大家感兴趣有的可以去自己找资料文献考察一下,这里就不过多的讨论其定义和数字特征的问题了。% _. L1 b$ d9 E; G7 C

/ a: D2 ^* O" V# ], @
6 K) }! ~/ l' @: s
函数        功能
. U9 W" ]+ S7 ~, Y$ ldnbinom(x, size, prob, mu, log = FALSE)        概率密度
: p3 C+ O2 V: C$ p; x( Vpnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        累计密度
( F- V7 p7 i# t6 T" s  ?, }qnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        分位数" [5 S" Q1 ]0 B
rnbinom(n, size, prob, mu)        随机数( Z$ g( s: i) ]" I* A
4、泊松分布
' M' b6 ]. D& o0 Y& P: A– 矩母函数:M ( t ) = e λ ( e t − 1 ) M(t) = e^{\lambda(e^t-1)}M(t)=e ; K' U2 g* [" g# F% j' f8 g
λ(e
0 W5 i# f3 _* Q1 _# B6 vt+ K% Y) d% V2 E+ k3 Y2 M
−1)
; |# K6 J% D0 E ) y1 @' g+ E6 r* b
- `9 }7 t  T4 ^- Q
* H, K! E- W4 M# L3 o; A' r
– 偏度: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)=
5 @' C9 h8 z* s9 H, m2 O% k0 f5 y: @% r6 I
2
1 N' D) v  c8 \0 A +λ) $ r$ U* h" {3 l5 v8 @* e
3/27 W5 Y5 y) ]) j7 Y' J) E0 v

, x- @  p, H/ g* I& L  Cλ 0 Y9 n2 q, X$ S
3% F4 }  m% O' m9 K9 t/ L: j
+3λ
$ _* Q* B* `) `" s+ a2! J- {9 c$ }! m

) N  q$ f- p, q​       
% Q6 C& X$ n0 a
/ f' ~" c) q1 Z; K& C) Z  l, R7 m  ~: _- V- }) e. m
" [, i8 [/ _. i, a4 U+ B9 ]% J2 V
– 峰度: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)= ! h0 ^% m; A: A
λ(λ+1) 9 }+ R, n3 l! m
2* }' r& _+ _, Q1 ]# B/ I

1 H- |* Z% a; M* uλ
+ g1 @" I( q" l/ [6 L3
! B5 f  s1 I9 |* v" C5 a +6λ
# v- T: U" q# x2 r8 n2
) w' s& p7 T! C3 ]& a4 `# r) W +7λ+17 \3 s9 `0 K" H: D; \- w9 `: j
​          T& e5 g3 j2 @1 A$ N
8 W; i+ e: a1 R. Y3 \# j- r
$ ^; F$ ~) E! h. |6 I8 F

( c: N: K6 t9 z! j. ?( E4 S函数        功能# d0 T/ i0 j) T; e& M) u
dpois(x, lambda, log = FALSE)        概率密度, F7 I  W, Q3 p1 F( ^: O$ E
ppois(q, lambda, lower.tail = TRUE, log.p = FALSE)        累计密度
& l4 G8 `% y) M& P: Mqpois(p, lambda, lower.tail = TRUE, log.p = FALSE)        分位数' Y* A: x" C' O* j* E" P6 U( I3 }9 H
rpois(n, lambda)        随机数! G8 j% D* i# e6 x+ B
中心矩的递推公式来自8:) }/ D' V0 p3 h! F" T) L

0 _& z- T/ p$ J
2 v: `4 ~7 J5 R/ V, W; P$ R
- \( [# O" G! U6 L1 N, s
  _; p1 |' Y* ?* i5 [
5、 参考链接1 }# X6 r: U! x! ?$ n
https://blog.csdn.net/weixin_46111814/article/details/105243202 ↩︎ ↩︎! z% s& R" h8 V0 r
: P4 u; }- F3 E4 p# @- H0 E3 R

/ u0 j8 u; D3 i+ `' j- ?; i' J) ^. ]https://blog.csdn.net/weixin_44602958/article/details/105261188 ↩︎
( A0 P1 }; D& y6 o4 g0 d" _" ?, K% C
8 O2 V; V: I. Y
https://blog.csdn.net/STcyclone/article/details/84310450 ↩︎
$ q1 h3 t, M  y( @5 f% p6 l( W5 k4 q: W& }. W8 ?- }; J# v2 F% `

3 _- q8 H  J+ uhttps://baike.baidu.com/item/%E5%81%8F%E5%BA%A6 ↩︎
) W& y/ p" Z. j5 m7 T
5 b1 F; P# B1 I8 I5 A
. z; }) v2 y- m' J7 J
https://max.book118.com/html/2019/0412/6234220152002022.shtm ↩︎  A) |$ S* |0 o+ t

  b7 `$ a0 o" U

2 \8 B) A3 }$ _( A% ~9 P朱成莲.关于负二项分布高阶矩的教学注记[J].高教学刊,2017,No.66,103-104+107. ↩︎
3 ]) P  w; h8 ~. r- Y* ~9 S& ]# T
) ?" h6 k! Y& J' U; `
8 q6 b( O  M- V, l! v5 F
https://baike.baidu.com/item/%E5%B8%95%E6%96%AF%E5%8D%A1%E5%88%86%E5%B8%83/1188907 ↩︎
! h( D0 U( W& F4 y
" u( d) b0 m+ }( n# q
: M* c. P0 U: w9 k" ?: i
https://wenku.baidu.com/view/7f8328c10c22590102029d83.html ↩︎
5 l7 V- V  m/ b. j/ ]1 P————————————————$ p) t. f2 }0 p% ~( M
版权声明:本文为CSDN博主「统计学小王子」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
/ S% l7 E- V$ U: V原文链接:https://blog.csdn.net/weixin_46111814/article/details/115499487
0 _9 l' L. {- b4 V" d+ n, [) K! y) s( B: V  s) S9 ^; I
/ s9 F; b- C+ w- i! n$ ]6 h





欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5