% m, k N% l) W4 p, x( [离散函数的数字特征及其R语言的应用5 r1 ^2 e" {# ?5 R- L r) [. S4 Z6 p
目录 3 I& J( ~! P- `1 u0引言 , P. k; ]6 y* l6 M1 F F0 J本文结构6 X, s; I" D8 T' P- ?* }/ p6 d
理论公式8 ?5 v* S8 S0 w, v, J/ z' ~
1、几何分布 0 R+ G. B) O0 B6 ]0 a2、负二项分布; l+ S6 p$ `- G% v# x# q
3、帕斯卡分布" {* e) P: I; x
4、泊松分布" }# X9 x$ H, F% e: y
5、 参考链接 H3 _' [8 }1 K K$ a+ y
0引言( ^. [5 w8 ^& t" F8 D
本文结构5 ^( B z( s Q3 N0 p
在文章统计学基础——负二项分布的数字特征1中介绍了负二项分布,在博客2中介绍了离散分布的数字特征。- @$ o! A% l5 D* C" ~: ^
本文计算一些离散分布的:密度函数、分布函数、均值、方差、偏度、峰度、特征函数、矩母函数 ) W S8 t. }% O4 v4 M1 E" _ . Z* V) J4 V( q5 J. p2 |1 y5 M! ^. E- c
理论公式( D/ Q- p: m; u5 J
为了方便先给出计算公式: [! Z$ X% z5 q- Z! n) R
! v; c. r5 |" k: a6 a
2 w* a$ m! m' L( p– 密度函数:f ( x ) f(x)f(x)& n* A% a- m' Y" C3 e
0 @1 Y: _" l. x: \$ ] & w% d6 Q, k; u b+ e; k– 分布函数:F ( x ) = ∫ − ∞ x f ( x ) d x F(x) = \int_{- \infty }^x f(x)dxF(x)=∫ & z" S$ y8 Q2 t# z) j−∞, V. j$ p( t- ^) V
x + p* \& u/ A0 b4 r4 I; j # R8 E! ?% W6 R' r3 K
f(x)dx / `6 f) B7 m5 X8 s8 ]8 @$ B6 O! G" h
8 p: r1 s0 W' A# u4 Z, m( K
– 期望:E ( X ) = k 1 E(X) = k_{1}E(X)=k ( w; u7 h: J# I( q9 T8 D1 . i! O: d0 R8 g- @& |) y. ~ % m+ P9 m) n4 N) ?" u! f! `9 ? ; j9 v" `1 \% b/ Q5 k% T$ s% v. O1 p" B/ j8 f: I
5 o; l/ {9 Z0 ?) P" c0 u
– 方差:D ( X ) = k 2 − k 1 2 D(X) = k_{2}-k_{1}^2D(X)=k % O! S4 V' V2 ~ i* T. H2 % } S+ x9 T* q/ ?6 A6 E : j; [* f0 K# y+ j
−k & o* I% c3 c/ H1 E$ u) }1 2 B5 m& k& F3 k( _$ Z2/ \& Q7 P3 }, L8 c/ @& Y, l
; I$ E; [* Z3 v4 u% X9 [
9 I# b9 p2 ~9 \
. l2 |9 E" }2 u1 D; ^, m- n, X/ z J' s
– 特征函数:φ ( t ) = E ( e i t X ) \varphi(t) = E(e^{itX})φ(t)=E(e * V+ N* j6 a6 y$ r5 [itX 6 Y+ K0 i2 L- a7 H) x* d# W ). Y' J Q( u. d" c* N
p+ N( L3 A. h( X$ b1 F; ^8 A- w* r$ B4 M, y8 }
– 矩母函数:M ( t ) = E ( e t X ) M(t) = E(e^{tX})M(t)=E(e 2 B/ Y u2 t4 A8 g. C
tX - U& T8 {& u) g2 d2 o$ V+ D! l+ N ) & N" d7 _9 I4 Z6 ]7 r+ p# u0 \" B. `" Z
3 @! N ]: ?& h4 y* q– 中心矩的关系:E ( X k ) = i − k φ ( k ) ( 0 ) = M ( k ) ( 0 ) E(X^k) = i^{-k}\varphi^{(k)}(0) = M^{(k)}(0)E(X + J# D/ J0 v9 E4 J
k: Z' |% F" F7 k- G7 G
)=i . ~, w# Y w9 ^$ _$ h
−k" W8 ~8 {" [) }( u) R) \+ \7 C
φ : d C4 t; A9 l( I! _# g N
(k)+ x6 |/ x2 b6 ]/ K1 I% L
(0)=M 1 m: X8 J. ^- ^9 ?7 Z
(k)5 y' e7 i! ~- M: S) @& D# e
(0)2 u% y g3 h- v% B- w
( Q/ y K) r% S7 ?" J- d
6 _' }8 x5 Y3 A2 b# L– 偏度:S k e w ( X ) = k 3 k 2 3 / 2 Skew(X) = \frac{k_{3}}{k_{2}^{3/2}}Skew(X)= 5 a- k5 t( F' U* r9 Xk " V" ^5 A4 o4 a' I) o2; n8 ]2 p, m1 F
3/23 v& o: q8 Z7 o$ e
( }3 W/ B E1 _% C - e9 T! w1 R$ W7 z1 f- kk % t# r: {9 k! H. n0 b5 {7 ^# Z
3 w3 M s8 P% A / H0 `7 Y5 x, b; a# ]
! x: B# p: h, i7 D: _/ q9 J 9 L' l0 {; U3 o3 N
3 , o" Y' h8 D) @4 ?7 y0 q1 J3 m ( x" ~( g0 Z8 Q7 S' b1 T4 m 4 k K+ [! V6 q) K4 q– 峰度:k u r t ( X ) = k 4 k 2 2 kurt(X) = \frac{k_{4}}{k_{2}^{2}}kurt(X)= $ Y5 h8 h4 U2 P& e
k . x8 E s6 [0 z7 E0 w# j& }
2( t. `+ P2 M& H7 G: F/ ]
2 ; n) q% r3 g0 i$ \+ H0 Q3 t! G . ^4 k& Y/ \0 C8 B4 m; ? * a" ~. s4 @! n( F5 ~9 X- ]* T
k ; x6 F8 x, o1 n3 d& K1 X; h5 v6 \4 ) c+ |" U9 F& y; ]1 f2 M) T 4 m; M' E& A4 A3 ?
0 ?: w+ B \' f( h- G3 p & M b: ]4 I5 l7 H% M! {- R2 w 4 + [+ Y7 k* v R0 k9 m % e, L8 L U) b% `& W3 J9 \9 b8 o0 H0 [/ Y
1、几何分布$ O! m; S% `0 T# |" K3 S6 K
– 密度函数:f ( x ) = ( 1 − p ) ( x − 1 ) p , f(x) = (1-p)^{(x-1)}p,f(x)=(1−p) * Z1 m/ S4 H1 O) ]% B
(x−1) ) M* q3 r5 N- d7 ] p, x = 1 , 2 , 3 , . . . . . . x = 1,2,3, ... ...x=1,2,3,......# ]9 _* ~! L5 R6 |- Q# X
, b$ ?; Q+ Z) U" z2 K+ J( [5 \! @" ?3 k+ t
– 分布函数:F ( x ) = ∑ k = 1 x f ( k ) = 1 − ( 1 − p ) x F(x) = \sum_{k=1}^x f(k) = 1 - (1-p)^xF(x)=∑ $ k" J9 W6 | P1 f" g; R# X! N
k=1 # y; {! I( J& k- vx $ k' E, T" B9 k4 h3 g: z J/ N5 A7 N4 B ) `/ M5 J9 h3 B, E! g' X- M+ M" d
f(k)=1−(1−p) 2 d) G& t# o- v, O
x8 f6 k) n4 A8 b' B: J
9 L8 R# P$ B5 Q! U% ]* S , |! q/ Y5 S; q# J* c, _ A1 U$ ^" q
– 期望:E ( X ) = ∑ k = 1 x k f ( k ) = 1 p E(X) = \sum_{k=1}^x kf(k) = \frac{1}{p}E(X)=∑ ' V! i" B& x% P- p" Kk=1 2 N8 o! H- \2 t; W$ @* q" ^( m! Jx 9 g- }" x. Y3 m- h& L; w+ H 5 D/ p8 T- H& j4 t k& t kf(k)= 3 I* B6 P" U/ x) D( xp) C6 I( I. G4 K# O9 x
1, `, g( C3 Z/ G# M
8 L1 Q; \4 j0 C D 1 `, ` Y# `: r
`8 H- x- z4 z- W! T& O& D9 I 8 G- S$ X" |/ _6 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)=∑ : f' W& m! a$ T& q7 K( b* s9 H& jk=1 ; T' n0 u v& W& R) @7 Ux6 z1 h9 s/ p# J W
$ t+ ]1 i6 q- }* F2 u* ? k " p/ e; m3 Y8 _
22 f( n2 W* _7 |/ m; s
f(k)−E(X) , b% y/ S. w; [28 h. A/ U5 r" G. L: ~* Z: V
= 6 N; [, \5 X; N* ?' X% X' Q9 r* @p 1 \9 S5 ^' A8 Z' m# p
2 , S. A2 [! l& L9 [% q5 c0 g( x; @ 0 Y" l: i f7 ~9 ?( B2 D
1−p- H* p- w3 M0 S
- S$ q( T0 v. K! h # Q+ B* j# n4 j+ g/ Y3 l/ Q! W- ~ - f$ ~- c& c# L4 A5 d " D) @1 m1 Q# y' G f- T" q– 矩母函数:M ( t ) = p e i t 1 − ( 1 − p ) e i t M(t) = \frac{pe^{it}}{1-(1-p)e^{it}}M(t)= / c) j1 ^ N- V- L$ }1−(1−p)e : ^1 d# d! d1 P. W' h4 z) ]' z: A- Uit 2 J- ^/ p6 N5 s" }7 L & M( n; O7 `5 h! t7 l4 z8 v
pe 6 F/ } x) z) l% Q
it; P( A$ }) T) p
& n* _4 I, @! t0 ]/ p2 x
/ x/ B* X1 x$ F- I% o* r
" \/ A: V2 M( v9 H
7 @8 a( `! x! N; }- p9 [
, K t9 ]* r9 D! S& }( b
– 偏度:S k e w ( X ) = 2 ( 1 − p ) 1 / 2 Skew(X) = 2(1-p)^{1/2}Skew(X)=2(1−p) / p+ g! @5 W( g1 L7 V) c O' Q# n
1/2 ' b( _+ ^, ^4 }& \9 G 0 f3 b: Q& g* J
* Z4 @) B2 L- L2 e % A" G! e$ U6 E- G5 s' X6 A* o; z( _– 峰度:k u r t ( X ) = 9 − 6 p kurt(X) = 9-6pkurt(X)=9−6p 9 w* v+ U C* y- \7 Y; U5 \; i! Y- M$ w* ^( e3 |# Z8 F
& e5 @+ V# H; G8 n& o. n
函数 功能; M' g9 t e- H
dgeom(x, prob, log = FALSE) 概率密度2 t1 \. u3 M8 b/ D/ |, ^( w, A
pgeom(q, prob, lower.tail = TRUE, log.p = FALSE) 累计密度' a* J; [, P3 `, c
qgeom(p, prob, lower.tail = TRUE, log.p = FALSE) 分位数 ; h: `. Z5 s5 i- f+ U2 Z7 z" X8 i1 s* \rgeom(n, prob) 随机数 - e* Y8 N4 L+ G几何分布的各中心距来自5: ]; Z$ I! A6 i9 }, A. m
: i' @( c/ U7 _7 a* k
" p, Z G0 N0 m2 W* _8 ^$ z# \7 W. f
9 Y- [" V8 b. I S) ?4 n
2 H4 b6 z$ u& T( w+ J( k
2、负二项分布 ( t6 d& [% X. R6 H4 S- r– 矩母函数:M ( t ) = ( 1 − p ) r ( 1 − p e t ) − r M(t) = (1-p)^r(1-pe^t)^{-r}M(t)=(1−p) 2 j" o" l/ a+ }2 Z0 F% `% |r ) N0 ]1 m- E+ c (1−pe " U: ~) h6 ?: K" B- d% ^
t! }# ]& R: Z1 l* i' d" V3 D
) ( ]/ j. P; A. a, g. o. M−r( f2 s8 a$ ?0 w2 ?' R1 y
" F2 m( f4 ]5 _+ C' V Q, ]
! c2 P( I, u% j ; T0 Q2 h! I/ c+ {; A+ ?" 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)= , z2 D" \: p: b/ G' ^7 @: M(n 7 p q8 o( M9 Y+ X2 % d h* [( S8 E +n(1−p)) & s i( m r- `. S4 |4 N
3/2 + C. v% b: w+ ? ! }+ H7 M9 {8 H4 D( k3 H5 o4 Dn - I7 l! o/ Z( m% {/ L3 r32 s( x6 y$ h2 K1 _' `1 [2 `
+3n 7 P: B2 ? f5 P9 E8 T) L' M1 _2 , k' |9 j" L* ~9 s +2n−(3n # A5 z4 `0 j' ~2 u: S l2 f6 X2% P. m: I. `9 T' K
+3n)p+np / i- \5 N1 ]1 y4 X2) v& d% g: C: g0 u1 _5 l, u
8 S9 b& D/ T1 ^# z; o$ M
4 V* h7 |$ w* q
# T# a0 W5 x% x5 d+ m* S% g/ q
5 t# W' Z5 Z$ Q2 m6 N" }' }, J0 Y4 _+ t* e; \% @2 M% ~
– 峰度:k u r t ( X ) = 略 kurt(X) = 略kurt(X)=略 (带入递推公式自行运算)8 x3 i. x" K- v* w