数学建模社区-数学中国

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

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

' W( m! X) U% O8 Y% y离散函数的数字特征及其R语言的应用% Q4 M  R4 ~& `+ H3 v! S
目录
% y9 s5 U, n/ Y) \+ v0引言" A# C  c& j, D3 C& m. ^6 N/ p
本文结构1 B- g7 P- a- _/ t1 `
理论公式" {9 U& {5 n1 T
1、几何分布% m5 ?/ F& }, ^8 B% Q7 d6 X# q
2、负二项分布
/ N# F5 K( o4 S6 C3、帕斯卡分布  e% _. n: W- f
4、泊松分布+ {' i6 m' G5 ?. `2 A3 c  k$ A
5、 参考链接8 _; J: {- k) A% w/ v4 U! g7 f6 E
0引言; }7 \* j$ O- w
本文结构
- U3 A$ ?1 R! c7 j' I在文章统计学基础——负二项分布的数字特征1中介绍了负二项分布,在博客2中介绍了离散分布的数字特征。
7 E7 p- L, z% z" c/ P6 a4 l  b本文计算一些离散分布的:密度函数、分布函数、均值、方差、偏度、峰度、特征函数、矩母函数
! D7 {* ]' |$ `, }4 z
$ _3 `+ Z: Y( g) o
1 ^0 U8 }1 l4 P- S% @" |0 }) c
理论公式2 s* w$ z, b+ R1 X) t, D! S9 u2 ]
为了方便先给出计算公式:
. a. }* R5 D3 c0 M/ m' |
  S4 e2 ^" R7 x; {& k' E5 u( R

& N: J& |" |- K" t- |2 Z– 密度函数:f ( x ) f(x)f(x)
2 `% y6 B( t7 r6 Q9 [& P4 E; K5 [( p. T/ ?* O- X, U3 P, ]

0 Z  }7 H' d6 C' l8 ~– 分布函数:F ( x ) = ∫ − ∞ x f ( x ) d x F(x) = \int_{- \infty }^x f(x)dxF(x)=∫ ( t" \" ]2 V; n6 X. m1 @/ M
−∞2 \" o( b* V+ P$ S4 N
x: r8 E$ j6 ~% |6 `3 I
​       
7 q, @# r2 n5 d. ] f(x)dx
/ m( e7 k% `& j  l. U6 G% d( _
4 n  X# z5 \  f8 z/ \; ?2 g
/ G9 r+ l) D8 u7 j8 l+ t" z
– 期望:E ( X ) = k 1 E(X) = k_{1}E(X)=k
3 K% D0 _' _3 d8 N- o1
. A3 s& r' r! r; I2 F​       
4 r  ~! r, A& K9 A+ N8 c( [
" D, y6 y/ V3 o" o; X6 c& ]$ C, K" y6 B) ^# v: m. [

& L; u/ [1 }2 v* |" ^– 方差:D ( X ) = k 2 − k 1 2 D(X) = k_{2}-k_{1}^2D(X)=k 1 e4 G& A7 G& P. w
2- s  z4 j$ \3 d3 }& `! o
​        4 K+ b9 r$ x( q
−k
) z- y2 I: t3 E9 S" s5 s! V1( r, G% w1 ]  g4 F
2
. G! H1 Q5 K0 }9 Q​       
3 k4 s, z' o. D- z$ y5 d7 p
7 V! _2 {. u' `0 f  c8 K! Z! n4 a2 k

6 B; D$ E' A; h– 特征函数:φ ( t ) = E ( e i t X ) \varphi(t) = E(e^{itX})φ(t)=E(e
. U: {8 a; n6 M3 \/ jitX
% ]6 E/ k; X6 f4 W% }% R )
, u4 Y1 _2 s' H5 S7 ^' J! x, a; Q) y  l% Q6 R& Q% l1 b

