数学建模社区-数学中国

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

作者: 杨利霞    时间: 2021-6-24 16:22
标题: 离散函数的数字特征及其R语言的应用
1 e1 C4 ^' W# Y/ X: {$ q0 o7 R
离散函数的数字特征及其R语言的应用8 ~$ z9 O8 p% r) X. C
目录$ F' E8 P. V0 p
0引言+ t/ k! j+ _$ J9 f0 _
本文结构* t3 ^' A$ s% r9 f, J
理论公式6 q/ p( D9 {4 n4 r- Q6 `# h6 S
1、几何分布  W. b0 D) p2 X" U+ B; W
2、负二项分布
1 Y6 n9 H# s6 K& h3 y! P3、帕斯卡分布* X9 n( S9 ]6 T% h
4、泊松分布7 j9 \& T$ m& C# [% K7 S5 P8 [
5、 参考链接$ o; F% S  h" V7 [4 k# Z
0引言4 r1 F9 \. U0 q8 B8 D. b
本文结构
$ g9 l7 x9 L. m* y+ C在文章统计学基础——负二项分布的数字特征1中介绍了负二项分布,在博客2中介绍了离散分布的数字特征。
6 z' Q" Y& U+ Y9 s% W本文计算一些离散分布的:密度函数、分布函数、均值、方差、偏度、峰度、特征函数、矩母函数# g+ V* v& N* o/ n

: S. g4 a5 _: Y0 y+ p

+ ~+ F1 g4 i6 v  V& N6 ~理论公式7 w& B! k8 i5 _: n+ u$ U' k
为了方便先给出计算公式:
$ b2 Y1 ]5 a- d; U+ ?3 j7 J6 f1 O
8 F& l4 S7 e: e% {( u; q3 {
7 H3 w6 c: F  Z6 k: ]
– 密度函数:f ( x ) f(x)f(x)
8 u) j- Z% L4 Y7 \0 |1 g; k  r) m+ H! F& H9 }

" m$ n: x# f4 F( B– 分布函数:F ( x ) = ∫ − ∞ x f ( x ) d x F(x) = \int_{- \infty }^x f(x)dxF(x)=∫
  I: z+ G' _! R# g7 e−∞
& @. p% l  Q+ o. a) r* [x, w1 l: L  E9 a. L) n- j
​       
; Z! {- \  z" L4 v! k* B f(x)dx
) Y: t) g# z" A- m2 M! h) `" f
9 e% o1 X; j2 h4 y) ]# f/ W  [

9 G, C: r9 j4 X% Z) z# y8 q– 期望:E ( X ) = k 1 E(X) = k_{1}E(X)=k % E; m- L; d4 C, R1 h* K' e+ y
1
  W% R" G+ w" h1 \* `& n+ i​          A0 m" C7 |8 a" w. ?8 S( \
+ p; o, u) r% D1 L! F1 `
8 k  j- t- U' v5 m5 s

