6 t z8 z# |3 O 离散函数的数字特征及其R语言的应用5 b/ c# W* g/ {0 k
目录 " v7 W2 ^0 x; n7 C: d+ ~+ c0引言 ' ~1 B( [5 u4 u5 h5 _: A5 k本文结构6 i" C' O6 a. Z/ U
理论公式 - y9 N% S, \7 t+ c/ n1、几何分布; C, k4 ~! f+ h" L
2、负二项分布 : [! p2 }! R( i. d' v2 @3、帕斯卡分布 C' Y4 _* h( K! {4、泊松分布3 f% _/ D. z: h8 q
5、 参考链接 4 W" u( v2 V) u& u6 X$ o6 `" G! N% A0引言! p, h5 H# q( C4 |: K
本文结构; b, S9 {) D7 [9 Q2 j
在文章统计学基础——负二项分布的数字特征1中介绍了负二项分布,在博客2中介绍了离散分布的数字特征。) s4 F/ M& a& }$ d& R3 ?8 b
本文计算一些离散分布的:密度函数、分布函数、均值、方差、偏度、峰度、特征函数、矩母函数 3 D9 a$ ~- r7 {1 K* e) j " |" y2 ]4 K# J5 ^$ y' L 5 g$ ^+ K( I2 O: k2 w! Q1 u/ Z理论公式4 J1 N. K b9 \$ J, c* E9 g
为了方便先给出计算公式:8 w* }, d" V* q5 B
~3 v; P1 j2 V1 }$ U
1 Q" j+ y3 Q( V" M0 a4 L, J
– 密度函数:f ( x ) f(x)f(x) 6 q. I ?' ~; C$ ~8 K+ }- R' B# n- b/ A
1 f- o9 ?" h" ^, ~9 G O– 分布函数:F ( x ) = ∫ − ∞ x f ( x ) d x F(x) = \int_{- \infty }^x f(x)dxF(x)=∫ . A; C) D- D. h( l. Z" a# d
−∞ * z( d+ v5 ]4 `2 x" Q3 jx. Y% I: I0 ~" | X: ]2 u3 }. W9 W. ?
! s& B6 o* G0 X+ V8 u1 | f(x)dx 0 O! ^8 c2 a k) E2 o 9 B* t) r, ~* a+ n; f- T% U( V8 C% Z" x( `$ J
– 期望:E ( X ) = k 1 E(X) = k_{1}E(X)=k " V' D1 }, [3 N' B5 G w- v
1 9 o- n8 N& c8 d/ M8 s1 z: q7 h$ K 4 L( ~+ s# B; b8 ? C, D
4 V0 X8 |' K' B% B( T5 F5 [. ?+ M* c6 X( {0 [8 c
o) v3 P3 a R8 m
– 方差:D ( X ) = k 2 − k 1 2 D(X) = k_{2}-k_{1}^2D(X)=k 2 t8 m3 @ }9 h( a- l2 M- N# z2 " g% M5 z% ], q$ Y9 G 1 @$ u' h; u }
−k 9 E6 i. J; J2 ?6 I. b7 J" g' S# ~1# @6 J5 @6 L5 j3 ^1 b7 K* k
2 % {8 a( n! t8 ?2 L P6 s 3 b% L5 g8 w: `/ S$ F+ k % |' \' I- n- Z- O6 g& r! {- U4 X4 N0 p7 y u* i6 L T
4 J% S2 N) d4 |1 `/ r+ h– 特征函数:φ ( t ) = E ( e i t X ) \varphi(t) = E(e^{itX})φ(t)=E(e ( I7 f6 `# {: D' b+ R, PitX 2 O. x3 O/ ^: K5 u1 R( y- K ) ) z. D0 B1 {& |4 y/ S4 Z* N l; i2 m4 W
9 R' M. c4 M6 S9 \, o- o: x. ?% t– 矩母函数:M ( t ) = E ( e t X ) M(t) = E(e^{tX})M(t)=E(e 5 T5 `& @$ O& h/ d" @
tX. w4 U& X5 w" l5 f5 F9 m0 |
)' o v3 z5 G8 Z ?# \
( `* K l3 V' K/ f8 V& C! q; j* I; _& u7 i$ f" V
– 中心矩的关系:E ( X k ) = i − k φ ( k ) ( 0 ) = M ( k ) ( 0 ) E(X^k) = i^{-k}\varphi^{(k)}(0) = M^{(k)}(0)E(X / H& h2 B5 {# [ Y# ]# h: w5 Q" H6 g
k - e. Z# l4 d( [4 i+ [. _ )=i + C. D" |' t% k- P4 l−k& G: h) Q* N; |0 b- U! u* h+ w
φ 3 J+ h& b4 j9 x
(k) ) g( r8 V, i- a* u' t/ \% s (0)=M 8 N' w2 |! h1 S; C2 I(k) 8 u3 S% g5 B5 V3 v" I! u G (0) & q8 J2 Q& z- L2 ] n! h3 u1 R
+ A0 N1 |% T+ d8 H" k/ I) `– 偏度:S k e w ( X ) = k 3 k 2 3 / 2 Skew(X) = \frac{k_{3}}{k_{2}^{3/2}}Skew(X)= 5 l4 s( {2 d+ ]1 c( b/ M' Z" L& P& @
k ) I5 F9 c# b6 w- ^6 z2 0 a" b; y/ A" _7 Z3/2* v, u* q# U" B+ J$ V! f( W/ A3 _
" I, _6 U1 ?: e! k2 O- V! V
- E' K7 u- K" P0 b) L
k ! o/ M: y* w6 u, E
3* \; E# ^* C; \1 E5 A
) h4 \+ m$ T* ?7 |& T) O & K! k/ p7 l# g- J
E, ^. L u: X
3 / i, b5 F% ^2 Y/ j 7 h1 ^8 R7 j0 b9 E9 V + p- d. ^: ^- R; Z; g" U- N) \6 ^– 峰度:k u r t ( X ) = k 4 k 2 2 kurt(X) = \frac{k_{4}}{k_{2}^{2}}kurt(X)= 6 K$ k9 t% S" y$ ~, q2 t% a( ?k 8 }3 d7 }8 a+ R, y7 I: d
2 # Q( ?: q7 O, K0 n0 T2 p T2 G2( o3 N- Z. k3 s a
- B- ?# I. X7 n9 }) `) @* \4 A5 |$ } % j4 k5 A& K2 S4 Q/ Q8 ck ; P# {& I: x# u, l4 D. e# D4 * v; ?* b( e `" k. S * n/ z0 [" L% u- W% G
! V/ h" p' `4 J6 J/ j. G+ y
& `1 Z5 K4 a; y* S2 R
4 4 n! l( r5 h3 o& u+ Q/ h4 Z" {( H# r) p, b, [ X! Z4 B0 H
( I1 q% _, l* ~$ I1、几何分布6 ~: z3 _- p4 O/ V) ~
– 密度函数:f ( x ) = ( 1 − p ) ( x − 1 ) p , f(x) = (1-p)^{(x-1)}p,f(x)=(1−p) , b4 `+ v* R" F, P3 b" O7 B(x−1) & e5 l. _/ ~9 ? p, x = 1 , 2 , 3 , . . . . . . x = 1,2,3, ... ...x=1,2,3,......9 N2 B. b! {' Q! r( Q
3 J6 w# Q; f' H5 i" n ! c9 L1 b0 \9 \; Y' P– 分布函数:F ( x ) = ∑ k = 1 x f ( k ) = 1 − ( 1 − p ) x F(x) = \sum_{k=1}^x f(k) = 1 - (1-p)^xF(x)=∑ 9 S6 z' X2 u. p/ u5 \, M
k=1! j( ^% A) m1 ]
x ) `7 E: y5 A8 e" \$ T + J3 G" ^ I+ A2 r2 _+ h/ R! \" v+ A f(k)=1−(1−p) ; c- C, y- |8 ]+ n8 v0 m* jx 9 Y V- B3 X: f# [6 q / c, J. T& U2 }. ]+ p/ k" W* n
1 ^7 N" A& }* h8 u+ q2 d0 Y! l1 C6 R1 D. J
– 期望:E ( X ) = ∑ k = 1 x k f ( k ) = 1 p E(X) = \sum_{k=1}^x kf(k) = \frac{1}{p}E(X)=∑ % Z8 c6 b9 _ Xk=1! c% F# n6 g: b2 j; w
x . L4 q9 ^! U. g; |: G : [* ~* \+ f/ k. I* t kf(k)= . r0 _6 r! ?( J, z
p & Y7 A; K8 x m+ ?# r9 W12 W5 T: q3 n; N! ~. B4 D5 p0 F
9 F" {0 Z L! C, [ : N/ |& C* a% R' G" J# e# n: T
7 J1 U' B; Q# U( ?5 F1 G! D/ p. M4 }, a
– 方差: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)=∑ ) h; N1 e( W- q' P
k=1 ) X) m+ ^' D5 ]x / }. X8 u( p9 W" w$ a f( v7 a) E; P5 C ! J+ `1 A2 k8 q$ [9 j& l% h k 9 U! p9 n) v* u5 L3 J2 ?2" n2 e5 b4 {6 \8 y
f(k)−E(X) & I' m4 R9 R' N7 J
28 [1 k6 s N5 |1 ^3 g3 D
= ) A) Z& F w# |
p ; g! J* w- V8 f
2 * v4 d5 S* {# U- ~+ L1 H $ w+ h7 d) _. }0 Z, j; K# w- @9 _
1−p7 P; P* q+ r& J3 V0 ^
6 @1 M" F" i7 u$ A& M 3 f7 M/ N& {! t; A+ P' f8 s ( r Y. k! z5 h V# Y( j + p p+ {: y: m0 `: l6 u– 矩母函数: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 L. {( ]$ D- T# v3 Y6 Y
1−(1−p)e - Q& `5 `# o5 J$ B5 Q6 k/ l
it ! L! E8 h/ F' C& U4 f8 K4 G % S$ I5 b- B; ]" h9 W4 `" i+ f; _
pe 7 H$ |0 n2 n6 G
it+ |* c, ~/ G- q! }# b
8 R% l" E. S' b' V 1 y3 B1 {" A& V$ D; Q: t# o
* e" W- D* t- F8 a
. e8 s% S% t+ M$ | 3 b4 s Z9 o6 P$ z/ W7 X' H* ~0 I– 偏度:S k e w ( X ) = 2 ( 1 − p ) 1 / 2 Skew(X) = 2(1-p)^{1/2}Skew(X)=2(1−p) ( l6 l5 M* c, F$ |! R! M* S
1/2, m( t: n2 N# m
; `' H3 E5 Z/ |7 g( l . z6 Y$ h) j0 s5 P8 w , q/ A* M& H8 _5 F/ G5 f% [2 T– 峰度:k u r t ( X ) = 9 − 6 p kurt(X) = 9-6pkurt(X)=9−6p g( T/ N1 {# |+ v% H. B. m7 r 2 W$ B/ w' S) n: t ; J7 w6 p0 h% {* D0 q3 w: i% |函数 功能 + o1 n1 l4 x, w) z$ ?6 T; ~dgeom(x, prob, log = FALSE) 概率密度 / E/ H* ~3 v' u7 Upgeom(q, prob, lower.tail = TRUE, log.p = FALSE) 累计密度7 P6 i7 r( F5 d w; n
qgeom(p, prob, lower.tail = TRUE, log.p = FALSE) 分位数 ! D0 c) l- |% i0 q4 Trgeom(n, prob) 随机数 ! ~& n. f' k/ g+ Z( O几何分布的各中心距来自5: ' c2 d; c6 j& X9 n5 _$ i1 \' T# y- u, h F& O6 ~% ^$ U
g' L$ b# b9 E2 N# C5 k
7 ]5 R) m9 V: M% |3 [
3 {- \$ c) U/ b
2、负二项分布 ; J: j: M8 e8 J& X* y) M% z% {7 v– 矩母函数:M ( t ) = ( 1 − p ) r ( 1 − p e t ) − r M(t) = (1-p)^r(1-pe^t)^{-r}M(t)=(1−p) ! ]) H8 w3 B+ D( {6 T0 ~5 W$ xr, [. d. L. F7 b$ D+ Z
(1−pe 8 ? k) Z# U5 k
t 7 u; Y: H8 |# Q7 M2 g* s ) - l) i( V" }2 a" g
−r r/ u; _( n. K% f) t ; G, K8 V7 j6 E3 u- S# k, N6 P1 ~4 Z! q' k2 K- B' D. L4 J+ [
; n1 b, ?7 t0 k$ ^- P7 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)= 8 Y7 U- d1 `# a1 L% J/ F1 K. p8 [(n $ @- }/ o7 ^7 w1 I& j( ?5 ]2& i6 c) l8 o; X2 x
+n(1−p)) 8 W h) E' ^4 n. [' M# h- d3/2 8 c: _( \6 F1 j% R' L& Q % d. t7 ^; }6 v" u8 }* s/ s8 k
n * Y4 N% ]# H& T) Y( [
3 ( {+ @0 n9 @$ B +3n ! E1 c* A B* |" s
21 A6 C$ R6 g) o) u
+2n−(3n # M6 y7 J) c5 c' }/ U: k2 ' q" g3 k7 ` K$ {" @% K# x +3n)p+np . h; Y! ]- U6 E- t0 C2- q' x' w& X4 H
* ~. D9 ~+ J V- K v8 _
/ y+ q- w5 U: F9 T3 y$ b ~( p8 s6 S
( J+ z0 c9 Y( u$ m- s. w; {+ _ . K& j9 s7 {3 a, {6 h' M+ n+ i+ V, {- o8 g% |! g* \ c' }* z& `2 T
– 峰度:k u r t ( X ) = 略 kurt(X) = 略kurt(X)=略 (带入递推公式自行运算) & a; j% u- Q+ b1 I) U% T( @2 @. I! v1 k& q8 W4 E o# c