: z5 a0 ]  J' o– 矩母函数:M ( t ) = E ( e t X ) M(t) = E(e^{tX})M(t)=E(e 0 e- d; _" L# K& a
tX
/ @5 A; v. z; _! v' q1 G ): P( F5 |: Y" d& W9 E

1 Y9 M+ v8 M6 E( D2 ^
( [2 u# d5 `5 {
– 中心矩的关系:E ( X k ) = i − k φ ( k ) ( 0 ) = M ( k ) ( 0 ) E(X^k) = i^{-k}\varphi^{(k)}(0) = M^{(k)}(0)E(X
9 i+ B  i' ]! Y* d2 C, D% Ik4 S; @8 b% T6 |( ~8 u, b1 n* v
)=i : c0 F% B- T7 X  @
−k& m3 Z) L& }, D; H" d9 M: K
φ ( r) C/ Z9 Q/ U3 n, [
(k)
' o3 k: V5 |" z( x! i+ H* {; ~ (0)=M
( R7 w8 Y6 w! l7 a$ c1 }/ j7 O* Q(k)
' e  [5 q" |% u( ?' w (0)
" e* w* D8 Q. n. ]5 K" E2 M2 c  _. o' ^# r6 p6 o
* `" W! j: I+ ~7 J. b! b. K/ R
– 偏度:S k e w ( X ) = k 3 k 2 3 / 2 Skew(X) = \frac{k_{3}}{k_{2}^{3/2}}Skew(X)=
% C1 |$ j8 S$ @, K/ q% ]- sk / I4 s3 Y: z: r
2
# d+ L2 G! \/ E  R! q9 |3/2! r3 W4 @2 s3 c6 `8 |4 ^; R
​       
/ H- ]8 i! t2 C1 f, x4 L
4 r8 g- F8 l/ U5 V' G6 x1 K+ Ak   E6 i* h' n/ ^0 s$ T, W0 S
30 M. e7 g" U" g! C. h, n) ^5 G
​        * S% F; z3 ?: J# a2 G
) \% r6 n4 R3 J5 z$ p5 [
​        3 _( i1 U/ r! V' c0 J
3
' {% [# J3 v: y: i6 |. |6 }6 G
* L# L5 p- U/ z6 R1 p% j

" v; C$ j) i* Q3 v2 Y( y# Z' g– 峰度:k u r t ( X ) = k 4 k 2 2 kurt(X) = \frac{k_{4}}{k_{2}^{2}}kurt(X)=
* j* \, Z4 W) Bk / i& A- O5 }- q- L  x" Q3 O/ j6 l
2
* Q: k6 v8 n& _7 a6 W2# X( L+ |3 O9 g, i: J
​       
; z$ k: Z* I& \3 W * v: W. C' Q: P' u! {
k - h/ }! I0 D+ {7 V2 O6 U
45 ?* j" E/ g3 `5 t$ F
​        6 L  l. ?& J; j, l
6 m# V( t4 H) q! ^. K8 w8 z3 x
​          |/ T. d0 ?# I& ?7 }) Y0 I
4( r8 a9 c8 \% @" J

* C8 c% ~4 u5 X! |8 j3 }* o3 \1 F1 q
& A6 C; [  o& N% w' r. F, T. a
1、几何分布% k* l6 c- Q7 G8 v; b
– 密度函数:f ( x ) = ( 1 − p ) ( x − 1 ) p , f(x) = (1-p)^{(x-1)}p,f(x)=(1−p) ; n* [! f/ z) K+ R- ~) z4 W5 c
(x−1)
6 c& d5 ~- a1 Q* ~: ^' g, x; e2 F p, x = 1 , 2 , 3 , . . . . . . x = 1,2,3, ... ...x=1,2,3,......1 o1 V/ ?" V1 N
. ]+ O5 z0 A3 U2 l3 x4 V
6 G) d/ R& D6 ^' [2 @, ^: F
– 分布函数:F ( x ) = ∑ k = 1 x f ( k ) = 1 − ( 1 − p ) x F(x) = \sum_{k=1}^x f(k) = 1 - (1-p)^xF(x)=∑ # }8 @2 J- c) K) ~: \) I. r5 b
k=1
& o8 _2 a# x9 J3 K% l- Wx8 _9 h4 y$ w; q) K# p# j) U
​        2 M8 h* [3 |3 `' M0 x" W
f(k)=1−(1−p)
/ T" J0 B$ a3 X/ L* _x4 ]4 l' m% B( ^+ q! k6 n1 b5 G) [  G
$ i- K5 O6 n; c0 j+ M" d
/ v( k9 d1 |6 t) l7 J# B+ j6 w

: n8 p* @" ^! B" g– 期望:E ( X ) = ∑ k = 1 x k f ( k ) = 1 p E(X) = \sum_{k=1}^x kf(k) = \frac{1}{p}E(X)=∑
6 Z1 t& x( E) bk=1
# P: A, E+ e% ^x
! e  g* T7 x+ H% }. X​        + \' d; N4 \7 P; q8 b: n
kf(k)= 8 M, k9 H( \% }2 R) Y% z
p
7 u5 d1 y  M: j: V: [; @7 |1
4 `  [% [: |' ]​       
0 C7 @" j' D7 B' J/ G* k
. \, |. F$ j0 P0 q  b6 G6 j* T
. H7 Q6 o5 d& r" k/ F0 m
0 S" x# ^* r  K7 q% ]! U3 p' \
– 方差: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)=∑
- c% ~# N0 \& C) Nk=1
6 |& q0 X* ^& ~- Wx
" ~& P3 J! D# H​        ( N# r4 ~$ R4 d4 S9 y# [
k / Z* e% `0 b+ L0 s9 ^( y
2
# c4 J7 b5 \% T4 `* e f(k)−E(X)
( f( I4 d/ ?5 E( W$ ]23 E: @! ~. [! t4 e5 s6 c
=
% x. M0 Q9 G# N# X$ bp 0 D! N+ B% y2 |2 S& c
2; r  I- M+ o: b& _

  |2 _/ d) A& w+ A  ]7 t) Z1−p
5 r, d- k7 _# V- k5 W$ y​        ; P# r5 I: w" x% x
" z' i5 N' N8 h! t
" t4 \- O: O* W( ~. K1 e6 V

0 `- h3 C& }9 c/ n  }2 g' D0 |# _– 矩母函数:M ( t ) = p e i t 1 − ( 1 − p ) e i t M(t) = \frac{pe^{it}}{1-(1-p)e^{it}}M(t)= 8 d, W( d. `9 _- u% P
1−(1−p)e
- t4 O! z* ]- L7 q2 bit" x$ M3 e! ?( M* |

( Y' v/ U7 b1 p$ J$ Epe % q% v7 T; q. ~( h" o3 O& c
it$ ?4 o" J6 a/ m# Y( ~! E

; }, d+ k' p6 D# F: h4 W- l4 H​        ! e4 M# t2 Z) X) ~& n
6 x2 _9 W, x4 W! Z$ j9 k

& b6 u2 X% F2 H) M/ ]/ Q- x8 h* i