1 D6 {# O4 r/ K/ E– 方差:D ( X ) = k 2 − k 1 2 D(X) = k_{2}-k_{1}^2D(X)=k
2 x; o# z6 S( q5 P7 E& S6 d! U2" _8 E5 d, c  O3 N* H" k
​       
5 z1 s0 Z! D9 f4 l% A. g# Q −k 0 v& ~. T. P# a- ]' \
1$ C" m, M9 J; ?4 M  b, _8 O" ~
2
. z% L( f. W0 ^​        ( @8 V# a, B; a" O+ P/ e

& Y" x8 Z! _2 N8 l" z7 I. G
3 c# H9 i0 O& c3 z% o' t

. ]% I- X9 ^0 u– 特征函数:φ ( t ) = E ( e i t X ) \varphi(t) = E(e^{itX})φ(t)=E(e
* w& n. C: c* t9 X* {# S% H& ~& XitX
; m( F+ W2 y; Q  s )
/ V5 k" n& D* E. \0 E2 v( ]; `$ E1 g& U1 _4 w
" G5 r- K- X$ m1 S; f9 X# b
– 矩母函数:M ( t ) = E ( e t X ) M(t) = E(e^{tX})M(t)=E(e
9 @: Z  @/ j4 U- _6 y, X( q- BtX
6 ^" Z8 L, M, n2 n/ v6 ^ )
, A/ u- u" ~- f; h/ `
9 o$ f8 I$ Y- X3 ?  a
6 r# S0 e- ~4 E6 g" v" |1 K  z
– 中心矩的关系:E ( X k ) = i − k φ ( k ) ( 0 ) = M ( k ) ( 0 ) E(X^k) = i^{-k}\varphi^{(k)}(0) = M^{(k)}(0)E(X : M+ n+ ~  K: R; C* C
k
6 R& a, Q1 S5 o6 u* | )=i
- c7 R4 I3 B& D) G, n−k. U3 B, n! ?6 X8 U' K- _$ z
φ
. J$ y# h- S& p6 e5 J( @(k)
) j' }, R& O0 a$ D% _ (0)=M
) S3 G7 K1 \) z1 d9 r1 H6 L5 X(k)
3 j$ c5 o: i" v$ i  r (0)
! s; T0 n8 ^' e) C5 P
2 M+ x" Q0 s5 j

* {2 B. ~. f1 e– 偏度:S k e w ( X ) = k 3 k 2 3 / 2 Skew(X) = \frac{k_{3}}{k_{2}^{3/2}}Skew(X)=
- P* Y  g: A  T! |6 qk 7 |( d, I9 p* y$ i0 ^
2
8 |3 L% X0 r* {  G4 p* x, ]# s" I3/20 H, D8 x. j5 \  j% P. q8 z1 H
​        & g  y% d/ c* O# {8 a2 k5 F
2 g' {1 k  w- |) U& z
k
- Y8 Z" q, @- s! E( C$ N8 j3
. n% O; l- c6 Q: X" A+ ?​       
2 F( C8 y- Y: @1 T% \
9 L: r* m' e. F9 B* r" K​        5 ]1 m) X+ O! a4 b& Y0 X" N/ T; o9 x
3
, k. d4 y+ }6 E. c" F/ v& c) Y. P  M* w& u( a7 h& r3 B8 i
0 W# d8 z4 _$ l: l: ^) _
– 峰度:k u r t ( X ) = k 4 k 2 2 kurt(X) = \frac{k_{4}}{k_{2}^{2}}kurt(X)= " \6 i, d% l  b5 y4 \8 o$ w# h  V+ t
k
# E9 p9 P3 K0 a2" T1 b# O% H* F; z
27 x) g' [9 O; D  @, x) Z8 b# k
​          A; k2 @: [0 A- r! i8 Z* C6 L; O

9 K2 P3 h1 W5 T# |k , A: Q) A2 B- a$ _  |
48 {+ x6 `! C- {
​        8 b1 |# X& i: t* k% `0 W# Y% }

% c/ H9 W' _; O​        2 [% U( p& g# _( q  L2 ~
4
$ G. m: \% @" G) Y" U) b; X$ ~  y! w! I- p8 H; v6 ~- x) g0 G- X

( Y* s+ x8 ?) K" W& ]1 N$ g1、几何分布
( V1 E# M+ U& z% t/ A% B– 密度函数:f ( x ) = ( 1 − p ) ( x − 1 ) p , f(x) = (1-p)^{(x-1)}p,f(x)=(1−p)
$ I9 q- a5 Y7 W$ r& F: B(x−1)
' E8 P0 H" i% }, L/ O8 I% v+ s p, x = 1 , 2 , 3 , . . . . . . x = 1,2,3, ... ...x=1,2,3,......0 u' k& s1 L8 r9 k/ w) m
/ Q/ ^9 k$ f4 q

% C8 k! Q3 q* 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)=∑ 4 j/ g" G: t- S! E. S) b% |
k=1
& h* _( |7 a) Q! L! Wx5 {/ V4 @4 S- R1 k. G4 p) H
​       
2 D. T- d7 Y7 l6 P9 Z. I f(k)=1−(1−p)
6 N3 Y# k4 ^7 x/ N; u0 D3 C$ Jx
) Q# T6 X) Z( s8 N. `( `   z' B+ L' m2 a/ m

3 j8 O1 f) e$ j/ P
! M1 y3 N9 }- j5 y& v
– 期望:E ( X ) = ∑ k = 1 x k f ( k ) = 1 p E(X) = \sum_{k=1}^x kf(k) = \frac{1}{p}E(X)=∑
: d$ N1 y4 W7 T; w$ nk=12 h; U1 m6 R% R9 H$ n9 v
x0 I/ L4 P" C* Y& |( `
​        5 J  |7 w# I) f1 P5 W4 L
kf(k)= , [2 h1 ?. I: b3 D5 h: D6 m$ P
p
( j% R+ i1 ?* C8 m5 X) O& E2 }1
5 \: q4 ~6 H/ d$ |0 I​        ' n: e* M' e$ Z% v5 K

