数学建模社区-数学中国

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

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

1 f$ f  u# _$ w' l' v离散函数的数字特征及其R语言的应用
& F8 ?5 A5 I4 w4 b6 g6 |目录; |% K- O: A, q3 ~0 m) X! w+ F
0引言8 V4 U  _# F; j0 C- X1 @
本文结构- p+ c$ z! L3 C. L
理论公式
, f4 T9 q9 ?. i$ M1、几何分布+ d' z3 e( ]2 w. q3 U
2、负二项分布
* ~1 S5 y  f0 M: v: U- u3、帕斯卡分布/ k1 B' k+ j% `* v/ r
4、泊松分布, d! q6 s" H& E' l% v" Q. Y
5、 参考链接* q, y' u+ j8 v+ x
0引言
% u" J2 q+ a! Y" P; r- G% N本文结构
4 ?* {. q9 y+ S- c& x9 n在文章统计学基础——负二项分布的数字特征1中介绍了负二项分布,在博客2中介绍了离散分布的数字特征。
8 S: [7 ~8 T/ [& \本文计算一些离散分布的:密度函数、分布函数、均值、方差、偏度、峰度、特征函数、矩母函数! S" L( m: `4 i. L

) D  w/ D9 I; m+ o3 o

, J2 |& g% ~- b- x2 @( g6 ?理论公式
* O; M8 h% R; a为了方便先给出计算公式:1 w4 q0 Z" x( J7 A- S

8 M7 d, D* ?3 J, {( W; h

) A& i* W( ?$ ~6 A2 N6 _( ^– 密度函数:f ( x ) f(x)f(x)
; z+ ^4 s9 r5 e% s- c) D4 I
6 g4 k- k- @* \. F

0 h+ G$ v/ p4 U* m" P$ \9 B! e– 分布函数:F ( x ) = ∫ − ∞ x f ( x ) d x F(x) = \int_{- \infty }^x f(x)dxF(x)=∫
: _! \' o6 n7 v- \% W−∞. }* E; r$ y4 X, n* J. R
x. [) z' Y$ x* K% \# P2 p
​       
) a5 Z  ^5 ~4 I  I" _" I1 A4 g f(x)dx
. p: c$ @! U! z0 S9 y4 ^" j& R6 m- @) Z# I4 a5 ]

) V, _, t! \* N; Y; J3 s3 v3 b– 期望:E ( X ) = k 1 E(X) = k_{1}E(X)=k : r* a$ X' M% ~0 L
1
4 S( ^& N/ g/ N+ y! z/ W+ i4 m* H​        " m6 W! x/ {* J1 b& O1 O( @
, \$ i( f) W- a8 Y  V) i

4 b5 d$ V1 L* k( T) }

/ S" ~7 |  J, _, _: v8 q– 方差:D ( X ) = k 2 − k 1 2 D(X) = k_{2}-k_{1}^2D(X)=k 1 I0 H) @- R- b7 D
2
5 b: D( P3 c/ q6 L3 L) g​        * U- U' _9 ~! c* d3 z
−k
5 @- I% b9 O: R. ~0 h9 C2 q( E8 Z& i1, y& F& H8 P/ l, [7 ]2 P/ S0 x& Z" U
2# u0 q% W; C; ~; Q3 X4 ]$ g/ C
​       
1 q( n) X0 w; |6 u  K3 d 4 v1 ?1 y5 V+ X7 X

7 K, w  v- B" _1 k
3 U* ~& v( ?1 {( r' {  ?; a
– 特征函数:φ ( t ) = E ( e i t X ) \varphi(t) = E(e^{itX})φ(t)=E(e 1 c% D3 k9 L& I: Y; k% h
itX
! Z2 L* t( t, p& d, U  p" n  w) ^6 g )
2 e3 o: N, w# j7 `# ]& g/ ~) ^1 y- O/ d$ u! e: e" W

3 A) t% r% D. J/ F- A– 矩母函数:M ( t ) = E ( e t X ) M(t) = E(e^{tX})M(t)=E(e
! F. ?6 l/ r3 btX
6 h& E2 k, [: l9 R/ K )* L( J) e7 N) F8 f. Q0 i  q5 a) C1 f

: o+ i; q; f/ j4 X! {
' H" Q3 W6 L2 g9 [
– 中心矩的关系:E ( X k ) = i − k φ ( k ) ( 0 ) = M ( k ) ( 0 ) E(X^k) = i^{-k}\varphi^{(k)}(0) = M^{(k)}(0)E(X 3 X" v4 f  c2 l" a6 c2 c
k
, @& l- i- j) k" f9 i )=i ! D1 k& l; {. i. r0 R+ Z  }0 k" [6 T/ n& k
−k
" I6 U" e6 B! d) i φ
9 L" G* {  M# n! n; k: X4 h(k)
% w0 J1 W9 k! G+ v (0)=M . j& S- p* Q& k' O0 l, P+ l
(k)% d3 l+ r+ o) v* W" l* S
(0)+ b) J) |7 U/ h4 }4 n! O: ^

& p! S( Q& M5 J

. G& [& s+ S! b7 C+ f1 N6 b$ N* B– 偏度:S k e w ( X ) = k 3 k 2 3 / 2 Skew(X) = \frac{k_{3}}{k_{2}^{3/2}}Skew(X)=
6 F8 S" c( d- G% l; Hk
1 u  w! X' v) }* A9 `* R2
! p$ c8 M. M* S! p+ @3/2
( X. p0 l& b& j5 T​       
1 a0 [& m, s$ c# H0 C6 B1 d" s . `3 R( X& B& o" S/ \
k ' D! M6 E3 [, h4 [
3
$ b9 D6 W7 i# ~6 z2 Z: p6 {​        $ u* t8 v. v$ P. {5 K5 S2 |9 O3 H. j

; v( ?+ h4 `; E: s5 L1 f5 B" Z! j+ q​       
4 X! M  Z0 d0 Z- M2 E& w/ x 3' n: g" ^" K$ b) f* p

- w$ m' j" v. K6 O
1 t' i# b4 m) L; _9 S. z( T2 P
– 峰度:k u r t ( X ) = k 4 k 2 2 kurt(X) = \frac{k_{4}}{k_{2}^{2}}kurt(X)=
3 y9 o& ~6 T) E% m3 Qk : `  [4 X- Q! ~6 b
2/ C! m2 ~# ?  T9 X- S! k) O) ~
2& c6 |! X( p# e
​       
! t9 g& l1 J% E5 _- C7 Z; Q , F2 J2 ]. l0 k
k % ]7 d! i1 V1 t* R8 H3 [
4
( M9 X# O, E. r, d2 X9 m​       
% V* c8 q) @+ w8 \4 h3 w- C8 N" A & |" z2 R' K+ T
​       
7 ?0 t1 i- b6 u0 g  ]0 U5 c8 z 4
0 M+ @% L$ }2 U  n  |; @9 y% A; D5 n. q

' c! T% Z2 j% M. j6 y& F5 d1、几何分布4 a2 R+ M: l5 A# F5 W
– 密度函数:f ( x ) = ( 1 − p ) ( x − 1 ) p , f(x) = (1-p)^{(x-1)}p,f(x)=(1−p) # p. I; h" m* z2 R
(x−1)7 ^+ q& S+ @% u
p, x = 1 , 2 , 3 , . . . . . . x = 1,2,3, ... ...x=1,2,3,......2 u+ Y+ W$ {$ d' A
4 A$ G( @/ x4 f9 h" y
0 n* V' _- L* s9 U4 s2 z" ~$ j
– 分布函数:F ( x ) = ∑ k = 1 x f ( k ) = 1 − ( 1 − p ) x F(x) = \sum_{k=1}^x f(k) = 1 - (1-p)^xF(x)=∑
5 _0 a1 v/ h0 x  @7 Z, G  i' Z* _k=1
* j" x7 B" u& U6 r2 fx7 G- i4 g- J0 f. {0 G  {' o
​       
8 b, ?% c$ a8 H, w4 V" B f(k)=1−(1−p)
/ R. }' i" o# x; Tx9 i* O$ F5 [8 x

% X2 p- D$ B) C/ _- F( ^, L5 n# U5 r0 ?

" }, s' g) c% I– 期望:E ( X ) = ∑ k = 1 x k f ( k ) = 1 p E(X) = \sum_{k=1}^x kf(k) = \frac{1}{p}E(X)=∑
% g3 ~7 ~% e, Q$ F+ e! `, a6 w! nk=1) n% q, L$ i0 a
x/ ~8 t# d- O/ x3 X2 [5 d
​        2 Y! `, @0 l; v5 Y  e; z8 P4 ^
kf(k)=
/ m4 m  i9 ?, z" |% Up) S3 q8 i8 ~) X' P
1
* a6 Z. |1 J9 w1 {​        + N3 l! l2 \7 y

; l0 w9 W7 c0 \5 j' ]7 ?* F. o
- Y, w( C- t4 y3 J# `" K
– 方差: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)=∑ 3 [' i6 k$ ?- c
k=1
' V5 ]0 Q1 z/ l. c% F0 H. m3 u) wx
- g! I# i* N. z/ S* b1 t2 F5 e​        " v/ T& N0 k# [. k- }5 h
k 6 F) V$ m2 N) i$ K( S0 j
2. q: |  |% V2 V) s: c3 q+ }4 I4 F  [0 M
f(k)−E(X) ; v* ~7 _' c8 T  I
2
. B# N+ ^% g! [* M = 5 P0 Z* e2 A+ k* H
p % W! p1 W) a0 ?, \, b
2) ^: x6 V0 P; q3 w! M: W
8 \$ E2 g6 P& c# d
1−p: b5 Z( p  b# ?/ o. l. s9 |
​        0 T# n+ p, U* c& P* ^/ s2 p) c0 M. c2 _

+ p9 O, y8 x& Q/ i/ e2 P( b
: z6 N" o; O; z; C9 t6 R

  f/ {' b& t6 p. p. 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)=
5 `1 n9 N. O- Y3 u; q. p6 c( S1−(1−p)e 1 g4 Y9 u1 E" d& ]7 j
it
, u+ [0 R$ ~+ l, H
  ~- k$ e- P" m5 l0 ype
2 }$ P" }. O3 a; \5 F3 P/ Lit7 `( y1 l8 P" y/ y: A

/ t7 |! k9 V9 w; P" Y" c​        5 v% C6 z7 ^3 u$ ~. m! v3 F9 l

5 w/ ~+ v3 I& b$ B* A* x+ v8 s5 U, s4 I

$ S; {( S& ^7 c" ^8 q' c! p; g– 偏度:S k e w ( X ) = 2 ( 1 − p ) 1 / 2 Skew(X) = 2(1-p)^{1/2}Skew(X)=2(1−p) - X/ |; K! k7 k
1/2' d" |  `0 \6 c

0 j' a. y; e$ {" }9 j& ]) m1 z; }: P; o0 W4 v
1 V! Z3 v7 z1 L# ]1 C, I
– 峰度:k u r t ( X ) = 9 − 6 p kurt(X) = 9-6pkurt(X)=9−6p
/ c8 I3 J, T9 z% S- L9 W9 b5 o) g3 Y6 i( x% }0 @" D6 U* D2 ?
6 Y  z# {+ z  ~; W, A) s0 G1 E* q, M
函数        功能+ X" V' s4 r4 F  X, z8 n0 O1 R
dgeom(x, prob, log = FALSE)        概率密度( R9 F, `& ^8 N. T6 ?0 |  e7 q
pgeom(q, prob, lower.tail = TRUE, log.p = FALSE)        累计密度0 a$ j$ V8 @, U# h  z  e
qgeom(p, prob, lower.tail = TRUE, log.p = FALSE)        分位数+ ?0 d) r4 X( y7 H7 {( p
rgeom(n, prob)        随机数
8 M( Z4 ^, h; E2 t  V3 x几何分布的各中心距来自5:
1 D& S& x; {4 \
2 G% O" n3 E6 V- c; z2 s  P

+ i; _5 x6 J* k0 ?6 B% `
! }( T. n( p) c1 F/ C3 R
/ l9 U0 k' S2 A9 }8 V
2、负二项分布# ]: p, y; Q# u' Z  T; b
– 矩母函数:M ( t ) = ( 1 − p ) r ( 1 − p e t ) − r M(t) = (1-p)^r(1-pe^t)^{-r}M(t)=(1−p)
( g) ~# @5 c: _$ mr
- r3 \4 z6 U$ a; S. } (1−pe % {( C8 i, k( `! I( k
t
' c! R3 i9 E6 K; J1 S; T )
! [4 d: G3 l4 x  Z+ F; `- W−r
/ y: m  X' ~4 k7 y- d) b
: u% P( U7 C* A5 H8 s% W& ~2 E4 {& R# T0 x, I) m

% `- r: \: E( c4 w– 偏度: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 Q, h- D* f3 x% \$ |(n " L5 P, f0 _1 y5 k5 X
2
+ L, h5 E' N. } +n(1−p))
0 }3 T; m; h# a% J% j) F9 U" U3/2
9 v% ]5 c+ W; C 4 g3 _) z6 L- L5 y8 J' W
n 0 c: W* j! H+ w3 u5 W; e
30 |: s+ O+ U7 p; i# l( m
+3n - ?9 W( v2 u2 l1 R" n$ K! ?
2  _6 x3 D/ c# I# Y. Z0 v
+2n−(3n
" j7 t: i' b: y, m; T# ^9 `20 g9 P7 h! z/ q  m
+3n)p+np
* f6 p6 F7 w- h- G& V) [2
5 y: p/ A. K+ a# M / P* t# l0 p' `
​       
. f% a0 @& w5 m8 d% y+ t; W7 M * T7 o- e2 o( n) w  v+ p

4 P0 l* S' q& J9 \
5 c6 `; {' |& J+ H
– 峰度:k u r t ( X ) = 略 kurt(X) = 略kurt(X)=略 (带入递推公式自行运算)
- s3 d9 d- q( ?  T9 K3 {% M
0 o$ k5 ?1 f$ k+ _% _4 p
% p% u; V; i: _3 c0 C' R1 w0 B
函数        功能
" x2 X1 ^7 ?% x* F. r$ J8 Jdnbinom(x, size, prob, mu, log = FALSE)        概率密度8 j& Q) W0 p2 B  ?' O' d$ }
pnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        累计密度
" |5 r' P5 [' C* Xqnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        分位数7 E* c$ ~3 [" n8 k2 l3 V) ?
rnbinom(n, size, prob, mu)        随机数
9 j5 {# b) K4 M, Z2 m) l负二项分布的递推公式如下:6* s& T: \4 s0 I' g$ K8 `

5 X# c) {. B' i% Q8 i/ C

( D5 m  v9 W2 ]; f3 N8 z4 T: S+ `( [' Y3 u2 D- [

! V- X% u( p1 d/ W' p0 X' u0 f/ u7 N; K+ G: W% V

+ \: ~0 x" d8 ?6 U7 N& N. @6 \. E3 Z% ?: y( M% \5 g* _
) T" @( ]) ]# v
3、帕斯卡分布3 V" T5 ^. d0 ]: R4 g
X XX服从r , θ r,\thetar,θ的负二项分布,Y YY服从r , θ r,\thetar,θ的帕斯卡分布。有Y = X + r Y = X +rY=X+r。即:在同样的实验中,帕斯卡分布是成功r rr次后实验(成功+失败)的次数,负二项分布是成功r rr次后失败的次数。负二项分布的数字特征推到见博文1。故帕斯卡分布的数字特征可以由负二项分布推出。* J, x: F7 x, C/ n4 ~6 d: b3 d
在R语言中我们仍可以使用下面负二项分布的函数做适当调整生成帕斯卡分布。7 \* R9 T6 t' r+ V
注:在百度百科7中还有另一种说法是:( z6 x( a- S8 W+ b! ^
  F: }# i( Z' z+ K5 Q

! z" m2 F: `5 x( b5 x0 B! _6 t帕斯卡分布,负二项分布的正整数形式,描述第n次成功发生在第x次的概率。
8 L4 [* H! C% k2 `$ _# H6 r
" n! C* `7 H5 v' {  S

' u7 X& }+ r& o4 c: I  H, }/ q4 W9 e我们在课本中见的比较多的是负二项分布的整数形式,这时候课本会标注又称帕斯卡分布,类似于二项分布,负二项分布也可以推广到实数上去定义。大家感兴趣有的可以去自己找资料文献考察一下,这里就不过多的讨论其定义和数字特征的问题了。: c$ ^! M. v2 R1 t$ ~0 J2 z

: n+ o2 J8 T  V2 L9 d

7 F: O, w( C- R# J: Z函数        功能! c( v$ D) \! |3 {1 Q: X) T
dnbinom(x, size, prob, mu, log = FALSE)        概率密度
  F& \8 }; F) s" i8 T1 T; _6 a# g- Gpnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        累计密度
! F9 ~( f: V2 [& x$ ?qnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        分位数
0 B; \" v' ]! z9 z8 i% q  Brnbinom(n, size, prob, mu)        随机数# X' W$ q- P) V% }
4、泊松分布: ^5 ]; a6 H0 X
– 矩母函数:M ( t ) = e λ ( e t − 1 ) M(t) = e^{\lambda(e^t-1)}M(t)=e 4 b# w+ A9 i) r7 N
λ(e % j+ @& q# A+ K# y+ v
t
0 k/ I, ^7 l4 ^" @5 I$ @. A −1)
2 ~, x  y7 g; p& g$ t
7 Q  r8 c) w1 y  J1 ^; G5 K# T; i* V) z0 {1 P* }

5 f8 b9 l& W- ]& ]– 偏度: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)= & V! D" q* _) R* k. s5 B
* u8 H( E1 n; ]" W- }6 G
23 C; S/ p9 y* ~# A4 b8 h  R% q
+λ) / R% F' l% A) i! {, Z
3/22 `. i' `5 I2 L2 d
9 Y3 r7 J2 z$ }! z7 L( g7 l
λ / Y, H& T; [1 g. Y7 |
3& J/ ]( _: O2 d* n& P! [
+3λ ) u. W: \) [- h- ?, j: J) _' D
2
8 L$ ^& g& B% H7 }
/ [  Z9 D5 L2 K1 y7 f# j0 o​        # a6 G! f0 G- w9 l& \1 }# K( H: K

( g4 Q. v# ?9 a. E# `* S5 O' U3 u; k+ W/ O# X& l

, v' K# F5 m! 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)= ! P4 m. |! V  l- B- R  B
λ(λ+1)
; R6 a" |& d1 m0 g6 x. Z26 q# Z7 r1 U% O/ Z
7 V1 Q; F, }( `7 h/ j
λ
3 q& P7 y! k" a' ?3. c2 b! Q: [* r
+6λ
# F! q! F5 S3 E* r3 E3 K. X2* T6 q+ }3 ^2 S& d# [7 M
+7λ+18 I0 V! f3 |* @8 k2 Y; S
​        . h& p: Z1 d7 K1 g5 T4 [
% I6 K1 J0 G1 m, L- o

& c: l3 q* |2 I- {6 J6 I6 o/ \) }

3 m& T7 r  M; ~8 K# W* A函数        功能0 S9 ]- S0 }2 u5 ~, A- F( R
dpois(x, lambda, log = FALSE)        概率密度4 B6 E+ s: j4 Y5 M/ h- j5 n
ppois(q, lambda, lower.tail = TRUE, log.p = FALSE)        累计密度
" S7 k, D6 y& Q9 ^( V- I5 g! Rqpois(p, lambda, lower.tail = TRUE, log.p = FALSE)        分位数6 U& B0 _% j5 {( x% v: |
rpois(n, lambda)        随机数
1 `5 E/ A$ U6 P/ w( z9 M中心矩的递推公式来自8:( y) n  E# S( O4 d
  d: Y: U3 Y4 N3 h9 f  F" h3 f& ^

0 Q' [  z; y  ]
5 Y7 R; n- M; \  Z( l, c: x; x

& w! t1 J5 n  p! {7 A0 o2 p5、 参考链接2 y5 e. z" V; T1 `9 T+ H9 K& _9 ]8 k
https://blog.csdn.net/weixin_46111814/article/details/105243202 ↩︎ ↩︎
+ U5 [: K3 h( Z1 E) n
: ]/ n7 g$ C8 J" x
* \; C9 e8 i4 L. x" c0 O
https://blog.csdn.net/weixin_44602958/article/details/105261188 ↩︎
0 w" p2 q5 s! E1 v% b8 G( ~8 h( B! V5 Q1 z- d* _! Y% Y! G
) S3 d  J) m3 o
https://blog.csdn.net/STcyclone/article/details/84310450 ↩︎) I6 Y* s$ r& F

; v9 _6 n5 a" ?1 E
7 a  S3 U3 h$ s. Y+ _' M+ e; z% p
https://baike.baidu.com/item/%E5%81%8F%E5%BA%A6 ↩︎
5 ^+ a( [! G7 J1 N( T  [, b# B+ i! u$ P9 V* Z4 f8 J

- y3 a8 {" Q, F) o3 _https://max.book118.com/html/2019/0412/6234220152002022.shtm ↩︎
/ a4 i: _; y) ]# T7 k4 r) d( J5 o* e+ H/ i; t. O* s8 w

( Q( K) F/ K5 `0 i朱成莲.关于负二项分布高阶矩的教学注记[J].高教学刊,2017,No.66,103-104+107. ↩︎5 t: c1 ~3 Y+ O" E* `  G' U

9 j. ^7 l7 a* i( x9 h" R/ _

+ o6 G' Y% c# w, ehttps://baike.baidu.com/item/%E5%B8%95%E6%96%AF%E5%8D%A1%E5%88%86%E5%B8%83/1188907 ↩︎# w# I2 ~9 d% s$ Q
* W3 {7 s2 E! U- v5 u

# W5 h* p" f# z' q# _https://wenku.baidu.com/view/7f8328c10c22590102029d83.html ↩︎8 M" ^+ X. D) P% @  [; Y7 p" n, [
————————————————
1 `1 y5 h" ~0 ?5 {+ p3 A4 }版权声明:本文为CSDN博主「统计学小王子」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。' `% U1 s2 }9 \! q1 J
原文链接:https://blog.csdn.net/weixin_46111814/article/details/115499487
0 C. E6 m, ?  j+ j; R! F  r* z; j5 H9 V- V1 J; q

& j7 n8 ?% z8 N




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