3 j& ]8 J. C; e  Y9 l9 ~– 偏度:S k e w ( X ) = 2 ( 1 − p ) 1 / 2 Skew(X) = 2(1-p)^{1/2}Skew(X)=2(1−p) . ~; Q3 c' W( E# V! E# F
1/2
: [' O4 |; o$ g2 ]2 o5 w) e& A ' B; y& l+ B% W' ^. F

% Z6 ~& X( z6 X0 ]- |1 S4 I$ d

& [6 C. z/ [3 H– 峰度:k u r t ( X ) = 9 − 6 p kurt(X) = 9-6pkurt(X)=9−6p
4 X- I# Z0 N) s  X) d0 Z: d! q3 X. S' {  [

! d2 }9 H' w% S函数        功能
+ o7 o# A% V: l7 j3 r3 \dgeom(x, prob, log = FALSE)        概率密度/ k, C, \! s3 B/ ^" A
pgeom(q, prob, lower.tail = TRUE, log.p = FALSE)        累计密度
8 h* ~& ]' y8 Y, Iqgeom(p, prob, lower.tail = TRUE, log.p = FALSE)        分位数" Y, H1 U7 o$ z5 o' F3 K
rgeom(n, prob)        随机数% t( m/ ]8 D# `9 c- z6 i. g% b
几何分布的各中心距来自5:
; w( z1 ], F+ h% K- J6 T9 b  W1 h$ R7 b& V8 N

* i8 V+ b: s  L6 F8 l# }; D4 w0 ^3 w9 b  j2 ]6 R
- ^% M9 f  @/ k: v; V7 b
2、负二项分布& I. i0 O& u9 l" p) r
– 矩母函数:M ( t ) = ( 1 − p ) r ( 1 − p e t ) − r M(t) = (1-p)^r(1-pe^t)^{-r}M(t)=(1−p)
- |  Y. [8 X8 {0 Y1 W' \5 tr
, R+ k  `2 _4 D( v (1−pe 2 _7 I' ~$ I6 f8 m! s! O7 C
t
8 g" n3 P0 t( l ) ' `, C+ o( T( ?7 C& x
−r% ?6 J! I! P9 l, \
$ A- J; Y9 n9 f  X
2 n. a3 i9 b0 ^& T8 y0 v* _
  ]" u9 c& \& G. c; ]
– 偏度: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)=
8 `5 R! y: g% L4 E! p1 i) g  G(n & N  m  X3 c" t  i# s3 [6 c
2
7 v1 R* `6 y% V- D, A, Z +n(1−p)) / @+ g+ U* F2 l
3/29 q8 [3 F9 {2 B! a$ Q0 @1 j

2 F8 R- v* w* A% Y7 h" L* Yn
4 \- K& s2 F8 u3# B; O# P/ l! {4 R: v. c" N5 l
+3n % z. x: f5 }. O. _9 J4 }
2
& E, r# E7 l" f1 p- p$ u; L +2n−(3n
" L- T8 G2 b, r6 B* ?& a- a26 A) @4 M9 o) k+ w9 T% T, e6 x
+3n)p+np + u9 Y' S) ^+ r+ W/ y+ ]" R
2
6 a- V- W; N+ X( L6 f / B( J9 C7 E/ U4 @+ j
​       
( v5 |6 S1 ^- j; ?
/ ?" E- g2 r% Z$ X
0 n, u- l% [* K2 z+ L
+ U3 K6 G5 L7 d; [% `* o2 i) h$ w
– 峰度:k u r t ( X ) = 略 kurt(X) = 略kurt(X)=略 (带入递推公式自行运算)
$ g3 p+ D3 r6 c9 y0 |7 {* h
8 @/ A& G! `9 o4 M9 ]6 _

" O  \; D* a  k) S. H# }- M' q函数        功能4 a% k! L+ P0 w- G
dnbinom(x, size, prob, mu, log = FALSE)        概率密度, Z( V9 T& m8 v/ Z, ~0 h# b& D
pnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        累计密度, X9 i" I  P8 k- i  e' S
qnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        分位数% @+ W' |6 P* |9 q) E: r- `
rnbinom(n, size, prob, mu)        随机数: `- Z4 V! g1 p3 v
负二项分布的递推公式如下:6
) R. o6 }( Q+ ^2 q3 ]% D! x$ z( n  R. G" e

1 Q! H5 ]9 A7 @/ v! ~$ L- x" A* y0 _5 b
& g& [# X5 D0 g9 H; V0 |
9 \4 S+ p- P3 q: ~, \# T

, B' L/ B6 v" ^' k
4 y9 [/ h6 d& M+ \' W4 H5 F

; j- Y8 D4 ]9 v/ L8 A9 j7 q3、帕斯卡分布1 X5 K/ S; z% }! W9 \
X XX服从r , θ r,\thetar,θ的负二项分布,Y YY服从r , θ r,\thetar,θ的帕斯卡分布。有Y = X + r Y = X +rY=X+r。即:在同样的实验中,帕斯卡分布是成功r rr次后实验(成功+失败)的次数,负二项分布是成功r rr次后失败的次数。负二项分布的数字特征推到见博文1。故帕斯卡分布的数字特征可以由负二项分布推出。
- U6 Q& c5 r2 V7 M8 {在R语言中我们仍可以使用下面负二项分布的函数做适当调整生成帕斯卡分布。
& R7 {0 W% s8 N4 V6 P6 U' E注:在百度百科7中还有另一种说法是:8 C$ D" s+ I& M/ v
/ b! i- K: S4 u( i( ^$ r/ j

8 V( z. G2 ~) d* U% E帕斯卡分布,负二项分布的正整数形式,描述第n次成功发生在第x次的概率。  j7 d  D9 V0 |0 V" P- o
9 x$ C; y9 n; t9 d

& L+ ^; x8 f  N, F' u4 F5 t我们在课本中见的比较多的是负二项分布的整数形式,这时候课本会标注又称帕斯卡分布,类似于二项分布,负二项分布也可以推广到实数上去定义。大家感兴趣有的可以去自己找资料文献考察一下,这里就不过多的讨论其定义和数字特征的问题了。- B7 H; z7 z7 E) V/ J
$ S4 s7 d* I, J% c
0 u1 [, G, n3 i& E  b& h% c2 s
函数        功能
  T5 }4 ^. {7 i* wdnbinom(x, size, prob, mu, log = FALSE)        概率密度- p6 |) w4 |; f+ H
pnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        累计密度
! F$ \, x8 v( _% T* u5 L) aqnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        分位数
; ]2 D" M5 Z* Z. ~# O' f' M, jrnbinom(n, size, prob, mu)        随机数
7 ~, P! I" u0 f6 u" V% H4、泊松分布3 ^( l; k, u+ ~3 a& q$ L. D
– 矩母函数:M ( t ) = e λ ( e t − 1 ) M(t) = e^{\lambda(e^t-1)}M(t)=e 4 i5 f8 B. P$ i3 {4 M
λ(e
, _' Y' K9 m4 h. xt& x" i% y% U% R/ S/ \/ [$ X
−1)
  M* k, u8 ?* n7 e% c
4 n/ E! J+ x! F3 f. h9 O
1 I, q  D  W' `" K

# H4 z- s  |% 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)=
! J6 r: c( r; E6 q0 K/ ^% O3 J8 _& \, k4 r$ D) Z$ J+ f! Q: Q
24 d. n$ F* z  n: A
+λ)
  t3 P, b8 T( Q1 C+ H1 U' ]1 q3/2  w. W* z) n3 ^) `

- X! D' Q/ _; g& yλ
/ E- l3 _& m; |# d* v: m31 z3 p8 `) o: x* L" S5 W3 V
+3λ   c- J  ?9 t( v6 }4 M6 w( p% m: G$ v
2) I; p5 r* b$ y% J( @

" M( |. K+ D+ ~( i$ E; H: S9 C* |7 }​        ' h6 U" ]8 a; ?! C
+ q& ^* H, G( T  r! r% i
5 i; V, y1 L9 Y6 v
! v) G' w( B  O, o) i6 V; I, q
– 峰度: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)=   @7 E0 s) ?$ A' W
λ(λ+1) ' G) p  v/ \! c
2
2 C' F& |8 I' S
& y1 B- G& ]8 {: gλ
/ `: l  n- L2 I6 N- z& C3
4 d3 L$ I* E9 K! U +6λ
! p: U5 s/ O& J; a2 o9 F9 I2' j* r/ H4 `! ~2 ^: ^9 ~$ q
+7λ+1
. ~, B+ _/ I. d, {% I​       
! i9 w3 @) o! g5 V- Y
/ _$ C2 Q8 g9 m- ~+ p( I  v  w, I$ K, D9 O1 ?9 d- ~! w: n) ?- A7 P
. q0 A0 T- C( P1 U1 c
函数        功能6 `2 [  L: f: r# g1 w$ p
dpois(x, lambda, log = FALSE)        概率密度
3 W+ O5 a& K; g. t$ R+ @: fppois(q, lambda, lower.tail = TRUE, log.p = FALSE)        累计密度, H9 E& L7 g' E4 n) O0 g
qpois(p, lambda, lower.tail = TRUE, log.p = FALSE)        分位数
2 F+ _& J# q9 Irpois(n, lambda)        随机数
# L- h: \+ I$ Y0 \1 P中心矩的递推公式来自8:# M( {' J- A$ F7 c5 s- |3 M, A' y. X5 `

5 q& n) Q4 Q+ H5 B

7 _! W! R! [% m3 v/ C+ ^- S, x2 ~) v; [' ]9 k4 j) ]8 j7 g
" P# k* E! K7 X- }: G
5、 参考链接
! E# `* R  ^$ N) P5 ^; t7 [9 V% L8 \7 v- zhttps://blog.csdn.net/weixin_46111814/article/details/105243202 ↩︎ ↩︎
" i# z0 F+ g6 N* o6 ^( J. A, p) l! y# t) q" Q9 t

6 \3 W' u7 @, Q& \& N. I8 Mhttps://blog.csdn.net/weixin_44602958/article/details/105261188 ↩︎0 O5 A: u' r0 p8 H& i

% W& P4 n# a7 d& y7 m
& r! F$ s6 ^' q. N
https://blog.csdn.net/STcyclone/article/details/84310450 ↩︎
. R+ E, r4 D9 }. Y/ v4 w* `! f2 {2 g- |; I% l# a$ U) D4 E
& g7 Q& b5 m8 Y, @) \2 h. p' Y
https://baike.baidu.com/item/%E5%81%8F%E5%BA%A6 ↩︎( n% z. ]- S# ^) |7 r( g

+ F$ |8 L  r# v4 U" o

9 ]8 G! w* m' L: J2 C* D- Bhttps://max.book118.com/html/2019/0412/6234220152002022.shtm ↩︎
3 ?$ X- `1 N  a. J+ R" V6 z0 Z
3 b4 f0 I/ |) T* t' H6 K
6 o. B0 A/ k& P) H) M5 e
朱成莲.关于负二项分布高阶矩的教学注记[J].高教学刊,2017,No.66,103-104+107. ↩︎. F  G4 R- E; t2 }

5 [7 P- n) d' z+ L
- `1 J; H. X$ Y4 [
https://baike.baidu.com/item/%E5%B8%95%E6%96%AF%E5%8D%A1%E5%88%86%E5%B8%83/1188907 ↩︎/ S% h' F# D+ q
( F& I1 v; z  d4 G( o: |) ~! Y: z

! Y  f/ Q6 [8 v. ~% o9 Q& Vhttps://wenku.baidu.com/view/7f8328c10c22590102029d83.html ↩︎
/ M9 i3 s1 g1 t# I2 p7 n————————————————0 m7 x- K" ?5 q. M0 f! q
版权声明:本文为CSDN博主「统计学小王子」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。0 N1 B6 N" d9 d0 @
原文链接:https://blog.csdn.net/weixin_46111814/article/details/115499487( W: B1 W! ^) R% L# @

' e+ S+ v$ G% j/ W2 `! f
! U0 L3 n/ m1 m! e# i' k" J$ @- r




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