Differences

This shows you the differences between two versions of the page.

--- poisson_distribution [2019/11/05 07:54] – hkimscil
+++ poisson_distribution [2019/11/05 08:03] (current) – hkimscil
@@ Line 12: / Line 12: @@
 Lambda를 알고 있을 때, 사건이 x만큼 발생할 확률은 어떨까에 대한 답은 아래와 같이 구한다. 여기서 e는 2.718282 의 상수이다.
+<code>
+e <- exp(1)
+e
+</code>
+<code>
+> e <- exp(1)
+> e
+[1] 2.718282
+</code>
 \begin{eqnarray*}
@@ Line 41: / Line 54: @@
 >
 </code>
+한달 평균 경부고속도로에서 자동차 사고가 날 수는 30이라고 한다. 그렇다면 이번 달 사고가 28번 이하일 확률은?
 <code>
-e <- exp(1)
+> ppois(q=28, lambda=30, lower.tail=TRUE)
-e
+[1] 0.4030825
-</code>
-<code>
-> e <- exp(1)
-> e
-[1] 2.718282
 </code>
+그렇다면 30번 날 확률은?
+<code>> x <- c(1:60)
+> dpois(x=x, lambda=30)
+ [1] 2.807287e-12 4.210930e-11 4.210930e-10 3.158198e-09
+ [5] 1.894919e-08 9.474593e-08 4.060540e-07 1.522702e-06
+ [9] 5.075675e-06 1.522702e-05 4.152825e-05 1.038206e-04
+[13] 2.395861e-04 5.133987e-04 1.026797e-03 1.925245e-03
+[17] 3.397491e-03 5.662486e-03 8.940767e-03 1.341115e-02
+[21] 1.915879e-02 2.612562e-02 3.407689e-02 4.259611e-02
+[25] 5.111534e-02 5.897924e-02 6.553248e-02 7.021338e-02
+[29] 7.263453e-02 7.263453e-02 7.029148e-02 6.589826e-02
+[33] 5.990751e-02 5.285957e-02 4.530820e-02 3.775683e-02
+[37] 3.061365e-02 2.416867e-02 1.859128e-02 1.394346e-02
+[41] 1.020253e-02 7.287524e-03 5.084319e-03 3.466581e-03
+[45] 2.311054e-03 1.507209e-03 9.620485e-04 6.012803e-04
+[49] 3.681308e-04 2.208785e-04 1.299285e-04 7.495876e-05
+[53] 4.242949e-05 2.357194e-05 1.285742e-05 6.887904e-06
+[57] 3.625212e-06 1.875110e-06 9.534457e-07 4.767229e-07
+> plot(dpois(x=x, lambda=30), type = "l") # 아래 그림 참조
+> dpois(x=30, lambda=30)
+[1] 0.07263453
+> </code>
+{{:pasted:20191105-073316.png}}
 \begin{eqnarray*}