数学建模社区-数学中国

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

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

2 F9 x9 j+ |+ V2 [, g离散函数的数字特征及其R语言的应用
9 y2 {  t3 s( j目录) V& w0 R3 H/ w# q
0引言
7 E  Z' u. ~) w0 `! H' z/ `; s' _本文结构. n! V" M" C2 ^+ C1 `
理论公式6 r, [/ v( l) w# G
1、几何分布% `& l) f' j/ u
2、负二项分布. C7 j( Z) h7 L* B- v/ t0 H5 q
3、帕斯卡分布
8 x  B' O7 Z  o9 _4 V9 h) l; |- f1 H4、泊松分布  m% z  [: c5 @1 z+ v* v
5、 参考链接
& f  \$ p! V/ ^$ K( @0引言) |9 b; a+ x" N2 E
本文结构8 m& M5 ]$ ^* c* {6 [3 U3 {
在文章统计学基础——负二项分布的数字特征1中介绍了负二项分布,在博客2中介绍了离散分布的数字特征。" z6 @+ W4 X$ c: z
本文计算一些离散分布的:密度函数、分布函数、均值、方差、偏度、峰度、特征函数、矩母函数, F  F; y# A2 W$ W1 a' G
: [  d3 `' `: E# c) m8 m3 z
2 s& f: d5 F7 r/ ~" m
理论公式
/ Z! o" `$ n, K$ e0 g, g为了方便先给出计算公式:3 D  L% @: P7 S2 G
6 O# {( R% ]5 v1 Y4 b1 `  U$ s

7 X0 s2 w% X- \: V. S, l. W– 密度函数:f ( x ) f(x)f(x)" Z: K  D1 H7 z. ]3 o) N
5 s9 u7 s) M) p! g! q# H( f6 M

$ X0 C$ F- k# s* q1 s– 分布函数:F ( x ) = ∫ − ∞ x f ( x ) d x F(x) = \int_{- \infty }^x f(x)dxF(x)=∫
8 G& z* L$ @# c* h/ c- ~−∞
& o+ r8 [# G6 R3 V+ B* dx% p/ \- v1 M" P2 K
​        ; ?8 Q( G' T2 W) ~) u$ _
f(x)dx9 W8 B( U0 N8 V1 E

  {: q! y/ I! |, p  m- [, }3 E

6 L8 B" s9 i4 U6 x( k– 期望:E ( X ) = k 1 E(X) = k_{1}E(X)=k 7 c/ w6 r; s8 c* ]& C. y( L
1* V) \7 [/ V3 E6 H" Z/ U7 C
​        1 M3 z2 \8 f* w% N+ U, ]& ~
1 g; d7 n+ b2 K0 {( z) X' n

/ A% y" q1 q8 b0 f1 e% f

: W( S' H  d* m( U% ?2 p– 方差:D ( X ) = k 2 − k 1 2 D(X) = k_{2}-k_{1}^2D(X)=k
& r& ]+ T& k! K. {& V( W24 S) \  G& ^; {4 _3 c
​       
% b6 d3 T; v7 f  X −k
- A3 P$ I0 U$ |5 Y- l2 N4 ^1
" E+ t- X2 k6 A$ e0 e9 f2, n+ |- }) f, F; S+ l2 N% s6 ]8 |
​       
, p! C5 a4 k  M. W7 K * }6 P" L3 }: i6 H7 k! a# `4 I. `
' \1 ^. F: o4 H

- G9 L+ a, k2 x; Z# b2 R; e– 特征函数:φ ( t ) = E ( e i t X ) \varphi(t) = E(e^{itX})φ(t)=E(e
: F: Y% z& [( G# T& H. D1 l4 J( [) vitX% ~2 x4 i9 X# D3 h" V
)
3 `; b. y, T1 J+ b) g
3 _+ P8 H$ O7 m# l: H8 i+ W

$ c  i1 E4 [5 Z; o– 矩母函数:M ( t ) = E ( e t X ) M(t) = E(e^{tX})M(t)=E(e 4 L+ J4 F0 F- ]2 z* l  s
tX; Q$ i# h  {$ o3 q. e3 E
)" |! ?6 z$ Z# _. Q+ m. j

5 O6 J# J! C3 E6 m4 y& Y! _

0 `8 v  J8 y( P% H* Y8 ]% Q– 中心矩的关系:E ( X k ) = i − k φ ( k ) ( 0 ) = M ( k ) ( 0 ) E(X^k) = i^{-k}\varphi^{(k)}(0) = M^{(k)}(0)E(X
) ?8 u7 |9 z* P2 j* q. B, Zk* H0 j& }$ J0 P6 G/ W
)=i
( i  I) C) Y2 D1 C9 U+ w4 l7 u−k
3 a; k- O" M4 ]8 K φ
7 e0 K) f6 N" |# v(k)
" G* \. M! w0 c  O' [8 v (0)=M
) u( T6 |; J2 ~. Z/ l(k)
" C' d& R, S: }; C (0)& }% I7 U' [& [
, C) O1 K5 Z5 X. ~
: ~/ [  [" [; y8 O3 S7 B1 X1 v
– 偏度:S k e w ( X ) = k 3 k 2 3 / 2 Skew(X) = \frac{k_{3}}{k_{2}^{3/2}}Skew(X)=
1 b+ g/ [4 G1 X+ v1 q! e! M: C& `k
: M# {! W; Q7 b/ j) W' P& l; q2
, L6 m) L2 S0 d. _5 N) k3/2# S, `% L1 o/ V% V
​        3 `/ l4 V# S" k5 \

6 c# P  }: w6 d2 T- T( A$ zk
- M. z/ C2 h( p3 L( `3; F7 W' p- J3 h8 u- c9 s. w1 e" z
​        8 F% Y/ C( I) G( \3 _( w& Z
$ d2 X* K: l' V& D4 q
​       
+ {( U! q: T& O( N2 Q 3
4 z9 X4 O4 _$ E) P- c' y
, w6 j0 {9 r' q8 E0 h" r
8 e) C8 a: U  s( I& F2 z6 z+ M! c
– 峰度:k u r t ( X ) = k 4 k 2 2 kurt(X) = \frac{k_{4}}{k_{2}^{2}}kurt(X)= ; i5 F8 U/ W& t5 o# Q% y/ ]
k ( f/ r, r3 Z- n" D/ G  Z* Y3 ~2 X. t* |
29 X0 n1 p  _0 _/ _3 J+ {
24 i4 ^. [  Y7 v4 v. T- x
​        6 V6 c: Z6 v- F+ G
4 M# y  Q. n6 N& ]1 x/ a8 _
k
9 `& D5 v# U8 n7 \# n: g! A4" K2 T% r$ k4 E+ r. K( d
​        5 B$ K7 L( E4 e5 ?/ L' f- W1 {* a  _
% I5 v" O, T! U0 |
​       
% I0 u# M+ S6 F 4
! Y! n% `  k. V* m" c6 x
1 ^# s% v7 q3 w- ~' ]
+ L/ `/ P. B- t
1、几何分布* F' b& g2 b2 F7 B: ~' |
– 密度函数:f ( x ) = ( 1 − p ) ( x − 1 ) p , f(x) = (1-p)^{(x-1)}p,f(x)=(1−p) $ j* _, k* Y& d# S/ c
(x−1)- o& s( J0 d4 ?5 l' ?" t
p, x = 1 , 2 , 3 , . . . . . . x = 1,2,3, ... ...x=1,2,3,......
4 |( T' e- O9 x% I2 f9 f
. E" H& z% c3 R4 `$ r9 s  S! m5 H
" B. M% H) t& W( P" U% g2 X' d7 Z
– 分布函数:F ( x ) = ∑ k = 1 x f ( k ) = 1 − ( 1 − p ) x F(x) = \sum_{k=1}^x f(k) = 1 - (1-p)^xF(x)=∑
$ K8 q0 N3 Z6 M' |5 `, y- f3 mk=1. e" e. _* N; P- @6 v$ t, d
x8 o1 K6 x) f) y
​       
: c! I% i( b1 Y7 F- l f(k)=1−(1−p)
' M6 y4 q0 H! m- r# l% kx) ^/ t2 |6 X, z0 a6 R' Y5 O. {

7 {7 o. k# H& k; X; ~- ]3 o! h1 z7 ^9 V$ ]( p0 J$ [! z* e) N
# J! m" @3 Q+ Z6 R- W) f
– 期望:E ( X ) = ∑ k = 1 x k f ( k ) = 1 p E(X) = \sum_{k=1}^x kf(k) = \frac{1}{p}E(X)=∑
* F# h/ L7 _" X4 e5 Sk=1/ ]/ F* K- f7 @% e' t% m
x
9 ~* q/ f! V3 {7 ~6 ?4 p3 a4 E  }* A& g​       
' o9 T; g" I4 d7 d! v* j9 D: _ kf(k)=
0 X( O# B4 [- ?4 U0 |. m- _) |! n# J9 |p; y4 {% O- N$ C; o
1
! c8 t& ^$ [' W# N& x3 L​       
6 D$ U/ E5 @% O0 A+ \% H+ n
+ |; \1 ^/ L3 e! }5 X8 f! B$ H5 b* ~0 @. M8 }/ {! e3 }  l
7 y4 H$ m6 v8 N# ~. R
– 方差: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)=∑
! [. t3 c7 R3 `2 A4 D- rk=10 S: A5 X; q, F" n2 }, @0 B
x' N8 k1 k" {6 P# d! [% A1 A
​       
' Y! Q8 ]! O8 v7 p' E6 X! t  |# l k ) t) s7 b3 G- t' W
26 S* w# k1 Y/ B
f(k)−E(X)
# x5 ]3 @' R  M) P/ |1 U. \2+ s; n8 j  R8 s* J5 f2 A: ]7 F  {
= ! b/ ^) M8 G+ r- y6 A$ G
p
0 F( x/ ~0 N  D, i8 G/ {! L2$ w5 x, C7 I+ W( ^( p+ J. ^

- T, A4 f# v9 H/ k1−p' e) `1 S, `* w: J+ r8 P
​       
, j+ e  S% }3 z, x$ {7 x  j7 y' h" K
6 `9 E8 T3 U: D) r. u% }8 A. C
, k/ Q$ p  \! r! X

; ^% D  |% o; y2 T3 g5 O! L. ~– 矩母函数: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+ A! F  X1 f: v! |1−(1−p)e
8 U& m/ e( u0 |" Cit
) N2 B; P6 ~% a% u  K' }$ E0 w( h3 r
. i* F1 _( y! L4 spe
. P7 ^. C8 \" i! T) y1 Oit3 F& b# I7 p' z1 b

" Y; m0 b- Z  x; a' x​        9 |# G! A9 v- F, b+ u. ^9 \0 r! K  N4 a
7 I' [! C7 J. X2 ]5 Z6 R
" R. T# Z4 i- N. c; L
* z# a/ f5 j2 j: w; ~( ]' i% S
– 偏度:S k e w ( X ) = 2 ( 1 − p ) 1 / 2 Skew(X) = 2(1-p)^{1/2}Skew(X)=2(1−p) 9 t; Q3 q9 q& O$ q) N4 P) P$ i5 y
1/2
2 V2 _2 j4 ~% E 6 k) N. p& Z/ `' h3 u1 ~

, v% l/ r" q. }  ~9 U5 w5 {9 P3 e

3 a; z3 |: n/ x3 V+ @: t) Y* K" ?, s– 峰度:k u r t ( X ) = 9 − 6 p kurt(X) = 9-6pkurt(X)=9−6p! T7 C  x3 Z0 t
+ w; n/ B* M! d! M% W7 p

- ?9 x. x" b) J" {% M  n函数        功能! S7 ^2 I# c6 S
dgeom(x, prob, log = FALSE)        概率密度  z+ ]5 e! m5 E
pgeom(q, prob, lower.tail = TRUE, log.p = FALSE)        累计密度: F" Y9 g6 f8 y
qgeom(p, prob, lower.tail = TRUE, log.p = FALSE)        分位数
3 Z+ X3 n7 J" H" V3 A3 s/ C& Ergeom(n, prob)        随机数4 C" O* P8 K! M1 ~% e" d4 n1 m
几何分布的各中心距来自5:# G& |& g# p  `% W2 V' N' K
! r! t1 q8 q* |1 ~" y! d- W

6 L1 P" B; e' v/ {
1 x* b9 Q8 Y1 R9 h) H
% X0 u/ y5 w9 P4 X
2、负二项分布/ d% }0 Z/ f: Z/ X
– 矩母函数:M ( t ) = ( 1 − p ) r ( 1 − p e t ) − r M(t) = (1-p)^r(1-pe^t)^{-r}M(t)=(1−p)
& d0 a+ k& A1 x: @4 [& x" [6 \r5 H( e$ ?) ]& S6 K
(1−pe - V5 P2 Y: M! u- y: E1 \/ G
t* D, E! w( E' U( o+ v
) ) M. Q- C9 s# c$ W
−r  }. R) f  i4 f) v

% [# k: e, s7 [8 q9 z( N6 J8 ~( h1 B, a) ?2 c
/ s; R' X8 p" Q% T- P) O
– 偏度: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)=
" Z( |, T8 }+ A' I# k& [(n
* M) Y" r5 \2 D( h. N+ b) Y2
1 Y8 j% E! _' s( ?! E* Z0 r +n(1−p)) 8 c3 S, d! Q+ P+ M3 O$ j9 G
3/2; o, R* d9 [' x
7 `  ^$ o" E7 C& N
n 6 D" k. g) l$ c. h3 J+ O
3) C- J% L' K' u4 U8 Q+ O2 M, O
+3n " Z4 b" m! }) r9 V' m8 ^* a  j
2/ j: I: b* l' u5 L
+2n−(3n ( W/ N  \0 w6 @* B" p  [' R: i
2; h9 ]* P) Y' H. l" Z
+3n)p+np
7 S2 r* I$ Z0 H/ l# m( L2% N8 |6 h( a: f
, K! ?6 _( \& u7 ?
​       
2 K, p* q1 N8 f: U4 h1 I
9 Z/ g( S8 ]* t" r/ e
6 u4 f$ I( ~3 k: P. T! ?2 ?

/ Q7 U4 b2 N  o+ g2 e– 峰度:k u r t ( X ) = 略 kurt(X) = 略kurt(X)=略 (带入递推公式自行运算)1 I# V3 }/ g9 `& z

0 p8 u3 E5 y" r& t! _

' V1 P: p1 Z, d$ D函数        功能6 U7 {0 D9 p0 K& W
dnbinom(x, size, prob, mu, log = FALSE)        概率密度
9 \9 @) k0 o4 ]6 y8 K- Rpnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        累计密度- E9 w3 J6 V5 |) n4 G/ H/ D, Q
qnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        分位数! n! z' A3 ~+ _2 l) d  ?" q$ w
rnbinom(n, size, prob, mu)        随机数
/ h% p! e& V% v+ g6 d( N2 C; d) X负二项分布的递推公式如下:6
' t: R2 `( ^* V; ]  N  H0 ?
9 A& t1 J7 x' p( S% Y! H
& v& x% P- e6 F! c) A+ p
/ c# b' m. z! N
2 L( k  S( k' j0 ]! _! V8 ^+ t
$ U6 _! r( ?: ]5 Q1 ~
3 k5 e# I& ~7 M+ |
5 m) }& |  E/ g) m1 j- }1 @  W( K
3 n- ]1 F( u) z0 I7 Q* _$ n( F5 z
3、帕斯卡分布
5 G' V: B$ p: b3 bX XX服从r , θ r,\thetar,θ的负二项分布,Y YY服从r , θ r,\thetar,θ的帕斯卡分布。有Y = X + r Y = X +rY=X+r。即:在同样的实验中,帕斯卡分布是成功r rr次后实验(成功+失败)的次数,负二项分布是成功r rr次后失败的次数。负二项分布的数字特征推到见博文1。故帕斯卡分布的数字特征可以由负二项分布推出。
6 E' o/ M: B0 [- x0 R% U在R语言中我们仍可以使用下面负二项分布的函数做适当调整生成帕斯卡分布。
3 I3 C# M( \1 v3 }# K! o% o1 V注:在百度百科7中还有另一种说法是:
+ M. P+ @# B. e- H; b! `
" h: S) ], s" b

% J! y. C% T7 s. E. B( A帕斯卡分布,负二项分布的正整数形式,描述第n次成功发生在第x次的概率。
0 z+ x& V4 x- {- s( L+ z) ~1 H2 o/ m9 b: |- t
: O4 B% d  i8 D: q" L: P( @4 Z
我们在课本中见的比较多的是负二项分布的整数形式,这时候课本会标注又称帕斯卡分布,类似于二项分布,负二项分布也可以推广到实数上去定义。大家感兴趣有的可以去自己找资料文献考察一下,这里就不过多的讨论其定义和数字特征的问题了。+ c# T- P) e# a* l" `

% u. q" Q: q2 y9 C3 r" N; e

( V& U1 ?3 i9 Y3 T) k4 e' f函数        功能
$ i" g/ {; `/ B$ _5 o2 l+ x8 m! P& _0 Ldnbinom(x, size, prob, mu, log = FALSE)        概率密度  L' y* Z1 k/ k
pnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        累计密度
; Z  B. Q- {; kqnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        分位数
- U" D. `; W/ [! `9 w. \rnbinom(n, size, prob, mu)        随机数
* G* L! G5 |! f' f" i' s4、泊松分布
& ]$ g; M' H& ?% o+ _7 o+ ?– 矩母函数:M ( t ) = e λ ( e t − 1 ) M(t) = e^{\lambda(e^t-1)}M(t)=e # e( u6 s0 F- B  K
λ(e
6 k1 P; T! ]" a' mt
/ o  K" C+ A+ B4 G# b −1)7 i, G4 i; C, e7 H
# U, {0 S# U# q' E- K+ I

) ]3 h* ~% k$ n( {

$ r$ {, I; n* q4 h9 f/ T– 偏度: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)=
1 ]$ m- _) ~+ M9 e4 X6 `4 x
: R9 J, [! y/ `" S3 F  `; l2
. ]* {4 Y; f0 B/ t +λ) ! l- |6 g% [: M, U, y9 X
3/24 n4 F, i4 s2 J1 B$ M5 O& E* H
$ C. n  w& ?+ v2 [
λ
# L" d0 X: `+ A35 f4 l1 v1 B! |& i, ^, J; O- E
+3λ & K  w# }6 h2 T% |
2% I8 k6 H, r2 I( V4 J! G# L1 {

* V3 `" c" W. z6 @+ w- o6 n​        : ~. t' k* h* Z/ B
6 W) T5 q+ M2 Q: ~
7 k4 V  s3 t! S* }

7 A& L- \, O/ u) o, L– 峰度: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)=
8 Q+ O- z7 L5 y# v  N* Q- {6 Dλ(λ+1)
7 L2 R/ z& O4 Z* U22 e6 n5 s4 a4 @0 O+ S
+ p5 l6 ~% i+ k( W
λ * ]8 u. i! h  o; ?0 G+ y8 s
3
- a6 a9 E% c" p +6λ
4 ?: v/ S% p1 W# W) F  k2' v/ Y  V2 A! {  t
+7λ+1
" X: N6 a. u, W, e​        * s' r+ ]: F/ z1 D" b! F
0 e) {. m. @! ~3 z1 p
  D7 f- o2 w9 Q( |. m

5 [! q: B2 X1 H' U函数        功能+ z6 \( N2 q$ E* n$ D/ R2 T
dpois(x, lambda, log = FALSE)        概率密度
3 F* f- f0 g& Nppois(q, lambda, lower.tail = TRUE, log.p = FALSE)        累计密度* F4 a$ C* g0 l
qpois(p, lambda, lower.tail = TRUE, log.p = FALSE)        分位数
" p2 ~! s- z; }rpois(n, lambda)        随机数$ }6 m& C; Q& Y- f# t/ D% I
中心矩的递推公式来自8:& N  B1 K5 `- c' x8 u0 o

4 j+ X! I6 v5 p8 h/ z5 n

. J6 G7 R2 w$ b) L! [  k7 s7 K. S* M( u; l

& {' f( E7 a6 f/ z5、 参考链接
% y: E. |1 c/ shttps://blog.csdn.net/weixin_46111814/article/details/105243202 ↩︎ ↩︎
+ F/ K  D3 I2 h; y
: m( j( n: L5 [6 s
7 Y; C& j( O/ [" d" _, n, C
https://blog.csdn.net/weixin_44602958/article/details/105261188 ↩︎
0 Q4 ~$ S% x9 w& D$ [
9 a7 g! W' V0 N4 c
# H' w, Z7 e: l) \
https://blog.csdn.net/STcyclone/article/details/84310450 ↩︎
& J5 G; |1 e7 g1 b6 s. r  G% Q

9 p$ U* T5 [( G9 a3 a" D) ehttps://baike.baidu.com/item/%E5%81%8F%E5%BA%A6 ↩︎
, {& O( \, F# p9 \; I  e0 [% V& a3 A0 _+ [

; _) h# @2 ^+ T9 X: Rhttps://max.book118.com/html/2019/0412/6234220152002022.shtm ↩︎
- u3 G% {) D2 ?0 R) ?
7 Z, Y5 V2 C( v) h& o

. X- b' i2 f: B朱成莲.关于负二项分布高阶矩的教学注记[J].高教学刊,2017,No.66,103-104+107. ↩︎8 @9 a- T9 y8 B2 x! d$ C

6 R% T* U, B* O4 ]+ V& l5 b

" S. H$ e3 E5 Z6 Q; Chttps://baike.baidu.com/item/%E5%B8%95%E6%96%AF%E5%8D%A1%E5%88%86%E5%B8%83/1188907 ↩︎
" U+ R& I9 x! J7 w$ P+ N
3 K* |( R  ^. n: x
# P( E' ~: E0 X7 w# }( j* j
https://wenku.baidu.com/view/7f8328c10c22590102029d83.html ↩︎
: {, h- e& _. n! @: y7 p  q————————————————; k! L$ Z; u8 l; c5 [( k5 u. n
版权声明:本文为CSDN博主「统计学小王子」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
8 y% A0 ~4 D2 C; Y- w9 h% L原文链接:https://blog.csdn.net/weixin_46111814/article/details/115499487
" ?: m8 S- F) R2 i, V0 U5 {7 l3 |! k; i1 O8 v$ S+ o

1 {! i) S% _' a: Y/ D




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