- 在线时间
- 1630 小时
- 最后登录
- 2024-1-29
- 注册时间
- 2017-5-16
- 听众数
- 82
- 收听数
- 1
- 能力
- 120 分
- 体力
- 565711 点
- 威望
- 12 点
- 阅读权限
- 255
- 积分
- 174936
- 相册
- 1
- 日志
- 0
- 记录
- 0
- 帖子
- 5313
- 主题
- 5273
- 精华
- 3
- 分享
- 0
- 好友
- 163
TA的每日心情 | 开心 2021-8-11 17:59 |
|---|
签到天数: 17 天 [LV.4]偶尔看看III 网络挑战赛参赛者 网络挑战赛参赛者 - 自我介绍
- 本人女,毕业于内蒙古科技大学,担任文职专业,毕业专业英语。
 群组: 2018美赛大象算法课程 群组: 2018美赛护航培训课程 群组: 2019年 数学中国站长建 群组: 2019年数据分析师课程 群组: 2018年大象老师国赛优 |
, B" S# T# x& a7 N+ p离散函数的数字特征及其R语言的应用8 p+ @3 O, L6 ^$ P u
目录$ w3 r6 T2 b5 q! ^
0引言
4 C3 g- M* o/ R8 ^7 b! x, \本文结构( k t/ a9 }& t/ [) e5 L+ B& F
理论公式
/ n. I3 `! ? |$ h1 e1、几何分布/ _- S' {$ x, D2 g: c$ [
2、负二项分布8 x5 z: ^ P' | F5 u! q# X% y" ?
3、帕斯卡分布4 X! L3 B, K, x. u: q/ R
4、泊松分布% Q- d% i/ t& m7 D
5、 参考链接
, s4 ~; K" ?7 y/ H9 a+ M6 U- v0引言5 U+ P- x' k- q$ }& Q4 \/ a$ B
本文结构7 A3 q/ B$ g- _" w! b2 `: o
在文章统计学基础——负二项分布的数字特征1中介绍了负二项分布,在博客2中介绍了离散分布的数字特征。
/ e* _! J2 O! I% J2 A2 u" ~( Q本文计算一些离散分布的:密度函数、分布函数、均值、方差、偏度、峰度、特征函数、矩母函数) n$ G3 Z6 H0 V! ^) F3 w
6 t( \% {+ R/ v* o/ t1 j( _
$ X0 ?/ {- ~5 Y6 A9 u0 q$ A理论公式
/ `5 |8 F' [) o* w- x1 {为了方便先给出计算公式:: ]7 v) U5 [, v3 _* }* W
' V# Y: D9 m4 w4 Y) E5 p! `3 c7 U3 z* R8 ]2 U" k1 R" V
– 密度函数:f ( x ) f(x)f(x)
2 Q/ V- V8 p! m6 R, }3 d L: l. \7 r9 f2 C- ^, \& @. ]; ]' ]
- K& W h2 R: i+ Z9 Q0 B8 ^
– 分布函数:F ( x ) = ∫ − ∞ x f ( x ) d x F(x) = \int_{- \infty }^x f(x)dxF(x)=∫ ( j# b- H; G% C, K g4 I
−∞
4 n! p6 H( C1 m4 g% f9 cx
& w' B4 h) z; k 8 m' D5 K3 c( p a% t
f(x)dx
& k ` d/ _! t n1 @0 s$ _1 r# N5 M# h
& l# W% C E5 H* U9 q$ n– 期望:E ( X ) = k 1 E(X) = k_{1}E(X)=k
- L* J3 X) ?7 Q+ ^* D( ^8 b. q1
8 w1 W& R6 P9 {. d
2 s9 o6 C- d) F* Q2 Z# q
: C3 U$ }# T, }' \5 p5 X6 R3 d
) ~# Y3 v$ _, J
( S0 ?- p5 n* P7 X( Y– 方差:D ( X ) = k 2 − k 1 2 D(X) = k_{2}-k_{1}^2D(X)=k
* y1 b6 k; {- i- c: m27 ?' n& z" q: |9 F y. l: P! ]5 Q
" j0 |: l. [3 ~# n7 J0 H −k ) q/ l9 |" X/ J; [* F+ c- T4 ~: U
14 {4 }# ~6 ^! |# c% k
28 \% b, l/ F4 w/ O6 ?" ]9 s7 s$ r
/ P- @: x* h [% n' x
% C- P3 t& s" l L d8 S% H* `3 F. m, I. U( i
6 X0 Z. o7 a) J# Z2 t: T$ `' E– 特征函数:φ ( t ) = E ( e i t X ) \varphi(t) = E(e^{itX})φ(t)=E(e _$ _5 |; k0 m; X* @1 n
itX
3 I* g/ G7 F( m: t6 ? )6 c2 [% C' ~' _( G, r: ~' n
* x6 b6 w! {, n3 x. G
' s8 T2 u( j& S/ _, {1 ?" v3 p
– 矩母函数:M ( t ) = E ( e t X ) M(t) = E(e^{tX})M(t)=E(e 2 r' N# ` T- d* e- ^- N0 t
tX
+ V6 k5 v* d! x: X. A )
2 R5 S7 u8 R& F/ o# v3 _+ d Y" t6 O1 y; L. M% R$ {8 m
0 t/ T" e q) M
– 中心矩的关系:E ( X k ) = i − k φ ( k ) ( 0 ) = M ( k ) ( 0 ) E(X^k) = i^{-k}\varphi^{(k)}(0) = M^{(k)}(0)E(X 8 D( I6 j" C' `1 X) s9 \! J/ c
k
1 P# S& Q4 f" N* c3 ^3 R. | )=i
& Q) i+ M- p- |/ K1 \- D−k
7 o; @/ u+ T1 Q: n$ S4 U+ E φ + i6 b% a. g) s+ F% c8 Y6 W9 W
(k)3 g; U& `& B% q2 |" z0 i4 @6 z
(0)=M
q0 G7 K+ i( H2 s( O(k)1 `1 h Z9 q, S6 k) J' W- ?$ F
(0): O+ E2 d; z- h# m+ k
* q3 B C, ?) I
4 P/ t, i0 m y+ \; c– 偏度:S k e w ( X ) = k 3 k 2 3 / 2 Skew(X) = \frac{k_{3}}{k_{2}^{3/2}}Skew(X)=
* H$ z$ g l. c! n5 `k % o. u4 |3 X9 f
2. U3 S6 h: b0 a
3/2! B* }" U/ k6 p, S( B/ h
& I& g7 M. {/ C7 h9 [0 U / R' P( C" m3 A& o8 J, k
k 5 s8 L- V2 F6 G9 X6 S' q
3
0 `0 [7 Y& A7 }) ^+ M( |3 J
* _( v0 U9 k9 a! y2 B# x3 q 4 I4 `# l8 @& v/ Y% I
6 S6 f& ]5 I- t! a' e
3
0 k" Z* x+ Z6 j( b6 r* {
* ^9 K7 R6 a# d4 d: |! b
2 \3 K8 f. e% L; C– 峰度:k u r t ( X ) = k 4 k 2 2 kurt(X) = \frac{k_{4}}{k_{2}^{2}}kurt(X)=
w6 P. t0 ?. u+ _4 \' T/ p0 jk 4 d ^8 o7 L& t5 s
29 }2 o. f1 i! V
2- Z0 v8 L/ o2 ~
2 p+ ^1 @, U3 i. e3 C5 @% t2 q* b2 S
* u# g& P; ?' l$ ]9 I
k % S5 t% n3 n8 w: W- r$ b: x$ z9 Q
4& A @6 i5 t1 D6 E
. p2 O, S) b5 u+ t& }
* I1 E6 ?/ G% Q: r" k
* D& h) Q1 q7 u
4
, Y) i8 K! q; ?8 N0 [9 W2 ?8 a* }, Y% l! O) v( m
5 [7 u" @7 \; B; ^! ]9 D. ~$ t1、几何分布4 [: T( v6 [# p0 E2 e2 P
– 密度函数:f ( x ) = ( 1 − p ) ( x − 1 ) p , f(x) = (1-p)^{(x-1)}p,f(x)=(1−p)
3 [+ `! {7 S7 c9 O9 B* m(x−1)
! X+ y, T: ?' L5 P0 f6 h p, x = 1 , 2 , 3 , . . . . . . x = 1,2,3, ... ...x=1,2,3,......
! t: ^/ V5 C! k# ~! Q1 @
5 l5 [- c6 f0 M$ I5 k1 a
; c" x6 b7 x: V2 G; 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)=∑
4 |2 p8 `$ E4 H/ [2 k% c/ v7 S9 Ck=1
( T8 P( u7 a. M% o3 d, ?. bx
1 T4 g- n) e1 U( J4 `9 h: c + ]4 z2 O* ?5 {) o# c
f(k)=1−(1−p)
7 J- v7 }# G# u4 D9 C6 ~x
# S! f3 T( E ?6 Y; G: W4 b
8 w3 {8 Q0 V1 z7 M z4 Y( G1 Q% ~) P, T6 v3 v- M; L; Y6 {
; y( A0 H+ H# I5 [7 B* M– 期望:E ( X ) = ∑ k = 1 x k f ( k ) = 1 p E(X) = \sum_{k=1}^x kf(k) = \frac{1}{p}E(X)=∑
5 G. {, d% G& O1 u& K0 P" R kk=1
+ ]# Y1 D: r/ C" gx m C( q% V+ u
* Z, O' @/ d2 f$ E3 V kf(k)=
7 s! V/ h* Z4 s% t! L: qp
, U. [0 Y9 B4 H1 {* O( H1. O) Y. R K7 W9 }$ `
0 s. Z9 p; d7 L( Y0 U- X
$ Z7 [2 C3 b+ H M0 w a9 N# g/ B
' s6 K$ w3 X2 G: w% k
– 方差: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, H7 \% z, `- X, r3 @# ^k=1
6 e! `" B& {5 w& }x
9 U, o J6 X. u% T6 @1 } : y e$ o/ d4 q" a5 C% a% a' T
k
0 R3 T( l J3 Q2 J; B7 f2
% s. H/ C; z8 \+ L% V f(k)−E(X) - @) ^# G0 z; O3 f$ Y5 N
2% z" J) T6 i+ |. m1 ]$ H0 w
=
V0 c# {+ K7 W, T. P4 mp $ m# F" Q% ~+ i) @1 l
2
& F, ^! k& ^+ n. D, ?, k1 ? e9 @ s) s* ^! ], m
1−p: r2 ~; o9 ]4 C
7 u" _+ P5 B1 k# B ?6 ~ 1 [6 @9 c5 O6 J V, z
) s, w f0 u- U% D; u& d8 {
. a4 {2 T& n! `% 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)=
$ e4 P* D$ H/ O5 R7 K: I1−(1−p)e
% Y: @, o5 Z5 a1 M+ jit( a) u$ M6 P% \# P' L1 D/ I2 J
/ a% u) Z* i+ [- Qpe * l" Q: q( E1 q( N- n4 f7 ]
it7 A1 M; {1 I& [ |8 {
" J& x2 i4 y: Y% u- i3 q
$ l- A. f5 e" F* x1 a E
. T/ k9 J* x. s, D5 j' j" p, i) L6 E ~( t i+ _
! M3 [. ^; x7 V l( h2 M
– 偏度:S k e w ( X ) = 2 ( 1 − p ) 1 / 2 Skew(X) = 2(1-p)^{1/2}Skew(X)=2(1−p)
- r+ ?/ ?8 d& B% o1/2
6 V, o$ b O; q1 T! _ $ ^& u B+ g0 l
6 Y" N- h5 S. {7 X
& q" O3 G% l7 v0 O. j. ^2 E– 峰度:k u r t ( X ) = 9 − 6 p kurt(X) = 9-6pkurt(X)=9−6p% u" S7 \, C2 ?! [% l* x3 d
3 {+ I/ w" T D* K- V
; f( ?" O* u- t, o* T函数 功能: G' l v5 A( G- P" p
dgeom(x, prob, log = FALSE) 概率密度) e8 o4 R* ]7 C" V$ m# |) _. y$ N
pgeom(q, prob, lower.tail = TRUE, log.p = FALSE) 累计密度0 [5 o) {/ r: M/ \
qgeom(p, prob, lower.tail = TRUE, log.p = FALSE) 分位数! w) Z4 p2 p, L. d! n% X! c6 P% |
rgeom(n, prob) 随机数+ \4 t6 o, n& n3 j# E3 ^ P
几何分布的各中心距来自5:
" G, r2 K+ N6 A! Q1 P
& I- \4 p/ U U5 K, Z2 w% e& l s# _5 W; I! g5 q$ v
* `& r5 a3 l/ r6 l$ _* b! l* e. l+ t0 |0 `, {3 J6 |
2、负二项分布
: i: @1 S6 Z( D/ ]' x– 矩母函数:M ( t ) = ( 1 − p ) r ( 1 − p e t ) − r M(t) = (1-p)^r(1-pe^t)^{-r}M(t)=(1−p)
; m" H1 q' Z: P% Z$ F4 Mr
! I+ D b R3 i/ r+ h0 @. @- N (1−pe
$ B1 x# C+ v# P [t. S6 l& A5 ?+ J1 Y
) 7 P( g, N" z0 Q
−r
( t; |) c/ l- O: m e2 N: Z 8 R) v4 L# L, `) U
( ]6 ^2 F. p0 O& Z0 n7 l
& Y1 J! M4 A) j; `$ _5 ?; O– 偏度: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)=
. u t0 u+ ?- {+ @, E. M(n
S1 K. T7 {; _- y' T' f" E2; Z) Z& p5 S, i0 v' ^
+n(1−p))
- }3 K7 |# N* K, [; z$ z. s+ Q4 _3/2
3 ~: Q/ _3 d+ q5 Z 5 v1 l* B+ B+ k* q
n
7 [4 I( T! D% q! ^' S, q. c3
% ]- T& ]$ P0 X: C +3n
* F/ g" U/ R0 h( P1 Z1 n3 H2
9 F$ T. h/ z8 ^! M% A# N% E +2n−(3n 8 `+ {0 o. @# J. A+ {3 @0 s
2/ ?# o3 t# p; m3 l0 W
+3n)p+np
, n' Q! w A3 z9 l24 b! Y D( E- k$ Q+ c
9 Q5 g9 q- O8 y/ n& u, V; @% |3 Y
, o; Y( c1 ]. H- T3 ]7 U. s( O
% d) d( K* L J3 p9 K: D* ?8 L0 e, c& ~
: W5 s$ I/ _6 r
: ~% {& l+ t n8 {– 峰度:k u r t ( X ) = 略 kurt(X) = 略kurt(X)=略 (带入递推公式自行运算)
+ e( n. E) w( D( G1 C# `
* z9 C( s1 i; o# D4 Z9 x: T! n1 `; s( ~( B! l
函数 功能0 p8 n6 m4 N" W: ^7 u6 Z- q
dnbinom(x, size, prob, mu, log = FALSE) 概率密度' G: A2 W5 p& h5 a
pnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 累计密度
: r8 ]2 X* o8 k+ M/ \qnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 分位数
]! l9 j) @. _( p& ?rnbinom(n, size, prob, mu) 随机数( \ h3 ]( z4 R; A3 v# s
负二项分布的递推公式如下:6" W. i, K8 z" M$ u3 Q8 p
) q5 u/ v- k5 C+ u+ X3 U/ C/ ^" W" G3 A+ M2 _
. @6 @. c# V) @4 u* }, }) n
9 Y6 C# c4 l0 b
5 o' b0 f& x, n) J) |
. `' ?7 r' e, Z( C* m1 V- E4 N% o) s9 j2 O5 a4 S' w
6 c: _: M7 i/ A! x- l3 c3、帕斯卡分布
8 |) W2 {: {1 B8 P1 L0 [) rX XX服从r , θ r,\thetar,θ的负二项分布,Y YY服从r , θ r,\thetar,θ的帕斯卡分布。有Y = X + r Y = X +rY=X+r。即:在同样的实验中,帕斯卡分布是成功r rr次后实验(成功+失败)的次数,负二项分布是成功r rr次后失败的次数。负二项分布的数字特征推到见博文1。故帕斯卡分布的数字特征可以由负二项分布推出。
/ E2 P7 k, n) j; G在R语言中我们仍可以使用下面负二项分布的函数做适当调整生成帕斯卡分布。
. X4 J& A* p% h+ H1 f0 u2 g注:在百度百科7中还有另一种说法是:# g7 A! H a* r+ U( s- A& Y
3 X: ~' W4 n7 O
$ }7 b R5 c9 d3 n. a8 ^8 L# a帕斯卡分布,负二项分布的正整数形式,描述第n次成功发生在第x次的概率。, h4 O) S" e* }: `% }3 j w+ r
, E# a4 _2 f; j+ E4 R
9 l' U: w$ N+ @9 _4 ^) J# \ q我们在课本中见的比较多的是负二项分布的整数形式,这时候课本会标注又称帕斯卡分布,类似于二项分布,负二项分布也可以推广到实数上去定义。大家感兴趣有的可以去自己找资料文献考察一下,这里就不过多的讨论其定义和数字特征的问题了。; } J. x+ \6 a# J1 {
- e! ~& L7 |4 | P% C5 {
. k( _. ^; ^ G7 A7 \6 L- @ d函数 功能8 s6 Z* T+ ]' W1 y6 P
dnbinom(x, size, prob, mu, log = FALSE) 概率密度
2 K+ ]! s( Z- z8 h0 gpnbinom(q, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 累计密度
$ n$ n. e- p' H+ H* uqnbinom (p, size, prob, mu, lower.tail = TRUE, log.p = FALSE) 分位数4 N* z) h% R- b0 Q! K2 I
rnbinom(n, size, prob, mu) 随机数2 t+ l1 H: T6 T/ h H
4、泊松分布+ D6 r! \8 b, s5 }' q7 U6 J9 c
– 矩母函数:M ( t ) = e λ ( e t − 1 ) M(t) = e^{\lambda(e^t-1)}M(t)=e
1 i4 |' t& }- V5 vλ(e 5 Y9 T2 J, H4 [( S
t
- N$ s' e8 J8 N# f* m, b' ] −1)
& @. r( @3 @" S5 S" ?+ j ' g+ U5 ?+ P: V! J8 O
, d# I0 `! i8 b9 [; a
4 {/ P2 r* J+ g7 e% x# C– 偏度: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)= 8 }: s& n" l) K3 ^6 M
(λ * t& F% h! K0 q/ k; d
23 V8 f. s8 P, s; Q. _
+λ)
$ o" R% Y- A9 G. s0 T6 L/ M- ` J6 |3/2 P' Q( o5 e: S% L) J3 N
5 |9 k& G# Q9 u" M T
λ # ^' V6 }0 P, X( p! M0 E
3% I1 u7 a1 o n' {! v* a. `
+3λ - z8 e& Y+ y+ B! v
2% l; C0 d2 E+ |, \' z% J9 L8 M
+λ
# V8 k3 d, b0 t, ]/ L0 y 0 f+ w' c9 N2 S8 w
. G7 N! Y0 }) P! @( c6 G1 h. u
7 w2 [3 S% s1 d
( C) p5 X5 n; ^" t" @' G– 峰度: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)=
X3 q$ B6 N5 y9 F9 sλ(λ+1)
# M, x4 J* |: W8 F6 y2) n7 P* w! d: n6 }
" m9 m/ t8 Z, t7 X) [8 M3 f
λ 7 S. D9 y. y+ s$ a/ _
3$ {1 q) c2 S! w6 O6 a7 t' y
+6λ _! y8 |, n* B3 q; l
2
/ o5 a. R: \8 l0 z3 p% Q+ d4 R +7λ+19 X v3 Y+ t0 v2 W; ^# w
. p, c/ d2 b/ _# x
0 f# _, K* e: z1 V1 k! S9 _! y# u
8 [7 `* I0 D; x3 m) Q$ f8 j* U
* S* {( P0 i1 Y. I6 P: q函数 功能) p6 W- q9 x/ L& s' r4 S
dpois(x, lambda, log = FALSE) 概率密度
& ^/ p u6 s6 H! i6 @ppois(q, lambda, lower.tail = TRUE, log.p = FALSE) 累计密度
% L! [+ p( ?3 Z- E+ C* B, Iqpois(p, lambda, lower.tail = TRUE, log.p = FALSE) 分位数
0 M7 k% B3 u; }& }% k9 y2 h* irpois(n, lambda) 随机数
3 J1 g3 Z) e0 p0 x& e( }中心矩的递推公式来自8:
8 y6 p2 J3 O" F- n# p' M- @! e. u: W: r
% G2 k8 d j9 B. z1 O
/ P; ^) e/ R9 O( L" I
' ~- f. G; ^0 y- @0 i5、 参考链接
8 `- f% \* P, `! y- p4 Jhttps://blog.csdn.net/weixin_46111814/article/details/105243202 ↩︎ ↩︎
& l8 t$ f& _5 S" a, [! ~( r" [) f& F9 u* @9 D' A
) T0 c9 y1 H: o7 y+ g( x
https://blog.csdn.net/weixin_44602958/article/details/105261188 ↩︎
; |4 ~& ]% w+ w9 Q6 w: i% V9 K1 p4 G* A$ [6 S% _
3 k; C8 k7 a0 @2 Y( [( p5 [: p
https://blog.csdn.net/STcyclone/article/details/84310450 ↩︎, H( i1 V9 ^: [$ T2 r' y
' F" A+ X6 _6 f/ [3 @, P7 V# x9 z, g& e }1 ]: p5 S
https://baike.baidu.com/item/%E5%81%8F%E5%BA%A6 ↩︎
: e. U3 n2 N, |% U( ^0 R' x
* n! P& \' H: g6 Y- d$ H7 a, d, H; }4 v, c6 f3 K1 r% d3 e
https://max.book118.com/html/2019/0412/6234220152002022.shtm ↩︎
4 F: Z; d) Q/ g Q* {0 \
0 x, h4 V* ]( Z: a* v1 f6 l
' o, V" o |7 q! f& M4 s# q! K9 G* U朱成莲.关于负二项分布高阶矩的教学注记[J].高教学刊,2017,No.66,103-104+107. ↩︎0 j2 P" h; [4 \3 p9 V" R1 Q
1 _1 y+ ]9 n' v# A9 `+ s/ O
; `$ f/ w. m( Q' d: ]https://baike.baidu.com/item/%E5%B8%95%E6%96%AF%E5%8D%A1%E5%88%86%E5%B8%83/1188907 ↩︎! ?4 u1 Z) b6 M& A' u
+ z. G/ u3 E* T6 s* W
. y0 @# X2 R: I- B/ r) Z" Mhttps://wenku.baidu.com/view/7f8328c10c22590102029d83.html ↩︎8 |. H" k3 J* r
————————————————$ r9 ~5 Q7 n* q, \! ?$ m! ]- _( Z
版权声明:本文为CSDN博主「统计学小王子」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
6 j) V+ r+ w5 s. g原文链接:https://blog.csdn.net/weixin_46111814/article/details/115499487
0 G* W" V) f o$ l. v% w8 H+ h; D7 E6 z3 o
8 [9 x c4 b1 I7 u9 w2 b |
zan
|