+ e" o; ]4 k( V. ^* O5 `" \: y' A8 x6 n. `2 _. G7 l) u4 Y7 f

# z3 g9 |3 w  Z. i# ^– 方差: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)=∑ 4 v# h0 l* Q, \
k=19 {& ~4 `7 d+ h4 C( \
x
2 _2 W  v' U$ E8 o) X​        ' t! w# |7 y7 D& p+ M" q0 c
k
3 I+ s! h6 o8 V: M2 p+ }2
6 S" [/ F/ r0 A% _, ? f(k)−E(X)
' I6 R- {- G5 F7 k0 t; I23 |/ J1 S3 S4 ^0 P/ z0 a& D
= / f! |, @- H' F5 _" Y& [! [
p & C$ `1 G2 b0 ]1 ~0 ?$ ?" m+ \/ Q
2
" {3 |3 ?6 G6 `+ \  _ 2 u6 P3 _# W% g* u% L' f
1−p: r) |+ j2 L1 \
​       
5 g% f& T2 J  s- C. ?4 A5 m1 F 9 n4 |8 h- i' P1 G; Q9 _- H8 r4 @
) ?: O) L5 R6 ?  s
8 ]) o' k( ]* ?) R: G% ]/ y
– 矩母函数:M ( t ) = p e i t 1 − ( 1 − p ) e i t M(t) = \frac{pe^{it}}{1-(1-p)e^{it}}M(t)=
# \3 ?2 |5 ~: @2 i: D0 [1−(1−p)e
5 w: ]9 z& V- ?& [2 ~: lit8 A: \. [4 D0 v' n: Y( U

# l8 b8 @( z+ e) P- n1 Jpe
( m4 i" x8 N* c/ S) mit
& k% L& F# L5 i0 b% c, v" Z
; v$ O: P6 X4 P6 F% I! r8 A7 X' {​       
) }. l/ \+ n$ i5 y* p, U# ?! h
) W8 d8 b: G8 G" x' o8 b
: w9 b" i% j7 ~# W7 B3 ]. b9 i+ O
5 U$ F2 j9 r! e6 l4 X% M4 v
– 偏度:S k e w ( X ) = 2 ( 1 − p ) 1 / 2 Skew(X) = 2(1-p)^{1/2}Skew(X)=2(1−p)
! g9 Q0 ?8 s$ M' e; j1/2# ^! e3 F) G4 q; E5 b! ^
' w9 L( Y# f2 `5 k) N1 Q6 m

