+ `4 |( \ }$ W5 x, e7 M离散函数的数字特征及其R语言的应用 ' h2 y! B6 J9 Z0 S目录 3 b9 p2 _/ I& F* z6 G; T6 t" r1 v0引言0 M) r5 R: N4 z* Q5 H/ W
本文结构0 f1 X2 |. w- Z, C: f' S8 X
理论公式2 N3 B( w: J4 E* v4 B3 D
1、几何分布8 T2 ~# Y6 V- N
2、负二项分布 & P$ V; Q4 f' W+ M. T# T3、帕斯卡分布6 U% @( {/ f0 j* G3 @# k
4、泊松分布 # i, W5 ?5 t6 e+ I% O5、 参考链接! e9 k) h, X; ]7 _
0引言5 W! N1 U# |. F7 o$ O
本文结构 ; G% g& {# @/ L: n在文章统计学基础——负二项分布的数字特征1中介绍了负二项分布,在博客2中介绍了离散分布的数字特征。* I5 g1 r8 @: h+ x- X1 Y+ f
本文计算一些离散分布的:密度函数、分布函数、均值、方差、偏度、峰度、特征函数、矩母函数3 \; g/ z2 ]# F% p5 `* V
/ _- L5 S3 x% i9 Z: ~
& e' E+ j5 [1 e0 m: N理论公式 ! Z6 E- q, _5 z# G为了方便先给出计算公式: ) ^% }! Q/ \& q0 }. l$ U * ~& `8 n- @9 g4 i+ v) ~% V. Z - U1 [/ I( e) {" G- Q6 }: v5 A– 密度函数:f ( x ) f(x)f(x) , o0 Q) }8 A2 h9 |- m! `9 u" Z; I/ y
2 d" x& B4 e, k& h) B9 N– 分布函数:F ( x ) = ∫ − ∞ x f ( x ) d x F(x) = \int_{- \infty }^x f(x)dxF(x)=∫ + e; p' {4 `. Z$ V; \) ?
−∞ 1 ]3 g9 r& m! j. J8 Dx % P, w1 z8 ]9 P & u9 T( K K9 C+ o- T) m f(x)dx 8 R5 ]! v- W- P; u' b 1 m% W$ V# n1 k* \1 }7 Y7 h7 V. ]# Y7 `1 h& S+ c4 O
– 期望:E ( X ) = k 1 E(X) = k_{1}E(X)=k 0 t1 B; X& |4 h! I1 " A3 j% s# A% e9 r O 8 K, |2 v+ p/ a. _7 t
8 o" W0 L. J+ A+ N& p/ J0 r; T. ~% @& X2 n+ T
( F+ c! t* _ f" m
– 方差:D ( X ) = k 2 − k 1 2 D(X) = k_{2}-k_{1}^2D(X)=k & S$ m7 m4 Q# R2 " N4 `9 u. a3 m: ^/ D / d$ \6 l- \: F8 k1 P# v −k & i7 ^* g& U0 G12 R! j* ^/ [) y% u. ?
2) Z4 `9 Z( F; A) s) \! z
9 V5 B) q: I0 M : M% l& C9 k& o
1 V/ S* N. I. W: l) [1 z9 j, N
9 A1 ?- c" B9 k/ @– 特征函数:φ ( t ) = E ( e i t X ) \varphi(t) = E(e^{itX})φ(t)=E(e ( F& J' H. y+ g
itX L! ?/ f0 b; n! D" V+ @& T
)* ?; X1 C% v2 C# t6 ^5 F! \
4 o. F4 r- f: R, R1 L l
) l0 Y: _% N6 \7 a+ r* L8 X– 矩母函数:M ( t ) = E ( e t X ) M(t) = E(e^{tX})M(t)=E(e 9 y1 P: O8 t& b/ e- m" {tX$ F' L q% I! Z
) % C' x) h* V( e7 r8 P* @) N4 U4 z2 |. {! o* w
0 q: |: _/ t z+ T V0 q( M* F
– 中心矩的关系:E ( X k ) = i − k φ ( k ) ( 0 ) = M ( k ) ( 0 ) E(X^k) = i^{-k}\varphi^{(k)}(0) = M^{(k)}(0)E(X % C: z" N) u$ nk, P' r/ P) G- E6 y9 t9 b6 V- e
)=i - O& i- g; V2 n8 B; r−k# @+ W) L6 M8 h( `
φ # n" Y% q' S2 h( B* T# K% L
(k) % \4 m7 N- i% ^ p" C3 e (0)=M # X" V+ e( Q% x$ K. Y* @7 o) B
(k) c E3 W; d3 w+ H: g0 b (0)2 ^* m" \: u. s; r+ ~' |7 \/ q
( x+ Q' a$ o* ~4 n( ?
9 Y+ E* M" t) e– 偏度:S k e w ( X ) = k 3 k 2 3 / 2 Skew(X) = \frac{k_{3}}{k_{2}^{3/2}}Skew(X)= % F J# d! p x' X1 B$ dk # ~) _/ r6 i8 p' ]* s
24 I. C) i, |9 v
3/2 , D/ ]4 Y3 l: l1 W* X8 D. z 4 }, j& {" @" G5 I) i ^9 ]. d: j \1 M& c' y1 F* {7 p
k 2 g" x. {( d. O. j4 u" L5 E! Y3 * u/ f9 V* f+ l6 t 1 {, e% d( D5 ?! u* ^& V! v: e8 y
& L% O# d$ J. X& c# k 4 z2 G, K: e e% G% q: q: e. H . s8 l3 |8 I# i% [" P9 [– 矩母函数:M ( t ) = p e i t 1 − ( 1 − p ) e i t M(t) = \frac{pe^{it}}{1-(1-p)e^{it}}M(t)= . m; T" s" K R$ v- h" P, G
1−(1−p)e 3 F+ a8 F1 B, V7 N( ~9 k
it ! Q: ]5 g& j0 x. e6 p# Y( ^ 1 |5 t! {3 @" `; R, K4 T) |
pe # |% e4 I% _. p+ q
it4 F/ C) J7 G; x' \8 \/ Z
2 N5 Q* P* b- {# I; h# O& v8 d! ` & S n" {# d8 ^5 b, p8 a
5 c( B6 }- S3 h9 Z# Z, r4 z. H
1 S& X' q) f' l3 J. w$ \2 H
! p- o( K1 p3 y* [2 u4 {
– 偏度:S k e w ( X ) = 2 ( 1 − p ) 1 / 2 Skew(X) = 2(1-p)^{1/2}Skew(X)=2(1−p) ( ?" C* ?( G$ L a3 e1 F4 o
1/2 % Q) ?$ ^% X/ W% o1 j5 M6 p. C$ q4 o 8 ?: O* x8 s) |. o1 x6 Q$ H
: s" Q' p# E; ~, R
9 k, B; T1 ]/ z h0 |
– 峰度:k u r t ( X ) = 9 − 6 p kurt(X) = 9-6pkurt(X)=9−6p . b; H9 g9 ?! ~: `; I4 X0 k3 h' W/ I4 u0 b
7 W: B3 z$ B9 u
函数 功能 6 A$ \! |, [8 q! [1 y, pdgeom(x, prob, log = FALSE) 概率密度8 y r( D1 J/ C+ V4 _/ _' a
pgeom(q, prob, lower.tail = TRUE, log.p = FALSE) 累计密度 $ O. E+ d4 J. H8 Jqgeom(p, prob, lower.tail = TRUE, log.p = FALSE) 分位数 $ d5 {9 O( f9 T9 V' brgeom(n, prob) 随机数5 J" Q) ?6 R6 ]4 r6 H
几何分布的各中心距来自5: - _1 L" b. [& X9 d4 ?( j* \6 x : } {9 C" Q5 g4 w3 G* e; W7 @1 R h; t9 q' Y# z" ], {
5 U0 W* D7 T3 v& d! W9 j 2 }- I$ b$ T# L6 ?2、负二项分布6 T7 R* r* C! N
– 矩母函数:M ( t ) = ( 1 − p ) r ( 1 − p e t ) − r M(t) = (1-p)^r(1-pe^t)^{-r}M(t)=(1−p) 9 [* M. x6 W e: G7 @& L
r4 j8 z+ n8 x+ ~1 c+ x
(1−pe " a* [3 a( i" |% m& L: ]t ' ?; B# m9 Y) v7 }% a ) 7 B: T& L2 x) }( a& b4 O−r * T4 v" [7 Q4 g$ r. C! g$ k + l. N- O# W6 S' Q2 ]/ a7 b0 z# |% W
2 Z8 p7 k4 D9 B* ]8 _5 i' \– 偏度: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)= 5 m. ?+ e( T2 R" g) W5 R
(n 0 t' t M0 {' P% J: N. z
2+ y( f/ _, \5 j/ h9 o
+n(1−p)) 0 X9 A9 v$ Z# \7 _4 U8 W* W3/2, R2 d: E$ l) ^# e
/ l9 ` D9 C) T6 i! ]) g3 Qn $ j# |6 l1 E. g1 r& n( L1 e- `3' l+ e0 w9 N/ P: o
+3n 0 ]1 ^# r- N+ y- S% m/ g- I3 e( a
2 A# m! \/ P3 }2 W* H9 c) k' W7 e
+2n−(3n 4 q2 q' ], W4 ]6 }, E
2$ n& v% y% t0 _. U
+3n)p+np i8 E2 |# i7 C" A* q# W9 F
2 8 G; X g1 W7 L6 n3 I6 o 1 g/ k2 c/ e5 ^4 R/ z2 ] 8 ~; N `8 w* }2 n- a4 O) p
$ Y6 `" i$ R: w n" d f# M5 M" t+ k; Y
2 t( @' f% m$ q, V& Q8 e" P
– 峰度:k u r t ( X ) = 略 kurt(X) = 略kurt(X)=略 (带入递推公式自行运算) 9 b( X: U, G3 l* T {, p* }, Y# ^8 A/ V4 P# V$ x' `5 A9 x