, u9 c) Z' y( c" |
3 E6 c: B: T/ I2 k6 G- ^
– 峰度:k u r t ( X ) = 9 − 6 p kurt(X) = 9-6pkurt(X)=9−6p
' \1 j* J4 i8 y" G3 v$ c( g9 f
, H( g, ~, Y- j1 H: q* o3 C
3 G( J. E, J, L, g" J" ^" g! O# I
函数        功能
, p+ [+ T2 D4 t' Cdgeom(x, prob, log = FALSE)        概率密度. y8 t* l9 z8 I& M: B4 r
pgeom(q, prob, lower.tail = TRUE, log.p = FALSE)        累计密度
" d( w$ i7 O) p7 D0 }9 t2 }qgeom(p, prob, lower.tail = TRUE, log.p = FALSE)        分位数) O4 j6 n* i/ ~% Q1 g+ u
rgeom(n, prob)        随机数
# d, j! i8 t2 G( H几何分布的各中心距来自5:
$ r* u2 u& p4 ?4 ^; c3 a8 {6 m$ W* @% q" `' ]  v+ _

8 M' `( `7 X. u! H* Q
  V' D" i. Y! N/ ]

0 g- g% A4 M9 M" g3 j1 u- k2、负二项分布5 v, @* r: a4 K; x
– 矩母函数:M ( t ) = ( 1 − p ) r ( 1 − p e t ) − r M(t) = (1-p)^r(1-pe^t)^{-r}M(t)=(1−p) ' A: e8 J" y) ~5 |1 t. c5 O, s& _1 i
r
1 D. T" w1 d' i6 _/ ?% ?1 r; k. p (1−pe & ]/ _# f8 _/ t; a& B/ |: z! p  c
t
5 Z1 ?( A2 f! u% k5 _5 [8 |& } ) 8 }+ Y. }, j# ~+ u( w& \2 x4 U. l3 j
−r
, V* h2 G; y; d" S# O / f( c. p" K3 ]1 L

! [8 l; J. |9 |7 r- J/ M

' @+ z9 M$ k9 O& g/ y: m– 偏度: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)=
! L( e% o& I- u9 g(n
+ U3 U8 O4 r! h0 J+ }2- f' }. t( S( H5 f) e2 x
+n(1−p))
$ \0 O- H% h9 |4 {( K3 e" O3/2, j/ _9 j/ S3 w, E0 n8 L
4 G) _0 x& w# F
n . T. V( ?: a9 x
3
8 y7 B  d) i( Q4 j3 A+ e +3n * l4 z! L" N* q0 s
2. T; @) y: G6 p& `2 {" o5 I
+2n−(3n , A2 j. x. o9 U  Y
20 q! r; [) o  T* G3 N$ `8 i. E
+3n)p+np
. N7 t0 v7 L! F2$ j" _2 G* A/ e' N5 h. M

: t. X* q9 r6 p: d( c" [% ]​       
# n! E* r% u. L7 D) p7 J2 s' A8 ]' o9 B 1 h& z2 H* n; l
2 Y- c4 h$ E8 E) r  ]( u; o# H
* |, L$ N" a: X3 i1 g$ h
– 峰度:k u r t ( X ) = 略 kurt(X) = 略kurt(X)=略 (带入递推公式自行运算)# Y. I) L2 u. A1 ^3 r0 o

! q: |7 w, Y" F6 Q; _5 d8 a
. X5 q+ T, ^' m$ o) c# S5 L
函数        功能
4 H. [1 _" k$ V2 vdnbinom(x, size, prob, mu, log = FALSE)        概率密度# J6 y* S6 C9 _
pnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        累计密度4 z  C& a; g/ n  R# H7 ~
qnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        分位数" A; e1 h' h1 z3 M
rnbinom(n, size, prob, mu)        随机数
0 S7 V( `( |( g, e4 w  ~' d. c: t负二项分布的递推公式如下:6# L+ @8 Y$ N% r( j

& v' _6 P+ c* ]! {6 X  X" v- D$ ]9 ?! S

. W9 @4 V4 {9 x7 ~, X
' B/ k& y5 p: l2 o8 d

1 \, }2 [( b. b$ ^
- Z" [5 L- a( Q

9 a% c* R! A+ d3 G6 b0 I! v3 [! i! a2 _! y' p

- D5 t  A/ t* w( v+ ^3、帕斯卡分布' Y0 E1 h+ f$ {- W7 D6 v
X XX服从r , θ r,\thetar,θ的负二项分布,Y YY服从r , θ r,\thetar,θ的帕斯卡分布。有Y = X + r Y = X +rY=X+r。即:在同样的实验中,帕斯卡分布是成功r rr次后实验(成功+失败)的次数,负二项分布是成功r rr次后失败的次数。负二项分布的数字特征推到见博文1。故帕斯卡分布的数字特征可以由负二项分布推出。
0 X  W/ T* p4 a) l+ O& [  e在R语言中我们仍可以使用下面负二项分布的函数做适当调整生成帕斯卡分布。
1 ^( V+ M. J1 v1 `5 c注:在百度百科7中还有另一种说法是:
1 V& I& g! ]+ |9 ~
2 C7 {6 j& P4 G! H8 P' g
& w. I: a+ w) z' @
帕斯卡分布,负二项分布的正整数形式,描述第n次成功发生在第x次的概率。9 G1 u$ L4 I! f3 g

' T! C) m2 `/ K( L8 X" y, c
9 r2 d% n- T5 u/ R7 X
我们在课本中见的比较多的是负二项分布的整数形式,这时候课本会标注又称帕斯卡分布,类似于二项分布,负二项分布也可以推广到实数上去定义。大家感兴趣有的可以去自己找资料文献考察一下,这里就不过多的讨论其定义和数字特征的问题了。
8 \# Y& f) _5 s* ~1 a- S0 `: j* J' Z3 g" p. ^, X4 I) l
, A- r! `- k& ?/ _7 _- I- Y
函数        功能* \6 v7 R7 O+ W; R0 m
dnbinom(x, size, prob, mu, log = FALSE)        概率密度
1 k" s  S, {) o+ a9 Ypnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        累计密度
: J( S9 j$ N% o" P; Tqnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE)        分位数& m( G# E, Z6 ]0 N
rnbinom(n, size, prob, mu)        随机数& C. B) f  W* B8 H  F3 \
4、泊松分布% o9 `. b2 B$ r5 S
– 矩母函数:M ( t ) = e λ ( e t − 1 ) M(t) = e^{\lambda(e^t-1)}M(t)=e # b) P% _  a0 B
λ(e
; `* [: L* v' d: o, _# F- _3 At
" q; d  a: J2 Q. E1 B8 h! l −1)
  }1 O& }' o1 C; \7 P$ B- m0 ? # K* v: ?8 R& j- B7 q2 x

* T/ \. r5 C* q

) {: W, d* x$ @4 K3 a$ n* o– 偏度: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)=
* k$ |+ j7 O5 F: E; {6 L# J0 d9 u4 Q; E, |( ~) O
21 G/ S' a- J* \) Z3 P' y
+λ) / ?( P$ X' _3 y! `2 c
3/2% A1 S; O, P0 s) A4 S5 \5 q

5 U2 e1 I. d* y" x, m" Oλ 2 D5 |' q5 _8 t' N! p! V
3
4 \, X  q/ C; {% n$ @0 l +3λ
; w$ |' c, U7 n  ~9 x! J# p2
# V% _0 `9 Z+ O2 P9 O6 v* Z1 x9 F* l* W$ T
​       
7 b/ i8 \# H! ?" N9 t 9 X, w5 O- s) t( i4 Q, F) g

1 g5 G- {$ M; C$ V" l
( {  o. t) v) v* u+ y2 B; ?
– 峰度: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)=   E' h# `% E% d" ?# g. ^) G/ y
λ(λ+1)
: O- U7 _7 l) P/ I2" r6 Y. T# g! N0 B
$ }$ A+ m9 s; Q1 {6 F$ i
λ - Z3 u- O) A( }# y2 I; O) h+ f$ V
30 j, e+ `2 `' ^" O0 ?
+6λ 8 _0 Q% s; r7 q
2
  k+ P' ^! ^2 j) S% ^ +7λ+1
8 `! R) g, y* {​          K5 s. Q4 \- U3 A8 j
8 Y; H7 G3 e9 `5 @% i8 ?/ O+ r
. v  U+ L: s. ?3 w8 ^# k

- r2 o, R4 _- p8 A0 E* H函数        功能1 D1 R+ }! ?7 w2 g8 b' R' K# \
dpois(x, lambda, log = FALSE)        概率密度
- e( U3 G/ |( E/ B+ @$ dppois(q, lambda, lower.tail = TRUE, log.p = FALSE)        累计密度5 V: q( c; C# b3 I
qpois(p, lambda, lower.tail = TRUE, log.p = FALSE)        分位数7 p8 i& ]* P0 o$ b
rpois(n, lambda)        随机数
7 {, Q9 b& m$ s7 h, |中心矩的递推公式来自8:
9 ]" J1 L: U" ]# ?2 {8 e8 @  ]5 `- ~0 o% _! Z

) d& n7 [4 p! ~
: d9 t6 B, ]+ j/ e% j% E- f/ L

& e9 _: K0 R  }8 A/ [; J5、 参考链接
  A4 p( f) A* v( a* W% j  _https://blog.csdn.net/weixin_46111814/article/details/105243202 ↩︎ ↩︎
3 C' M4 u1 \/ d' N& P, @# }( a
$ B+ s: V/ K7 d! p* h
$ g' Z3 C, u  ?5 [4 P& D9 U) m" j6 I
https://blog.csdn.net/weixin_44602958/article/details/105261188 ↩︎
" j! ~# d$ I( z+ ^2 M4 Z$ T: a9 M+ _7 [3 Q8 D2 M* X' U7 N4 o% |7 X

, W$ ~. P3 |6 K  F# ~https://blog.csdn.net/STcyclone/article/details/84310450 ↩︎
, u: i3 _$ }& j; w" K& |
& q, y' ~) w1 Z6 G

" t) x4 p6 Q7 {  n( c, W; Qhttps://baike.baidu.com/item/%E5%81%8F%E5%BA%A6 ↩︎
  ~; f" A) L7 F# O" ?  _6 j8 `3 `" h$ m
6 B- W' ^* i) ^$ P
https://max.book118.com/html/2019/0412/6234220152002022.shtm ↩︎
# L; n* [: N2 x$ d
4 M/ A' r/ m4 t  c: ^4 y1 _

  v2 d# @1 F& A4 ]! C/ j朱成莲.关于负二项分布高阶矩的教学注记[J].高教学刊,2017,No.66,103-104+107. ↩︎
. |, B: }! f4 v9 r: u. y
+ i* h$ z) E# c! u! G- f9 V2 F

. m3 C# w+ L9 }/ Ahttps://baike.baidu.com/item/%E5%B8%95%E6%96%AF%E5%8D%A1%E5%88%86%E5%B8%83/1188907 ↩︎
* n/ q5 A' h  k% I# ^7 p8 V6 r3 q  k  O- l" [
3 r8 u  o7 {: t5 ]3 {! I
https://wenku.baidu.com/view/7f8328c10c22590102029d83.html ↩︎
; ]) m3 b5 a) h, v& j6 _& Y————————————————6 w0 T( k" [, v9 C
版权声明:本文为CSDN博主「统计学小王子」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
3 ?) k* A! V5 A# F原文链接:https://blog.csdn.net/weixin_46111814/article/details/115499487& t5 L+ J" Q/ j6 T$ ?7 G- G# O- l5 \% `% B4 w

5 `- ?( y* [: H4 e( G* U
+ v6 i1 v5 L& }* Q7 Z




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