From 47caee3dddb1558990081bf524c13efe18433f3c Mon Sep 17 00:00:00 2001 From: ergz Date: Sat, 17 Sep 2022 01:28:47 -0700 Subject: [PATCH] more work on chapter 3 work --- .../ch3-beta-binomial.html | 98 +++++++++++++++++ .../ch3-beta-binomial.qmd | 100 ++++++++++++++++++ .../figure-html/beta-shapes-1.png | Bin 0 -> 20834 bytes .../figure-html/fig-beta-shapes-1.png | Bin 0 -> 20834 bytes .../figure-html/fig-beta-vars-1.png | Bin 0 -> 23493 bytes .../figure-html/fig-std-unif-as-beta-1.png | Bin 0 -> 21355 bytes .../figure-html/unnamed-chunk-2-1.png | Bin 0 -> 20834 bytes 7 files changed, 198 insertions(+) create mode 100644 R/chapter-3-beta-binomial/ch3-beta-binomial_files/figure-html/beta-shapes-1.png create mode 100644 R/chapter-3-beta-binomial/ch3-beta-binomial_files/figure-html/fig-beta-shapes-1.png create mode 100644 R/chapter-3-beta-binomial/ch3-beta-binomial_files/figure-html/fig-beta-vars-1.png create mode 100644 R/chapter-3-beta-binomial/ch3-beta-binomial_files/figure-html/fig-std-unif-as-beta-1.png create mode 100644 R/chapter-3-beta-binomial/ch3-beta-binomial_files/figure-html/unnamed-chunk-2-1.png diff --git a/R/chapter-3-beta-binomial/ch3-beta-binomial.html b/R/chapter-3-beta-binomial/ch3-beta-binomial.html index d164419..77ce010 100644 --- a/R/chapter-3-beta-binomial/ch3-beta-binomial.html +++ b/R/chapter-3-beta-binomial/ch3-beta-binomial.html @@ -184,6 +184,104 @@ Tip

a quick note on (1) above. Note that it does not place a restriction on f(\pi) being less than 1. This means that we can’t interpret values of f as probabilities, we can however use to interpret plausability of two different events, the greater the value of f the more plausible. To calculate probabilities using f we must determine the area under the curve it defines, as shown in (3).

+
+
x <- seq(0, 1, by = .05)
+y1 <- dbeta(x=x, 5, 5)
+y2 <- dbeta(x=x, 5, 1)
+y3 <- dbeta(x=x, 1, 5)
+
+d <- tibble(
+    x, 
+    `beta(5, 1)`=y2, 
+    `beta(5, 5)`=y1, 
+    `beta(1, 5)`=y3
+) |>
+    pivot_longer(names_to = "beta_shape", values_to="beta", 
+    -x) |>
+    mutate(beta_shape=factor(beta_shape, 
+                            levels=c("beta(5, 1)",
+                                    "beta(5, 5)", 
+                                    "beta(1, 5)")))
+
+
+
ggplot(data=d, aes(x, beta)) + geom_point() +
+    geom_line() + 
+    facet_wrap(vars(beta_shape))
+
+
+
+

+

Figure 1: The basic shapes of beta based on the hyperparameters

+
+
+
+
+

In general the shape of the beta distribution is skewed-left when \alpha > \beta, symmetrical when \alpha = \beta and skewed-right when \alpha < \beta, see Figure 1.

+
+
+
+ +
+
+The Standard Uniform +
+
+
+

When \pi can take equally take on any value between 0 and 1, we can model \pi using the standard uniform model.

+

\pi \sim Unif(0, 1)

+

the pdf of Unif(0, 1) is \f(\pi) = 1

+

Note that Unif(0, 1) is just a special case of the Beta with hyperparameters \alpha = \beta = 1, see Figure 2

+
+
+
+
std_unif <- tibble(
+    x, `beta(1, 1)`=dbeta(x, 1, 1)
+)
+
+ggplot(data=std_unif, aes(x, `beta(1, 1)`)) + 
+    geom_point() + 
+    geom_line()
+
+
+
+

+

Figure 2: The standard uniform is a special case of the beta distrubtion with a = b = 1

+
+
+
+
+
+

Mean and Mode of the Beta

+

The mean and mode are both measures of centrality. The mean is average value the mode is the most “common”, in the case of pmf this is just the value that occurs the most in the pdf its the max value.

+

The formulations of these for the beta are:

+

E(\pi) = \frac{\alpha}{\alpha + \beta} \text{Mode}(\pi) = \frac{\alpha - 1}{\alpha + \beta -2}\;\; \text{when} \;\;\alpha,\beta > 1

+

When can also measure the variability of \pi. Take Figure 3 we can see the variability of \pi differ based on the values \alpha, \beta.

+
+
beta_variances <- tibble(
+    x, 
+    `beta(5, 5)`=dbeta(x, 5, 5), 
+    `beta(20, 20)`=dbeta(x, 20, 20)
+) |>
+    pivot_longer(names_to = "beta_shape", values_to = "beta", -x)
+
+ggplot(data=beta_variances, aes(x, beta)) + 
+    geom_point() + 
+    geom_line() + 
+    facet_wrap(vars(beta_shape))
+
+
+
+

+

Figure 3: Two symmetrical shapes of beta with different variance

+
+
+
+
+

We can formulate the variance of Beta(\alpha, \beta) with

+

Var(\pi) = \frac{\alpha\beta}{(\alpha + \beta)^2(\alpha+\beta+1)}

+

it follows that

+

SD = \sqrt{Var(\pi)}

+
diff --git a/R/chapter-3-beta-binomial/ch3-beta-binomial.qmd b/R/chapter-3-beta-binomial/ch3-beta-binomial.qmd index d8b73c0..56931fe 100644 --- a/R/chapter-3-beta-binomial/ch3-beta-binomial.qmd +++ b/R/chapter-3-beta-binomial/ch3-beta-binomial.qmd @@ -51,3 +51,103 @@ To calculate probabilities using $f$ we must determine the area under the curve it defines, as shown in (3). ::: +```{r} + +x <- seq(0, 1, by = .05) +y1 <- dbeta(x=x, 5, 5) +y2 <- dbeta(x=x, 5, 1) +y3 <- dbeta(x=x, 1, 5) + +d <- tibble( + x, + `beta(5, 1)`=y2, + `beta(5, 5)`=y1, + `beta(1, 5)`=y3 +) |> + pivot_longer(names_to = "beta_shape", values_to="beta", + -x) |> + mutate(beta_shape=factor(beta_shape, + levels=c("beta(5, 1)", + "beta(5, 5)", + "beta(1, 5)"))) +``` + +```{r} +#| label: fig-beta-shapes +#| fig-cap: The basic shapes of beta based on the hyperparameters + +ggplot(data=d, aes(x, beta)) + geom_point() + + geom_line() + + facet_wrap(vars(beta_shape)) +``` + +In general the shape of the beta distribution is skewed-left when +$\alpha > \beta$, symmetrical when $\alpha = \beta$ and skewed-right +when $\alpha < \beta$, see @fig-beta-shapes. + +:::{.callout-note} +## The Standard Uniform + +When $\pi$ can take equally take on any value between 0 and 1, +we can model $\pi$ using the standard uniform model. + +$$\pi \sim Unif(0, 1)$$ + +the pdf of $Unif(0, 1)$ is $\f(\pi) = 1$ + +Note that $Unif(0, 1)$ is just a special case of the Beta with +hyperparameters $\alpha = \beta = 1$, see @fig-std-unif-as-beta +::: + +```{r} +#| label: fig-std-unif-as-beta +#| fig-cap: "The standard uniform is a special case of the beta distrubtion with a = b = 1" +std_unif <- tibble( + x, `beta(1, 1)`=dbeta(x, 1, 1) +) + +ggplot(data=std_unif, aes(x, `beta(1, 1)`)) + + geom_point() + + geom_line() +``` + +### Mean and Mode of the Beta + +The mean and mode are both measures of centrality. The mean is average +value the mode is the most "common", in the case of pmf this is just +the value that occurs the most in the pdf its the max value. + +The formulations of these for the beta are: + +$$E(\pi) = \frac{\alpha}{\alpha + \beta}$$ +$$\text{Mode}(\pi) = \frac{\alpha - 1}{\alpha + \beta -2}\;\; \text{when} \;\;\alpha,\beta > 1$$ + + +When can also measure the variability of $\pi$. Take @fig-beta-vars +we can see the variability of $\pi$ differ based on the values +$\alpha, \beta$. + +```{r} +#| label: fig-beta-vars +#| fig-cap: "Two symmetrical shapes of beta with different variance" +beta_variances <- tibble( + x, + `beta(5, 5)`=dbeta(x, 5, 5), + `beta(20, 20)`=dbeta(x, 20, 20) +) |> + pivot_longer(names_to = "beta_shape", values_to = "beta", -x) + +ggplot(data=beta_variances, aes(x, beta)) + + geom_point() + + geom_line() + + facet_wrap(vars(beta_shape)) +``` + +We can formulate the variance of $Beta(\alpha, \beta)$ with + +$$Var(\pi) = \frac{\alpha\beta}{(\alpha + \beta)^2(\alpha+\beta+1)}$$ + +it follows that + +$$SD = \sqrt{Var(\pi)}$$ + diff --git a/R/chapter-3-beta-binomial/ch3-beta-binomial_files/figure-html/beta-shapes-1.png b/R/chapter-3-beta-binomial/ch3-beta-binomial_files/figure-html/beta-shapes-1.png new file mode 100644 index 0000000000000000000000000000000000000000..7e82ef9e4a2fedb1b3a3a37f89aaa6a1bd9c576d GIT binary patch literal 20834 zcmeIac|2A7_dl-Pk%LSrBD11WB#MsV>{28d3K60R2ca_0?I=lTb~ByRRfr_BjNu)X zaLPP85hvr3c|5<@K5n<$?|nb_bKk@FkMHC0J=gWf-uty)YpvHBo@>2c`-BqU# zvN16+acCbse3FTY8D?Ty`x?6zT&XOO9A;u#Q)6)4=m_|ei3!KVWXFWVG2y`P+e~(O z0s?pe0c!y~UH}h%BLdb$K|w(U1qJXN`V{)PjkB}E*@54AxZB{T0}MbP$6MpAiFl+$ z7yY>C>PG6ifS)wo$hX!Eiq?1mYw!^GAc!?Wv?i8V6Wi<<)7#;g>~J_c+-;OF`ne7M zv%3v`=h@|T*yYgyIT!R3=@Oad68Y98tslV)Ab31tjb{)mK}y;p!IUoG2RxD%nf5j^ ztv~WD_@Up%G2I4CGpOIbod-zX?w}K`1&G#oA_9J_iA020QbH_gBeu1rx#*_3xTHn8 zq`mD=>!;`0G3D9e^6c#LZsYQ9gWtFF00Hpn=*a7!=h5jU2)+cdE+K*+q=X1)w7reg zeH-cW_AMYle@myg5v|)wkhT(HTM4)cW&pq2I&R}SZrgR_fuGxe5aUDdpm%i8>HTRg z{cj`t--5~M!^6XX1Nz%YddF>gM;>~=KaJl1mfjC;g2@4SbOfDFPb@I10E@|b@#twc zCMMxf^#3(cUnXpsn8cX04<9u0jvI{+FWOe^VPY;7xgqY(9=#hk4%lc{t+AeXx%M9# z7p`$@uCvwmZm~Kw4l=C0&2~cfakt|!B>F8PR zPuB<>QChpZbnzWgd1s4%$Wo_q^F^BfsFuf{$aw;LCP<8oh>;Zay_3)nR zmLBC&X-nPZGJ4}B=c#X1R!a|>i$)6w&gT=e8~q-?IDJ`3w5`s)%efcb8eC4Fy=7?W=8L%# zi)H>Ya|x|x>v@%8ccI(_Jx)cr2@OdiF{IHS^uy1@wv31M1dchb>HN?#P9G2Y_N;QT z*F3+@#5wTSWqUsd-Kl({!ZPiRru{SeA>-_Rml#ggcbSawT=v+-d3DRw19)H0n1*rx zp@GA{;%npgk=uQ{QYU4dsrlqf7_L7nd11+U$5alJRFzg%$B335qhA+S9Ce7Pg0)pDNYSaC)DNo zDQucQ?O0;av}-;t$pL9r*4?s!N@1&6aUN67926RuQgtvHPgb%QZW*moCspkzcHe66 zKts8Ajxo#dGMra*K1vFm&97XfY)MYr9hxQ^e;{bMInW`lhuv!Q0YRzr@ZBitu4ya4 zOQ&u_N40LH#vO*%yND+Kea&A#=0^E{8EtU85E_P0@bDj3auFU_S`wKX9h~7Z^&d2( z6!EH7Z50I;R0fy?7Nnt>ur}R0X8%@lU#K*vRsMAI*S4S0TC2 zaW5*0FBRfe9%vMGKNS#p5*;Q=|GMr$HrwF;h;jh&uPB@8^2p=qoZ>Ey+Z2RGp+3bs*F2su{nY_bzF4wW>Bx`^4y zoPXvS)=2pO4f^jWf(<(rTvVi?KCv4UvsQ~FLctobxfGpb#w^e{p)=4=SI*8_&s{V2 zdSU7P?oGSJHX6SK`7`Yk#8LO$G}I#E$>!qQ@c5{uCW*b5nct})WN1C|f=O-{nfBqP z$J?f(H_L0VQ}3Me%OYX^*EPGFlUSPtpfhVMPmv@QWSYfIBzLTnlO%JEmD2n&Mm)>r zq@dbhe)H$Lye||mg-~${Ty1yixyB34lk340gMLSgu4#h?h7%%2Dz@A<>(*N69<9)?vRdN#3Q*^~o=U zpKm+YCz;pbs94DzU!l%vCTm0 z>gGRlK59E{Nc#rqDpEax`&bT1eM*!Y^UN|2uACb&ymZ z>Tiqdcij4>7u&eCxYxQX$m%>*?l9@iZwAAYf)he~LnIA$6pS7_LK?b=8RChApZ4a- zY(i2ic~Z1iB{RaLa{jQXKO0nf9lp1|u+Ubj%cSWJh*_>HpIxXr)b> z_+6BrW9c=%;moZ6iYjTj7(wSh7v(2=^M3TkH&y1pqDudLNR^;_5r`35B&okh3zp|I z6VllJT~)U55}q8)SGj9_5#zYwCsBS@>zIscJW$u*ni74Edn$1hFJf; zE@{Thf;NA{EPmGI=kVM!y8nt?GGy$3D3@=hr{iDC}?JS6KWPWj(4R8CqJ%$6sA@GnJGQOH2M1n!*3L07E0AJt2;$HSa$#T@G)S|fAmssL$Zj(24?}*o;Gb6dr@&sPyETfI%luyV z$v4_vD8PI0nin^LFRuC*)d~}SfF?GD@^7TxYw^S?^2+9$`rPj3^bbJ3i3K=#A4Ix) z#K{%~z1G5fC<8KB_l4{@)K&`AQ{7`nTqJD&kc3$g^#WXgEBn+V!^@`U4+?%vCLawr$GlzIehFXTw>TV)ZG^WI z(?d6r;^HRC^8FqS0?76=WLlxDs6e&Xe~25-yg;jKVpWCCFagx|c<3PM*l%b(oY^HLP``r8;%`HbA5M0S&#B<@U+2nP49@X)45`D?mO7+m27z8U+% zfP?=UlCn6T8QG14Nw~jTBw6T_Y>3+Ct;DZ0%#?o(r-i-2t*G^5jaYuD?4R^}6B3>e zXuh`m$i<2q;ORfZdjG>{e$(fP0MDBJZ9xo4<JgN#2c>Ysq8RjFz9au}TZ8~*-Z zIVwnnHDs*+chFJlovAm+i#Yy!_|1b^(3JO2vw;6s>-cZdP}9|a3suXoyBF-t`!g^z zSMdh-RUebe{GUTy3v*JiN9LcZK6-bvLy&~Q?!Uk&t8(q$VUTr5FzHrEMFknu{==0A zKo7tK4~=HrLg8|pq4&L?7nOf^v%ue?{J+;B3(#nK#CK3Gclx>8zhZZPQIv3CbBb`^ zm0x-`vu@$vwvYdzD3}lT=q6%~*j)~i;+eDlbOrv&C0Fatzqb2qey0#TPYNIC3wP+8 z|8D$`!gC$CQ_dBzB6%%u(b^LYt&@CC4Tl9b0>rT!o0F~iUEG9R(^#oG62NpWFsWt?zP#|1L+H7U>n5A3JZra?01D(Hiq-+xnZ_(2Cy(4x%oUFF|G( zdBXqi6MFtekl~9;l4SPMIz6_3J7>A^IX!0x90}`(+kRiT{~4V8-9&4@tC@g$TY)$t z5?%9s?f<5pepYS+zf&=T#k(*UyWKyrm>L2H&AoT=S|pYQ!;_%V@LTgQ^$I*b&grva zj#Xs;!L=+uwNfQNX!_f?k1|F4JOsWUIPr`u*{>)%N@V#ko!cF4gCrE2@-Cr~KM7N~ z3Jol$q&~5D@eo9QjM~Ht2+B>lN;0}QKLp%?tbC2{ims!teAw}7*WP%|sdEZh$jkGm zjtwaHbd0(LjV_dN6WRio&HK6zA(FJS#BZLM6LJ*e}Zq}{mbj>cNFt= zHt$$!`n3&hHH2HPT|PG~B!cjrmn84}EhW9d_|BhgDGSf}4rNw7_6r7A%u)99HGX!q z>tyJKiTOk604{#({;Ci+yN>w9!eemgnsnAZhTK({oi8s)b?}EUno9xR_OsW#WQqQ6 zUW>z6MUch6cVK~1zXbQ?%Xf|SglPS-C1tb*u~c99{6HN~A2_?1s$wGdLvatdsiurJ z)$c3zPwm>$g~{z$cjkh9h-}b;b5_7f8~uO3!K-~Ctj7)}$-J&*b)S$cKc1)WIP&aY z0T@5kTB_Gd zM(Jl+V*<=pusQ1rv=PlMjc8966hMEsn)zWRpil3;Yq5Bahrn?$7K+%HlD68e``O!n zc+gKxzdq)LIeoqP#Io5AtP%GQqMB?|^()41_qfCjw7s`3`hJxp3-)R<3pyB}t>Jop z>Y`lkQk(x~8fPmN_IWwAv?h(KCF8_&-mD!M1JKoSmzvqj5W;zH)hzB055+ zyZJ?1F3Uih{?L0n0R_;XCI>EG9< zV`Gm_m+P{D>>J)&gNaG_y(`|a5!A7}kwJXbloLM4t#!WJer2!Hovjr43nEW4I9!ZK z{8&X%-=oKg-_HUh>?YSG5>;7tu8-nP5fcJ?1o=D3;VJrVsKXT8f_*rRHvh1SI@X*; zT~akoC}sPPfD_M4U1_TiRObgNcxSaHDfc(zUB@;x5wtR5KWp`Lsm*ProPKLc8hT(O zNp9~=Vg^v*^u0mLVAN8p+6n@v%xeyI#n0RfSFjbaIYa_z;(Oy7teJh(iYUg6 z=?6QS>{C%IV=Ie?yXhSh#Qwu1>kAk&;m$mGewRO|KLU%=lb1(lWsuUwrK3|{$f%m; zREvtbQBSFX;_(=deRr*C%uqmyLty_ne(`Zn;F8?@ekq4P=wF%)){I|o_A{N)D(S&MXtmXh)A?KKq@C|+QDBy7`m0#aK^>C`6q z^H~BN+VOGZV-2a*@f`_oxKQA-+Si}ZupWL{sQ2d8^*`BJcpvK;C5fk%C9PAj?m$3&G zTyoz?eQ^9$*jBdR?mT{V?hq++L>Vcay)bErSH=R**2^w?90Gp(#wd!|@D5!7v9e?w79w@N(aYnB%2 zz=dpJ!a?-uL=&e;Ip73G7I~5PFL?-uXS!A2D;#{BR8yJ*OS7;dRauG5F?SdS3!Pby z*Pg^iDFG64GUP`Z20$x%Jk&n?K@xMX!btfsEz)w_1E1^Ff{pHNl4PO0GssvO*VInn zT9rK1Lvy)u8I(ILfVK!S@G>1(TXcrpN4n9J(oTl=^H3$cbsj3wl!Ier{V*|=`*)H{ z@Wh4IvK3MKsDcT*!ps3*%+3l;5+zQk?Ud~n5jU-O?rr@1)cXf{2)k5(KU?BUrsm3M zMKoZCF>CQ^nT-=Li^zoOJ;3lT@>d4KU>Td%P-`2A8IvdUPR}X&71Z%i-`o)Kqn-Y3 z-n<>;Su4i?|9j(WH(i$`yL->kE*~e^r0zL0gH;T5HYV-1|K{O|P60M!ASk{NcMFz8 zjVDlYdB?a~O-ox?1rGsi=*Ws{V`A9q%fcF0grAIS1qlYCXiEJZ=kv>$n{dNoFdSVu z$-Jqr8T}rjHOs!tjbj?5j~8Dck?vST!hj1^T@*ic?z^R6Vv0a$<{_+8 zHC?iSzQ`w?4NXeWhe>xXFcOmh?d;d6avnl~26iKYyMpSgU`mS_C&AWW8wI-otMdW@ zL;q!^bgB+T1QP?cAh1RtCV<`&VXyy_Z#)FEP$~8Pn?Qw(?$14n%^{&p)EgJ?`F_?X z@#eR16Si(aH^B%y{ik9EKpc}Ge?f~D^%FA`^KCkmX?8^cOTyOVnB-hd(%uW-*_BXD z9^oN)Z@m}wrH|70-95>Nz3WQ)_VQ~afybM92vu)xW9A6o;gljr!Yqvg;&47p(plxE zq1T7lEBozE$g=^5be@#;TabYY~bRfhIC z6awx!SEmCj!bHR|#e?K|PE+=(1le>yx}i_T%-zS^Gvnqq)jvrn*hu)SlqOZ7CFqyB zx=lDid$*Q+S{V{vhsfGUqGtmlLiHEiEJ-DJmp>4v@p!%>9!fJIHL#E-FJf?5=uDL+ zx&tZ5L7b6>YN-ZuvKycX+f@qJ>V>XoVsqGmF931Aviy3FLit^sUH(->o>db6SS7(q zRAB;vkmcMTC*0%r*<3EVB5hL&lMph)Ta3N=U0aeA3CLOFc=WOv#1Uk;6N)&`m^D6B zDfH;;4xv99lqC7IcO1Si5;ouZ$IC2jhCM~48!hAESj{19j?P}dCz~SeNDx->ZUlNH z!hKygD5K-A%^ppv3EYRQD{~Y?G_x2*ecfxG?a;n8j4d+vb&)Vn3M;y`AexnIi=Z82 z#rv<{{-%4bR)wtAIQUhVkrC-}<`GgR>I>u9gYKDX$hXag2a$ErTUK@E9i`@1QFsu! zUbk0)g3XDgUDjBAT8lJE+Z>>6~Z1muN4w7nG zA!vDE>~@Eh7U?ulE_)OXi2{osD@L{*`2q#JELu*Bj*hbI2>1*tJeE4$C#Yh02zsFf zVL3NSOiB9SmIJ+>YfOY51{+d9ykO_&-(HV&hgARa@Fl2uf{T(R>p{f_?9KmeLg`?! z8lss{UJW=?!Md;U%Y-w6VFijf!WUw)!{D4UG|G$&WWB*Gly?mm9j%YMTifmndf@Md zqUO96Z(UTn6>9LUdSYel&19Jb+4ga9(T+VLtCzE?C)PyCf2mljbcd}%Zb;=?lv=R< z7129M`l{E$9mX~$6w!Pxh=cCBTTu`f$PrmQ1h54k&Ypv>!YV%8ElFNP`t&g|HJT)0 z?-8{*MPxsJ6(g4nZ=@;(gWi+R$boYg^g%Mh=4`>lyyN4h-t#LOTogTYh%^swi5aW` z++UBnY?sB1@pYZ8P$}nMt-Ra?Esv5SCbFzdP{0*cVnLd%29@6=I1{iostgkYwzIp$ z$f`5eNZ>^;ue$J(XvR3Tndf`1FQG8A~912ov~9i zJ=?;O7Jh=$6OiN>fslImWL+;WFeV^lCBx5fcQyt|kdFu-0*M_p#Fvth1>7m?RloM~ zA+o_=tMlH+hB>fPcBb9#E zx+HEO?_FMLj=^=eYCP?}ph0?1djSM<%@ZfP~w! zf=Uz*0gqLDgsRmU*ld1&lLR^IfzOE%mS|aSs!`v9Ol}DWvJ*{(r??4^h)b%OhGynG z1VhfihJux2&aSAKPM-Y~Zs@@k(RN9)B}l`l;?1Gm*zpT#he&UN3YWK&O@k%KPiezd zO(u@^TOebA6fSaBo-iX#gp#%}sC5-A92-TI24X2V4P=Fy)*X~Bd(V-!eoaifm;r~)BevAIB0-VZj-oB47bPc)R@J*M`!3uU8XyTdzb~(kaLQ;L+mA_I zuSI&Sh&9qcDMz4`r9GEkonKd+pUws(Cw7R^e|@V{k9C({YApD6Y}A<{8MreG77#Ri z@`B+8bgd)dwV*xu5RSb}GwgdWlbesKNA6zTR?tqZ^0-X9$=ohR_C_94? zbSrUEY8y%xvzkFIy>ER5UD>2;9>N%7`)fHTB=0IL$BlX>f@(Bc8?Rr=f!a|==!&Me zcN66Nn;CKebKnBYtELP&vmjO3j2traNenefP*tI;3ewvrk%%VD`!jQ~BlVQ<^5GYa zuhDfY6ZF8eM_z>`yDPxaM|O;0Eo#Fhz_&CyxCx?>aK}N?N8rjFQGPe1cr6p*EyBn* z?I*EMWVHcu%GBvwQim?uD!O zOi6;@@9B9@nVd$8lQdpJFsvVYACsCT^>h`Z0kC+mP$TnK*glB~IR>6_dfq4x)N~D8 zzmLKBfi%6XH?(TssiDol8!C9HV%VwT@47Q)8CQ=DRsx{O+%;8Y zt&8Z@S9qemW>!=pEBa$wj3Ah7Sd2{A4>euSpl2Safkyddp(e0$L!xpIttH8w@oAf0 z&}x|p`aQzfHg|_ zWv}L53io|U157G7^B2Ef$I}+k+rAdLS;5Odr9LVq(n5&mue-?Fwiiy2K7uwr)@W_F z7}*or6b?^gVlD#Z@}#U=dU=S4dH}f!ZY!qmgK9fo?F3<-cP%7rQYFPK=wtvEe^W09 zGQz8_hfftP@xUqQ)W1Y1MUR0xWq)T>^nwnFg>8(w{(g#iMRJ?y#Q;0!}s`%tJDmLYG+ zNhIL2gprwEto!{4cpn4U++@`9UW1NTQHpL5$8vF35;KmWKa&uzXh}d+p7MtFY{o`T zjBM$I!2v+e2E?j8>;w3VSyjLh+BziflcJ&Y4KqmC)1eQF-;bKoaJgUjr4Gn>J)2@{ zvM#&(7&p53)4kX!DP09;0}kZ+Vh9{wZvR~iT*X!~=6r;P51Wk+k|YD#3t?%78gaBQ zq5H9leCj>w1)GrTz4!RdfNh>(k-g}01Gb?|js}C2JBKwIKA9`bA!guQaM%`L>pB0$ z-cuM{h?8Y%Ug8=MD7m5s7-9QF!8Rndw7%^l6Pjra3jG&9NIjQropsgg?m;!l8 z$FaJ9!&n-FOO8h-Rv8MI`xfprhUT4?z@a0Uc2=O9b-j;|+yKH4w(FPNfEOtnMG(hI z=2F6^XxP54*O>Wz@KlKynYJa?=AXCRpN7p5#R#@vhg*Vmmdpg8i0k!v zME_05Or_27$Ie)HkUx%)D9y%LcmF(8MQcO?S$eYIL0M#o&Hde=a2%Wa`NGv3mVq67 z0Kxe$evL-MuX_Op@`72^hptJw);l?xY^6yG79&%@{CxiBr=3kn+4i*ekn=1jVtGq{ zGnnNIsDHMDlzwAIAp=BpZtB@B&>2?sg|P@Y{Iz6zeQ_krB2ct`8zlOho5TgoQKuy_ zW*Cu=fdd{G+U)uL{r&o(?w25o*|gX1gGs@+RBLvv zL|7V+v*c^;%(z3-`1}y+c(q2oK-Z+;AMJNZG@KbfUc&PFexqt9nWr;=0 zc^?&ffKFIOut7W7ryztg7zS{NDoA@Kmv{ug{1c=0=3?Y?+yt-K8!*0LQ38s;s=q7* zLA#lv9Pu4s0Pm79^A7J6AG2W`v#)C?oZNe_Ogj4nQe^=(@l!oSLAV8*uevZve{7VS zy4C;vrVcc#S}e{>Vcj=l+S~FhNO*r+Fc7HjttKhG*@M-6j~mt<0h?-`R&$0J95YeX zyekDxtm_4Ex>E<^D~xIH2E*!uM!&5=87j2S22dgDg6PL}2&aPoxCV(GQ>d>+0;SWt zZ_#PY$z9BT&(0s;`E{W1oI%x9SSMtf@94JRliErx9Kn0}c#wqbAxiGKxeraH&IuLO zXQ14RY(3}8)rb{b(ou%q7&A`w#GC1CIby1L0mmgVf>@}e?K-Rj>Nn6#Qb`A?-fIEa z&+c_ZmD62MV9EMkU2M)fWRZ_RU*-bNZB091e8C7f%E!?}GjTG^O`YD4G2>JBdwvam z`u(DBnjm=eByFCku0^V#QD;u1a}%}$1i*nj1PFmiWoAPP2eMz_A|0T+^Urn_|CUG& zq|tngFBk&q6Qg}G;$#DEssmW8V9-W>ULhIyiXVAj(brMEPlNPWjNAa`UEeJv@nJ@c zOjYm(VD}Sc3pZi0Bk39?{f>tw3{Vr zx#DpItKydpDZ&Vdm>WUL(J48Y3^keo$bC2_a)q_1xN7-<&iDB01&+iv%lt5zmP4AXa?qpaak^GEbYw=Ed)^A z0JD=re?I549Y%1G(!6W#$h$ko$LBpUptR#jQC5B0m?uG|W|+J~L%*!32C4R>FhY)w3arl`Vo z#Zz7~M!U#UqE#>V-Bo45fd&%R2xGa>QIg7+@+wOoP5<7Rfn{iM}uk zx`yQ>G|G{!@#SZ=)`IO_?+GjA6cdu}G^Bgr!?EG8waCK-o;@f#UnpOKB!FCIyB4>C z-q02P1p%|~*Pn1BkxG`JTnIhwpf({!Zq+c@@*oBT-m=3R6w;60E}GG3hcY-`P2@?j)UHV?Dfwd1c1t| z_L>&4($#>J*)wmFzK)x4z6(YKoKj=Umf>dfosZns1|yX zHt8dVK-1u?3lBkE2&sD$0r#!H30`XOR9t=LxS%u?p#~t{$&08k%#_ZtVL+BT$@}ZlYqsPE$N|4#= z3gt~_;++LS6UAIe8-wE*6xPiuzgjs8HX4Mh}|)nrZc0?Y*4LDtkAmx*AGXB!=#Zq;j5?8)}SHEd@o;3Dd-}| zUX>&}%zcBb*~bYjCYg6#2K?OsTSzndbm8Dm&+Ven}@s0W99p(nKuX$ z#xs~S5)qNznrIt@iVdvi^cK=-i%V`pnr%>bUMdV4Qdqomss$<0#t0Znin9Ot z2-Dq*lYsx2`u!?*vj=Ga+HWldN;YtqqxwB(@+)3GsSIL)B-v-Km2xCq(A1o?QhBj< zaL81*h<)2Rz1nU<;>J z-ybZ49_3B1LK&WrH-fg`E`z4`6_%PO=!84wI=KqkcQ5wkZDMYp+eDo*;e0y%k7T&g z<0Q%}cd>)rddK{csE$*cs2lRW+&N5gqus$h1M6UfjfDF^D#!*X{JL5@T0aN@7zf@F zxc0`zXKQjj1;mFVBuP+Uv=G0vlpT-iZ#2Hhh>X2)MvWFzRJU$0pya0Xbrz9)72;^w(dTOo|^ z+jCbQrmsOg>#f$pBT#3n59bqx~P> zLeVwPTrqz1;j#lTFVHgDL95%tSh+P(wB)WVytBCmK)z;7Wf!H$+seXiK`=6666w>g zv<>Ray9omiT+fi%>*qAL@Zo|T#= zQ=C{86;I_pSQd&ioFmNT9z=cZ%zDtdR(feFO-W-_%)+0howZ>G%X6I=&TzV?w4*_S zrq2y&4={p4X$$WI*VUbw^PYR=pNfvfMolMQdxKkJr9;YGeuso^aRT68b;%S)eL*%@ zYq8-U*219x)Y8s2na(s^471AXzKN#e{mg<3hch;JrooAe_tuCyJO_$mrP&A{;Xk=y zv6WE@YR`R8XsGGcW8OI#+gqje?e-mw(VT<}TBNY2=Z~%hr^^%6zwYN7-s~@oRLx2Y zt2dj1BR{;o*TPxR&7cEwoyiIO<#GU~PYt-o+u~Wd@GiHT@1Om>wt_*ek0>^%;U%_o8m<4_6HH_e){=+KsCEl7QmHF!h!r5C9u>HxEzM?Ss5`lx*=%pA9}d8kG&dZc&= z{y|d1zb<5nzN4khHuz>8MEK?}pFwxww)H9{3t$yX@%M~R1hqwBkfh4K^{Foq?fsCj zzEdFJFDNOz;$T~-!rXK*Q20p_bKqkhpwl?jVznZyVj;d^8|CpxC3v-vwiz^AjXm`^ z196weKkSAgM(d9sDcHVv)>kDGPV5cc8CxnD1)H=Tke~Z1-!m2`L2h07Aar65Ji!fi zHC7VivF;Dz?_CYWKM#i`7ZtpY4Lljq_?rF;nD!KD5;PFfM&h{r`)fG43Fm_bWF35V zEE=FAXNJMI6zo(9g%c^v%s4;&*E(&XpGv6rnt1_K;-L!pKgpCv2BxGzoofo3jtad1 zi&lY6xJ7P4r`L%0j>WU>l2>3!@VY@V2+3N4McjlqeAoSeJ)`n4DU)_!RjhUD`=hb$ zN%(B8#Qw~PsPjtk;O{DV;*d>Z7d|$Ua zRNpf6AnD#RXpy)dP%Q=scBe}IX7$s{pb3ZvEFF6tY#-#Hb`TU)`Muqj7Ky*o-d17V z1x0!`BYI1l*cY=omsA7OpN0S(zOtQ-96Tn9)J=uP9tCfWBchrwOF-rY6jMg*WzZYa zpNK9sE8z6ek=~MD4+GtGX7TD%6!bg7bFaWQ%U=sdW)Fy}Jq7zW(iQv~Qn7NN(B5F5 zkjI}^3@3Izs@$)Bmm;LO78yW+m9B$D3Ea2*_0@=LmM9k{h6_Y8#iy4>AzfPXV3z9_ z$HUwN^9)gA)}41KQ5Pp*Zsm)aeO3{U;JMm&qqp#_Wm{ zraDD?O@fm_17_y3g1@fP2AU_h11fGWi3?Vzcd$ioBn%x*H5o9YJu!E}y5Ehr2F;XL zZl$ui{MXpoale=4VbWBK$d;}^fJ!~6bpWD0GJXmuC z?BliDu`mk?nxh2Pdb<`Z+ONU7hr!uVUv?W0_}UUdLE`L5-KDOahgEbNT%gUI^~wlr zrm=SXO8WxU2FYX@J^E4;_|EIO7@5=0w2}h$ARno;1S>6fUa;UKx?0|LhDq#^fLPL~ zj2AYi#wEgrdW9gMnso{6ugwp|ca2TD4zcAZ-KFrjEVH07N%1k>k>)mha9e2A{(*~l zOq7#_CP}ojYjiTqHC>ua*)tt_+4C#tAKip`7ZTTrItUAOygsWRRmzNXca+cuz9hDI z$`vap3?gS(V_)XGmCLjCoEu+afoeBU`{Uy1yr6d*JiI4$JvUXT$oxy!dr`$LD<5T5 zjdjzzck_X>qoFonkFtAZVJa@FSS94Ra_g(JYq;_;dt3X)-X5{jfZ`MGz0T$7P)TFP z=ZWn8rq|I6-jr1s89ou8x^R2l^+@eghJN-B*`~nGV*}nQA#U>Zi(9c5U%Hjoh$6a5 zv6YK{*?ox_7;{%m(ml7mOZ;Ig$MZ5abqCFkoA{+Uq`c*!sun3YovZ%|)rt0ehR{;Q7^7v~2<_2(DOD9EtBq|Cko zZyo}s2yb`7dNWSSQBTv(;T23Q_QZJvc@O&YfER`e`#tV<27O{pG*?{j`tGg6R=qJvIs-oG&b${t5oS@pRVEm*c>YV{X|t{5mEhySm7_MlM%}AUzzAF@pq}9hV@;+# zK7CBt>&`G^;t8&vTkC0G8Wo?;R(Bm;r?9!2Lgo~{_c-a)IEJ}BC~`-RE2MPCPE_{> z8^mEU@FDI#l`$@RHd0#Y47#a#Rwz_M#T|%jR${J8x*R1Rp{CT*vsVCvJNc-=?c}fc zd!tU*s=HJ~x0TYcf8(1H{l)lA=?)LN1T4nuuEdkbF0 z|Mt-&V`+YVWkMR-4K_xNU#}kiKZbSRl?G02{5YHTPw%$;bj2B`kPe&sZTo~ZrLrpQrO)Ei`CQWRTdrum!Mxo zD$>=_KJA+MaQ!;;rT9*ZYNg!lri%1w`?cul9+ww=vF&Y+l;(wOuxY=KRjFk{cl1K; zMW^L9aB3tbBzAZ%$urNaAa~^g<1kUJhrgkU`R-1$p#4nX?LhGmWlrdCeTxy6ZR(xL z_=qPl$j#lbclroTH1JY>Q9%1tc~_S>aqi*z;u`Z$lPko4Z|!4oYW}CIxzqwKEse8# z6!$9{tLO|Qg<0Rc%C2vCSzeoMs&U@4MZ*seCHGtdt%V>cw}r^~({L)2=!?E2-I@*5>rM%r6!B>4Om5dQDu_tO`{xfPmILX8SI|%Uj1+eZf9sfqt1TcdVYvs?B52-}9}Go?&kGd6$^& zNrX9ZiH7@@#}{v~POW?$FAd7(iq}P2qF;lz9B~iTZ?)ZPxjbOAvHJ@UjY=#D@|QMm zoRE1t#vauEXtGUQ?tpGn-Q8CXzy4xP8RUPcZ>T9hDk(+wt5(XKIpJ>4&~rR^34>PHNx&sHsd^Lyy=VU4b__QTO4DFLYYn zyu`s(T5fgKEy*(PtTuf03C({pm>4v(6qxsrjk@|g0Mg=6pUMiPt65ZJk%!Tw!eStZ^57~j&5J#An~c$V(7RA=JK zn7>#Y<}B|h-litHn9Wr;`|Y9o(k-@nAMZb?@JT|=>SVJ#)L@l-6|G^ey$O-O47DYg z^pZyWTe27Vw`FC}pUg`d46iDEV?nQC8#vbNS~or$)x=+#!7L&-Ts(X9fNg7ST%@Rt z6=`7AW_DaGcR0B*r7EJ*mGgy1|M425dQR2(Ee#qcPgSqo73@Wk`DL41!(sVtubGpz zCuEnVCr`v{wU{xCa~!WkTbgG6bz8&U5HBAcUy+sUmKMT84^^79{U1$f>=jjU8()LE zHFRdak~cK!REgWEh*_l`dJz);t(ezG{-Ft9+s zz!|>F{^QxdqE^FSKAwM&YkY)g+XDSeA^gQ|aAXVU_z;#0nc zr_@Y<%Y7yGv0Te}o>p(cDIM(xKJ=$02SkJBsV5G(Uxl^f55yI@LHh3CR{Sg6+!DFW zK^c)wJxF@;sd)B6!^PEG>924>gO~*BI^?cdHXgGa=PCUboCDE*+SY^M)z%-oaguxc zGer}78qqn1*gUqb%^m!$U?NQuT`9A2Nm%e0jl8{^1-XlxT*zkvS!xW=fBqIR S{f-HIw2$Z=esSpR)&CF2e!b%W literal 0 HcmV?d00001 diff --git a/R/chapter-3-beta-binomial/ch3-beta-binomial_files/figure-html/fig-beta-shapes-1.png b/R/chapter-3-beta-binomial/ch3-beta-binomial_files/figure-html/fig-beta-shapes-1.png new file mode 100644 index 0000000000000000000000000000000000000000..7e82ef9e4a2fedb1b3a3a37f89aaa6a1bd9c576d GIT binary patch literal 20834 zcmeIac|2A7_dl-Pk%LSrBD11WB#MsV>{28d3K60R2ca_0?I=lTb~ByRRfr_BjNu)X zaLPP85hvr3c|5<@K5n<$?|nb_bKk@FkMHC0J=gWf-uty)YpvHBo@>2c`-BqU# zvN16+acCbse3FTY8D?Ty`x?6zT&XOO9A;u#Q)6)4=m_|ei3!KVWXFWVG2y`P+e~(O z0s?pe0c!y~UH}h%BLdb$K|w(U1qJXN`V{)PjkB}E*@54AxZB{T0}MbP$6MpAiFl+$ z7yY>C>PG6ifS)wo$hX!Eiq?1mYw!^GAc!?Wv?i8V6Wi<<)7#;g>~J_c+-;OF`ne7M zv%3v`=h@|T*yYgyIT!R3=@Oad68Y98tslV)Ab31tjb{)mK}y;p!IUoG2RxD%nf5j^ ztv~WD_@Up%G2I4CGpOIbod-zX?w}K`1&G#oA_9J_iA020QbH_gBeu1rx#*_3xTHn8 zq`mD=>!;`0G3D9e^6c#LZsYQ9gWtFF00Hpn=*a7!=h5jU2)+cdE+K*+q=X1)w7reg zeH-cW_AMYle@myg5v|)wkhT(HTM4)cW&pq2I&R}SZrgR_fuGxe5aUDdpm%i8>HTRg z{cj`t--5~M!^6XX1Nz%YddF>gM;>~=KaJl1mfjC;g2@4SbOfDFPb@I10E@|b@#twc zCMMxf^#3(cUnXpsn8cX04<9u0jvI{+FWOe^VPY;7xgqY(9=#hk4%lc{t+AeXx%M9# z7p`$@uCvwmZm~Kw4l=C0&2~cfakt|!B>F8PR zPuB<>QChpZbnzWgd1s4%$Wo_q^F^BfsFuf{$aw;LCP<8oh>;Zay_3)nR zmLBC&X-nPZGJ4}B=c#X1R!a|>i$)6w&gT=e8~q-?IDJ`3w5`s)%efcb8eC4Fy=7?W=8L%# zi)H>Ya|x|x>v@%8ccI(_Jx)cr2@OdiF{IHS^uy1@wv31M1dchb>HN?#P9G2Y_N;QT z*F3+@#5wTSWqUsd-Kl({!ZPiRru{SeA>-_Rml#ggcbSawT=v+-d3DRw19)H0n1*rx zp@GA{;%npgk=uQ{QYU4dsrlqf7_L7nd11+U$5alJRFzg%$B335qhA+S9Ce7Pg0)pDNYSaC)DNo zDQucQ?O0;av}-;t$pL9r*4?s!N@1&6aUN67926RuQgtvHPgb%QZW*moCspkzcHe66 zKts8Ajxo#dGMra*K1vFm&97XfY)MYr9hxQ^e;{bMInW`lhuv!Q0YRzr@ZBitu4ya4 zOQ&u_N40LH#vO*%yND+Kea&A#=0^E{8EtU85E_P0@bDj3auFU_S`wKX9h~7Z^&d2( z6!EH7Z50I;R0fy?7Nnt>ur}R0X8%@lU#K*vRsMAI*S4S0TC2 zaW5*0FBRfe9%vMGKNS#p5*;Q=|GMr$HrwF;h;jh&uPB@8^2p=qoZ>Ey+Z2RGp+3bs*F2su{nY_bzF4wW>Bx`^4y zoPXvS)=2pO4f^jWf(<(rTvVi?KCv4UvsQ~FLctobxfGpb#w^e{p)=4=SI*8_&s{V2 zdSU7P?oGSJHX6SK`7`Yk#8LO$G}I#E$>!qQ@c5{uCW*b5nct})WN1C|f=O-{nfBqP z$J?f(H_L0VQ}3Me%OYX^*EPGFlUSPtpfhVMPmv@QWSYfIBzLTnlO%JEmD2n&Mm)>r zq@dbhe)H$Lye||mg-~${Ty1yixyB34lk340gMLSgu4#h?h7%%2Dz@A<>(*N69<9)?vRdN#3Q*^~o=U zpKm+YCz;pbs94DzU!l%vCTm0 z>gGRlK59E{Nc#rqDpEax`&bT1eM*!Y^UN|2uACb&ymZ z>Tiqdcij4>7u&eCxYxQX$m%>*?l9@iZwAAYf)he~LnIA$6pS7_LK?b=8RChApZ4a- zY(i2ic~Z1iB{RaLa{jQXKO0nf9lp1|u+Ubj%cSWJh*_>HpIxXr)b> z_+6BrW9c=%;moZ6iYjTj7(wSh7v(2=^M3TkH&y1pqDudLNR^;_5r`35B&okh3zp|I z6VllJT~)U55}q8)SGj9_5#zYwCsBS@>zIscJW$u*ni74Edn$1hFJf; zE@{Thf;NA{EPmGI=kVM!y8nt?GGy$3D3@=hr{iDC}?JS6KWPWj(4R8CqJ%$6sA@GnJGQOH2M1n!*3L07E0AJt2;$HSa$#T@G)S|fAmssL$Zj(24?}*o;Gb6dr@&sPyETfI%luyV z$v4_vD8PI0nin^LFRuC*)d~}SfF?GD@^7TxYw^S?^2+9$`rPj3^bbJ3i3K=#A4Ix) z#K{%~z1G5fC<8KB_l4{@)K&`AQ{7`nTqJD&kc3$g^#WXgEBn+V!^@`U4+?%vCLawr$GlzIehFXTw>TV)ZG^WI z(?d6r;^HRC^8FqS0?76=WLlxDs6e&Xe~25-yg;jKVpWCCFagx|c<3PM*l%b(oY^HLP``r8;%`HbA5M0S&#B<@U+2nP49@X)45`D?mO7+m27z8U+% zfP?=UlCn6T8QG14Nw~jTBw6T_Y>3+Ct;DZ0%#?o(r-i-2t*G^5jaYuD?4R^}6B3>e zXuh`m$i<2q;ORfZdjG>{e$(fP0MDBJZ9xo4<JgN#2c>Ysq8RjFz9au}TZ8~*-Z zIVwnnHDs*+chFJlovAm+i#Yy!_|1b^(3JO2vw;6s>-cZdP}9|a3suXoyBF-t`!g^z zSMdh-RUebe{GUTy3v*JiN9LcZK6-bvLy&~Q?!Uk&t8(q$VUTr5FzHrEMFknu{==0A zKo7tK4~=HrLg8|pq4&L?7nOf^v%ue?{J+;B3(#nK#CK3Gclx>8zhZZPQIv3CbBb`^ zm0x-`vu@$vwvYdzD3}lT=q6%~*j)~i;+eDlbOrv&C0Fatzqb2qey0#TPYNIC3wP+8 z|8D$`!gC$CQ_dBzB6%%u(b^LYt&@CC4Tl9b0>rT!o0F~iUEG9R(^#oG62NpWFsWt?zP#|1L+H7U>n5A3JZra?01D(Hiq-+xnZ_(2Cy(4x%oUFF|G( zdBXqi6MFtekl~9;l4SPMIz6_3J7>A^IX!0x90}`(+kRiT{~4V8-9&4@tC@g$TY)$t z5?%9s?f<5pepYS+zf&=T#k(*UyWKyrm>L2H&AoT=S|pYQ!;_%V@LTgQ^$I*b&grva zj#Xs;!L=+uwNfQNX!_f?k1|F4JOsWUIPr`u*{>)%N@V#ko!cF4gCrE2@-Cr~KM7N~ z3Jol$q&~5D@eo9QjM~Ht2+B>lN;0}QKLp%?tbC2{ims!teAw}7*WP%|sdEZh$jkGm zjtwaHbd0(LjV_dN6WRio&HK6zA(FJS#BZLM6LJ*e}Zq}{mbj>cNFt= zHt$$!`n3&hHH2HPT|PG~B!cjrmn84}EhW9d_|BhgDGSf}4rNw7_6r7A%u)99HGX!q z>tyJKiTOk604{#({;Ci+yN>w9!eemgnsnAZhTK({oi8s)b?}EUno9xR_OsW#WQqQ6 zUW>z6MUch6cVK~1zXbQ?%Xf|SglPS-C1tb*u~c99{6HN~A2_?1s$wGdLvatdsiurJ z)$c3zPwm>$g~{z$cjkh9h-}b;b5_7f8~uO3!K-~Ctj7)}$-J&*b)S$cKc1)WIP&aY z0T@5kTB_Gd zM(Jl+V*<=pusQ1rv=PlMjc8966hMEsn)zWRpil3;Yq5Bahrn?$7K+%HlD68e``O!n zc+gKxzdq)LIeoqP#Io5AtP%GQqMB?|^()41_qfCjw7s`3`hJxp3-)R<3pyB}t>Jop z>Y`lkQk(x~8fPmN_IWwAv?h(KCF8_&-mD!M1JKoSmzvqj5W;zH)hzB055+ zyZJ?1F3Uih{?L0n0R_;XCI>EG9< zV`Gm_m+P{D>>J)&gNaG_y(`|a5!A7}kwJXbloLM4t#!WJer2!Hovjr43nEW4I9!ZK z{8&X%-=oKg-_HUh>?YSG5>;7tu8-nP5fcJ?1o=D3;VJrVsKXT8f_*rRHvh1SI@X*; zT~akoC}sPPfD_M4U1_TiRObgNcxSaHDfc(zUB@;x5wtR5KWp`Lsm*ProPKLc8hT(O zNp9~=Vg^v*^u0mLVAN8p+6n@v%xeyI#n0RfSFjbaIYa_z;(Oy7teJh(iYUg6 z=?6QS>{C%IV=Ie?yXhSh#Qwu1>kAk&;m$mGewRO|KLU%=lb1(lWsuUwrK3|{$f%m; zREvtbQBSFX;_(=deRr*C%uqmyLty_ne(`Zn;F8?@ekq4P=wF%)){I|o_A{N)D(S&MXtmXh)A?KKq@C|+QDBy7`m0#aK^>C`6q z^H~BN+VOGZV-2a*@f`_oxKQA-+Si}ZupWL{sQ2d8^*`BJcpvK;C5fk%C9PAj?m$3&G zTyoz?eQ^9$*jBdR?mT{V?hq++L>Vcay)bErSH=R**2^w?90Gp(#wd!|@D5!7v9e?w79w@N(aYnB%2 zz=dpJ!a?-uL=&e;Ip73G7I~5PFL?-uXS!A2D;#{BR8yJ*OS7;dRauG5F?SdS3!Pby z*Pg^iDFG64GUP`Z20$x%Jk&n?K@xMX!btfsEz)w_1E1^Ff{pHNl4PO0GssvO*VInn zT9rK1Lvy)u8I(ILfVK!S@G>1(TXcrpN4n9J(oTl=^H3$cbsj3wl!Ier{V*|=`*)H{ z@Wh4IvK3MKsDcT*!ps3*%+3l;5+zQk?Ud~n5jU-O?rr@1)cXf{2)k5(KU?BUrsm3M zMKoZCF>CQ^nT-=Li^zoOJ;3lT@>d4KU>Td%P-`2A8IvdUPR}X&71Z%i-`o)Kqn-Y3 z-n<>;Su4i?|9j(WH(i$`yL->kE*~e^r0zL0gH;T5HYV-1|K{O|P60M!ASk{NcMFz8 zjVDlYdB?a~O-ox?1rGsi=*Ws{V`A9q%fcF0grAIS1qlYCXiEJZ=kv>$n{dNoFdSVu z$-Jqr8T}rjHOs!tjbj?5j~8Dck?vST!hj1^T@*ic?z^R6Vv0a$<{_+8 zHC?iSzQ`w?4NXeWhe>xXFcOmh?d;d6avnl~26iKYyMpSgU`mS_C&AWW8wI-otMdW@ zL;q!^bgB+T1QP?cAh1RtCV<`&VXyy_Z#)FEP$~8Pn?Qw(?$14n%^{&p)EgJ?`F_?X z@#eR16Si(aH^B%y{ik9EKpc}Ge?f~D^%FA`^KCkmX?8^cOTyOVnB-hd(%uW-*_BXD z9^oN)Z@m}wrH|70-95>Nz3WQ)_VQ~afybM92vu)xW9A6o;gljr!Yqvg;&47p(plxE zq1T7lEBozE$g=^5be@#;TabYY~bRfhIC z6awx!SEmCj!bHR|#e?K|PE+=(1le>yx}i_T%-zS^Gvnqq)jvrn*hu)SlqOZ7CFqyB zx=lDid$*Q+S{V{vhsfGUqGtmlLiHEiEJ-DJmp>4v@p!%>9!fJIHL#E-FJf?5=uDL+ zx&tZ5L7b6>YN-ZuvKycX+f@qJ>V>XoVsqGmF931Aviy3FLit^sUH(->o>db6SS7(q zRAB;vkmcMTC*0%r*<3EVB5hL&lMph)Ta3N=U0aeA3CLOFc=WOv#1Uk;6N)&`m^D6B zDfH;;4xv99lqC7IcO1Si5;ouZ$IC2jhCM~48!hAESj{19j?P}dCz~SeNDx->ZUlNH z!hKygD5K-A%^ppv3EYRQD{~Y?G_x2*ecfxG?a;n8j4d+vb&)Vn3M;y`AexnIi=Z82 z#rv<{{-%4bR)wtAIQUhVkrC-}<`GgR>I>u9gYKDX$hXag2a$ErTUK@E9i`@1QFsu! zUbk0)g3XDgUDjBAT8lJE+Z>>6~Z1muN4w7nG zA!vDE>~@Eh7U?ulE_)OXi2{osD@L{*`2q#JELu*Bj*hbI2>1*tJeE4$C#Yh02zsFf zVL3NSOiB9SmIJ+>YfOY51{+d9ykO_&-(HV&hgARa@Fl2uf{T(R>p{f_?9KmeLg`?! z8lss{UJW=?!Md;U%Y-w6VFijf!WUw)!{D4UG|G$&WWB*Gly?mm9j%YMTifmndf@Md zqUO96Z(UTn6>9LUdSYel&19Jb+4ga9(T+VLtCzE?C)PyCf2mljbcd}%Zb;=?lv=R< z7129M`l{E$9mX~$6w!Pxh=cCBTTu`f$PrmQ1h54k&Ypv>!YV%8ElFNP`t&g|HJT)0 z?-8{*MPxsJ6(g4nZ=@;(gWi+R$boYg^g%Mh=4`>lyyN4h-t#LOTogTYh%^swi5aW` z++UBnY?sB1@pYZ8P$}nMt-Ra?Esv5SCbFzdP{0*cVnLd%29@6=I1{iostgkYwzIp$ z$f`5eNZ>^;ue$J(XvR3Tndf`1FQG8A~912ov~9i zJ=?;O7Jh=$6OiN>fslImWL+;WFeV^lCBx5fcQyt|kdFu-0*M_p#Fvth1>7m?RloM~ zA+o_=tMlH+hB>fPcBb9#E zx+HEO?_FMLj=^=eYCP?}ph0?1djSM<%@ZfP~w! zf=Uz*0gqLDgsRmU*ld1&lLR^IfzOE%mS|aSs!`v9Ol}DWvJ*{(r??4^h)b%OhGynG z1VhfihJux2&aSAKPM-Y~Zs@@k(RN9)B}l`l;?1Gm*zpT#he&UN3YWK&O@k%KPiezd zO(u@^TOebA6fSaBo-iX#gp#%}sC5-A92-TI24X2V4P=Fy)*X~Bd(V-!eoaifm;r~)BevAIB0-VZj-oB47bPc)R@J*M`!3uU8XyTdzb~(kaLQ;L+mA_I zuSI&Sh&9qcDMz4`r9GEkonKd+pUws(Cw7R^e|@V{k9C({YApD6Y}A<{8MreG77#Ri z@`B+8bgd)dwV*xu5RSb}GwgdWlbesKNA6zTR?tqZ^0-X9$=ohR_C_94? zbSrUEY8y%xvzkFIy>ER5UD>2;9>N%7`)fHTB=0IL$BlX>f@(Bc8?Rr=f!a|==!&Me zcN66Nn;CKebKnBYtELP&vmjO3j2traNenefP*tI;3ewvrk%%VD`!jQ~BlVQ<^5GYa zuhDfY6ZF8eM_z>`yDPxaM|O;0Eo#Fhz_&CyxCx?>aK}N?N8rjFQGPe1cr6p*EyBn* z?I*EMWVHcu%GBvwQim?uD!O zOi6;@@9B9@nVd$8lQdpJFsvVYACsCT^>h`Z0kC+mP$TnK*glB~IR>6_dfq4x)N~D8 zzmLKBfi%6XH?(TssiDol8!C9HV%VwT@47Q)8CQ=DRsx{O+%;8Y zt&8Z@S9qemW>!=pEBa$wj3Ah7Sd2{A4>euSpl2Safkyddp(e0$L!xpIttH8w@oAf0 z&}x|p`aQzfHg|_ zWv}L53io|U157G7^B2Ef$I}+k+rAdLS;5Odr9LVq(n5&mue-?Fwiiy2K7uwr)@W_F z7}*or6b?^gVlD#Z@}#U=dU=S4dH}f!ZY!qmgK9fo?F3<-cP%7rQYFPK=wtvEe^W09 zGQz8_hfftP@xUqQ)W1Y1MUR0xWq)T>^nwnFg>8(w{(g#iMRJ?y#Q;0!}s`%tJDmLYG+ zNhIL2gprwEto!{4cpn4U++@`9UW1NTQHpL5$8vF35;KmWKa&uzXh}d+p7MtFY{o`T zjBM$I!2v+e2E?j8>;w3VSyjLh+BziflcJ&Y4KqmC)1eQF-;bKoaJgUjr4Gn>J)2@{ zvM#&(7&p53)4kX!DP09;0}kZ+Vh9{wZvR~iT*X!~=6r;P51Wk+k|YD#3t?%78gaBQ zq5H9leCj>w1)GrTz4!RdfNh>(k-g}01Gb?|js}C2JBKwIKA9`bA!guQaM%`L>pB0$ z-cuM{h?8Y%Ug8=MD7m5s7-9QF!8Rndw7%^l6Pjra3jG&9NIjQropsgg?m;!l8 z$FaJ9!&n-FOO8h-Rv8MI`xfprhUT4?z@a0Uc2=O9b-j;|+yKH4w(FPNfEOtnMG(hI z=2F6^XxP54*O>Wz@KlKynYJa?=AXCRpN7p5#R#@vhg*Vmmdpg8i0k!v zME_05Or_27$Ie)HkUx%)D9y%LcmF(8MQcO?S$eYIL0M#o&Hde=a2%Wa`NGv3mVq67 z0Kxe$evL-MuX_Op@`72^hptJw);l?xY^6yG79&%@{CxiBr=3kn+4i*ekn=1jVtGq{ zGnnNIsDHMDlzwAIAp=BpZtB@B&>2?sg|P@Y{Iz6zeQ_krB2ct`8zlOho5TgoQKuy_ zW*Cu=fdd{G+U)uL{r&o(?w25o*|gX1gGs@+RBLvv zL|7V+v*c^;%(z3-`1}y+c(q2oK-Z+;AMJNZG@KbfUc&PFexqt9nWr;=0 zc^?&ffKFIOut7W7ryztg7zS{NDoA@Kmv{ug{1c=0=3?Y?+yt-K8!*0LQ38s;s=q7* zLA#lv9Pu4s0Pm79^A7J6AG2W`v#)C?oZNe_Ogj4nQe^=(@l!oSLAV8*uevZve{7VS zy4C;vrVcc#S}e{>Vcj=l+S~FhNO*r+Fc7HjttKhG*@M-6j~mt<0h?-`R&$0J95YeX zyekDxtm_4Ex>E<^D~xIH2E*!uM!&5=87j2S22dgDg6PL}2&aPoxCV(GQ>d>+0;SWt zZ_#PY$z9BT&(0s;`E{W1oI%x9SSMtf@94JRliErx9Kn0}c#wqbAxiGKxeraH&IuLO zXQ14RY(3}8)rb{b(ou%q7&A`w#GC1CIby1L0mmgVf>@}e?K-Rj>Nn6#Qb`A?-fIEa z&+c_ZmD62MV9EMkU2M)fWRZ_RU*-bNZB091e8C7f%E!?}GjTG^O`YD4G2>JBdwvam z`u(DBnjm=eByFCku0^V#QD;u1a}%}$1i*nj1PFmiWoAPP2eMz_A|0T+^Urn_|CUG& zq|tngFBk&q6Qg}G;$#DEssmW8V9-W>ULhIyiXVAj(brMEPlNPWjNAa`UEeJv@nJ@c zOjYm(VD}Sc3pZi0Bk39?{f>tw3{Vr zx#DpItKydpDZ&Vdm>WUL(J48Y3^keo$bC2_a)q_1xN7-<&iDB01&+iv%lt5zmP4AXa?qpaak^GEbYw=Ed)^A z0JD=re?I549Y%1G(!6W#$h$ko$LBpUptR#jQC5B0m?uG|W|+J~L%*!32C4R>FhY)w3arl`Vo z#Zz7~M!U#UqE#>V-Bo45fd&%R2xGa>QIg7+@+wOoP5<7Rfn{iM}uk zx`yQ>G|G{!@#SZ=)`IO_?+GjA6cdu}G^Bgr!?EG8waCK-o;@f#UnpOKB!FCIyB4>C z-q02P1p%|~*Pn1BkxG`JTnIhwpf({!Zq+c@@*oBT-m=3R6w;60E}GG3hcY-`P2@?j)UHV?Dfwd1c1t| z_L>&4($#>J*)wmFzK)x4z6(YKoKj=Umf>dfosZns1|yX zHt8dVK-1u?3lBkE2&sD$0r#!H30`XOR9t=LxS%u?p#~t{$&08k%#_ZtVL+BT$@}ZlYqsPE$N|4#= z3gt~_;++LS6UAIe8-wE*6xPiuzgjs8HX4Mh}|)nrZc0?Y*4LDtkAmx*AGXB!=#Zq;j5?8)}SHEd@o;3Dd-}| zUX>&}%zcBb*~bYjCYg6#2K?OsTSzndbm8Dm&+Ven}@s0W99p(nKuX$ z#xs~S5)qNznrIt@iVdvi^cK=-i%V`pnr%>bUMdV4Qdqomss$<0#t0Znin9Ot z2-Dq*lYsx2`u!?*vj=Ga+HWldN;YtqqxwB(@+)3GsSIL)B-v-Km2xCq(A1o?QhBj< zaL81*h<)2Rz1nU<;>J z-ybZ49_3B1LK&WrH-fg`E`z4`6_%PO=!84wI=KqkcQ5wkZDMYp+eDo*;e0y%k7T&g z<0Q%}cd>)rddK{csE$*cs2lRW+&N5gqus$h1M6UfjfDF^D#!*X{JL5@T0aN@7zf@F zxc0`zXKQjj1;mFVBuP+Uv=G0vlpT-iZ#2Hhh>X2)MvWFzRJU$0pya0Xbrz9)72;^w(dTOo|^ z+jCbQrmsOg>#f$pBT#3n59bqx~P> zLeVwPTrqz1;j#lTFVHgDL95%tSh+P(wB)WVytBCmK)z;7Wf!H$+seXiK`=6666w>g zv<>Ray9omiT+fi%>*qAL@Zo|T#= zQ=C{86;I_pSQd&ioFmNT9z=cZ%zDtdR(feFO-W-_%)+0howZ>G%X6I=&TzV?w4*_S zrq2y&4={p4X$$WI*VUbw^PYR=pNfvfMolMQdxKkJr9;YGeuso^aRT68b;%S)eL*%@ zYq8-U*219x)Y8s2na(s^471AXzKN#e{mg<3hch;JrooAe_tuCyJO_$mrP&A{;Xk=y zv6WE@YR`R8XsGGcW8OI#+gqje?e-mw(VT<}TBNY2=Z~%hr^^%6zwYN7-s~@oRLx2Y zt2dj1BR{;o*TPxR&7cEwoyiIO<#GU~PYt-o+u~Wd@GiHT@1Om>wt_*ek0>^%;U%_o8m<4_6HH_e){=+KsCEl7QmHF!h!r5C9u>HxEzM?Ss5`lx*=%pA9}d8kG&dZc&= z{y|d1zb<5nzN4khHuz>8MEK?}pFwxww)H9{3t$yX@%M~R1hqwBkfh4K^{Foq?fsCj zzEdFJFDNOz;$T~-!rXK*Q20p_bKqkhpwl?jVznZyVj;d^8|CpxC3v-vwiz^AjXm`^ z196weKkSAgM(d9sDcHVv)>kDGPV5cc8CxnD1)H=Tke~Z1-!m2`L2h07Aar65Ji!fi zHC7VivF;Dz?_CYWKM#i`7ZtpY4Lljq_?rF;nD!KD5;PFfM&h{r`)fG43Fm_bWF35V zEE=FAXNJMI6zo(9g%c^v%s4;&*E(&XpGv6rnt1_K;-L!pKgpCv2BxGzoofo3jtad1 zi&lY6xJ7P4r`L%0j>WU>l2>3!@VY@V2+3N4McjlqeAoSeJ)`n4DU)_!RjhUD`=hb$ zN%(B8#Qw~PsPjtk;O{DV;*d>Z7d|$Ua zRNpf6AnD#RXpy)dP%Q=scBe}IX7$s{pb3ZvEFF6tY#-#Hb`TU)`Muqj7Ky*o-d17V z1x0!`BYI1l*cY=omsA7OpN0S(zOtQ-96Tn9)J=uP9tCfWBchrwOF-rY6jMg*WzZYa zpNK9sE8z6ek=~MD4+GtGX7TD%6!bg7bFaWQ%U=sdW)Fy}Jq7zW(iQv~Qn7NN(B5F5 zkjI}^3@3Izs@$)Bmm;LO78yW+m9B$D3Ea2*_0@=LmM9k{h6_Y8#iy4>AzfPXV3z9_ z$HUwN^9)gA)}41KQ5Pp*Zsm)aeO3{U;JMm&qqp#_Wm{ zraDD?O@fm_17_y3g1@fP2AU_h11fGWi3?Vzcd$ioBn%x*H5o9YJu!E}y5Ehr2F;XL zZl$ui{MXpoale=4VbWBK$d;}^fJ!~6bpWD0GJXmuC z?BliDu`mk?nxh2Pdb<`Z+ONU7hr!uVUv?W0_}UUdLE`L5-KDOahgEbNT%gUI^~wlr zrm=SXO8WxU2FYX@J^E4;_|EIO7@5=0w2}h$ARno;1S>6fUa;UKx?0|LhDq#^fLPL~ zj2AYi#wEgrdW9gMnso{6ugwp|ca2TD4zcAZ-KFrjEVH07N%1k>k>)mha9e2A{(*~l zOq7#_CP}ojYjiTqHC>ua*)tt_+4C#tAKip`7ZTTrItUAOygsWRRmzNXca+cuz9hDI z$`vap3?gS(V_)XGmCLjCoEu+afoeBU`{Uy1yr6d*JiI4$JvUXT$oxy!dr`$LD<5T5 zjdjzzck_X>qoFonkFtAZVJa@FSS94Ra_g(JYq;_;dt3X)-X5{jfZ`MGz0T$7P)TFP z=ZWn8rq|I6-jr1s89ou8x^R2l^+@eghJN-B*`~nGV*}nQA#U>Zi(9c5U%Hjoh$6a5 zv6YK{*?ox_7;{%m(ml7mOZ;Ig$MZ5abqCFkoA{+Uq`c*!sun3YovZ%|)rt0ehR{;Q7^7v~2<_2(DOD9EtBq|Cko zZyo}s2yb`7dNWSSQBTv(;T23Q_QZJvc@O&YfER`e`#tV<27O{pG*?{j`tGg6R=qJvIs-oG&b${t5oS@pRVEm*c>YV{X|t{5mEhySm7_MlM%}AUzzAF@pq}9hV@;+# zK7CBt>&`G^;t8&vTkC0G8Wo?;R(Bm;r?9!2Lgo~{_c-a)IEJ}BC~`-RE2MPCPE_{> z8^mEU@FDI#l`$@RHd0#Y47#a#Rwz_M#T|%jR${J8x*R1Rp{CT*vsVCvJNc-=?c}fc zd!tU*s=HJ~x0TYcf8(1H{l)lA=?)LN1T4nuuEdkbF0 z|Mt-&V`+YVWkMR-4K_xNU#}kiKZbSRl?G02{5YHTPw%$;bj2B`kPe&sZTo~ZrLrpQrO)Ei`CQWRTdrum!Mxo zD$>=_KJA+MaQ!;;rT9*ZYNg!lri%1w`?cul9+ww=vF&Y+l;(wOuxY=KRjFk{cl1K; zMW^L9aB3tbBzAZ%$urNaAa~^g<1kUJhrgkU`R-1$p#4nX?LhGmWlrdCeTxy6ZR(xL z_=qPl$j#lbclroTH1JY>Q9%1tc~_S>aqi*z;u`Z$lPko4Z|!4oYW}CIxzqwKEse8# z6!$9{tLO|Qg<0Rc%C2vCSzeoMs&U@4MZ*seCHGtdt%V>cw}r^~({L)2=!?E2-I@*5>rM%r6!B>4Om5dQDu_tO`{xfPmILX8SI|%Uj1+eZf9sfqt1TcdVYvs?B52-}9}Go?&kGd6$^& zNrX9ZiH7@@#}{v~POW?$FAd7(iq}P2qF;lz9B~iTZ?)ZPxjbOAvHJ@UjY=#D@|QMm zoRE1t#vauEXtGUQ?tpGn-Q8CXzy4xP8RUPcZ>T9hDk(+wt5(XKIpJ>4&~rR^34>PHNx&sHsd^Lyy=VU4b__QTO4DFLYYn zyu`s(T5fgKEy*(PtTuf03C({pm>4v(6qxsrjk@|g0Mg=6pUMiPt65ZJk%!Tw!eStZ^57~j&5J#An~c$V(7RA=JK zn7>#Y<}B|h-litHn9Wr;`|Y9o(k-@nAMZb?@JT|=>SVJ#)L@l-6|G^ey$O-O47DYg z^pZyWTe27Vw`FC}pUg`d46iDEV?nQC8#vbNS~or$)x=+#!7L&-Ts(X9fNg7ST%@Rt z6=`7AW_DaGcR0B*r7EJ*mGgy1|M425dQR2(Ee#qcPgSqo73@Wk`DL41!(sVtubGpz zCuEnVCr`v{wU{xCa~!WkTbgG6bz8&U5HBAcUy+sUmKMT84^^79{U1$f>=jjU8()LE zHFRdak~cK!REgWEh*_l`dJz);t(ezG{-Ft9+s zz!|>F{^QxdqE^FSKAwM&YkY)g+XDSeA^gQ|aAXVU_z;#0nc zr_@Y<%Y7yGv0Te}o>p(cDIM(xKJ=$02SkJBsV5G(Uxl^f55yI@LHh3CR{Sg6+!DFW zK^c)wJxF@;sd)B6!^PEG>924>gO~*BI^?cdHXgGa=PCUboCDE*+SY^M)z%-oaguxc zGer}78qqn1*gUqb%^m!$U?NQuT`9A2Nm%e0jl8{^1-XlxT*zkvS!xW=fBqIR S{f-HIw2$Z=esSpR)&CF2e!b%W literal 0 HcmV?d00001 diff --git a/R/chapter-3-beta-binomial/ch3-beta-binomial_files/figure-html/fig-beta-vars-1.png b/R/chapter-3-beta-binomial/ch3-beta-binomial_files/figure-html/fig-beta-vars-1.png new file mode 100644 index 0000000000000000000000000000000000000000..b0294385923d9b3d0b4c1b56cf295d343d5a3fd1 GIT binary patch literal 23493 zcmeIa2{@E{-#D&mWb8|J*~^mT*t5>4gb-2*MJY=ZWl8q#6lGT`vdnZUlu#jAhDx?< zQ(3ZS8zNiwb$;J_hN5$x=k0x-=Y9Xz^}pUZj!Sdj_xJnR_wRkf_<#;09WNaf6&0hN z?%sn`RMZ$Ms*SHv8^JdvuSAEas5aCZ8ywOG|D>W)rJ}N|XNlpm}&~ zc+hAbH24ki*kE~idFAEh!F}*u@Fz;u&Q8@1{C=q#1%6t=1Mux=8?+6Cw!xwyydnH? zHZ+VdbOt|Zh7lDuii$rN z{(nPc-?%Lml@OKQUadoy5{B`i@mu>nuuX?{d{WA}%F)bfQ-$A}`Uh92-j4a?aJ`lY z#`iZW-rYF4?LKRWu5T!{{)dlSbwi^vKZJ1aJog&;2kBgL=BM_<{c2NwQ$vHMDIJ{? zRBCD(3)3ndwS}gBi47XUSEG`jIv=MJzFMt_iecH!8;GG5ekl7d{&^58(yvfBIZ<)$ z3P$hBGp}AHE!Qx z=IZ?|)hv(AK2grMF2p_aYF9|_nz2$udS86=;_mPc)FEts%~HGdV%)Gcb}?(TXkn>1 z-dBzdUzXt@>aI(c{yLprB(iGDoLhBvM0zrnz}8E(gQ|#>_lP#IA?m zyXr>q`5e8Y%iSXe6S3W9c)#(|P`dag!xCQS-g&d-CR!tw3xZP9bRks~`v?bdDWQ`yBP+3lZlXZV(2YINXM@#L$#1vNR(yVkm{X=NpOfnGjOM$@X> zt#^Mebhc<5d-H&_(C_)DMqMd&sMX6XA!EOeOE2==zUNxCqei+Kr)3sv3(&Ju!}vRD z4fu)PTLC>?k)7Tz3Woh(-e_&@DX;SzZKzVy(zo{TD$0Kdh?)JgtLy%swdtfP`a6YZ z?X__8h0lG$`iE;CsM+UcdBztME1&TUCXOGOD_D?Oi1YM=rUPz+XD?HpRWnlhbE!XI zsj`oj*hj6u0@ALwE%TxQqiwE{mNRvvPSWy3E0#E#pz(3JcFz3k^2tA|xUFq{r$pY8 znL_j7qJVyW;fczsi=4Xu`2PD3CNf^_NtPp7NqwZ}_~FUvN@5Yd*zXW$ z>fGT(dktxcvsTLKPO~G^yGtU2SCLLQH}W+JpH(pWy|V6GlC10VynvZY<)&XvE-j?p zDf|Q;33qxG?lG!{PL~P9OnLQ;y{oQCG)jrIcUGQx=3QW4BFH}%2srt?gn6lCPeOaJ zs=jqjujOIzB%{-%#r!J4_QciA3ZEBX9TrTNhQ)(}E0||G1eInI#p9{b%c%i9y;kBw zw{`n6Exs?!gJ-3kX3MVW8lC9p+Tqn)dj;OPlGymcMWY$LVbrwqk|*hG;qd&3v)a;^ zChS?|nXy}o!=HSH1&ewkr;0d>W)JK8+tC6cuHy9{ZK%n*T|}CzB_6k0CD<5S)Np(d zJ}Y3;ccM)E!Z3PDZSLFLi-?8*`CihxrK<7hvRiOq|-Xi{&b;8NCt{nf&( z_II9136ICS1T}moQ*zPYj2d5!9i|WP;HT(Xk@G}QR`K~fFMzTyjIv9@Qo*j6qHZ)_ zc3P-^0F9E%Y40XNN1?V%t2xU+`oznrj8o+@+!sBU`1Cc!PfV00yD$#dSWd!P-l5td zIl#Q!f;)bE+NbS>*QrlgLDNKOAM(0Mo`t3aE%Rv?^Ai*MQtTM-;$ivEt>f#!<2Jq+ z>zpVhhS!ZL9-D<%`nODE?>z)Q%e3(PrLF8H((I>f6k@(>KKD8$OdA^KKfyA9ia_3c z#*K8;Vq;P}B#WwdGDPUTQn??Zh2z}X^=uDEAO_#KHR@{o<|qGm)Blm+S1F*)R!Iv+ z{qa140g)pFDaqK%0+9;N%*>su_B8K_HcvmaDct=uODgq^EH9PNxL{0YKoBN3;ltI2 z{dNRholTHM)F1Jlce7%>P?LT0ZcAL*jfXzmL$cYr9g#}Z66NOsg8Ap!4$hm;;5+8# zrBIVhPzyIBHFR$a?begBSu6wPE}Bc62>c$L(!M=fI58cB-qGqE$oa0J%%!Z%jHZA- zH57orA^Hl&5Ek`VbJXM*_s4ms;5uJ#tasyEx3T{8A)%`ZkGgzj`n;F=W=2RQ%1z~# z-%;6$v$vvDQo7=2N|&`}M^5Rb+m~{PH?isBT6d~PcO;+R+|jEm1oWuXaCVPXhP6+m zqCi~mC!-`?7h{&x%4iH5r@RzYMEdqUZZci*aJCqPY}tZzG+n(W54mnqRYlb&3mM-M zg|_anV?r#=)-08bwsURGq0qs>jV0A^6{{^sZ<4Qg?E_u&9#$=!(i$2p)F~OAn*WlP zSRQq>XYg#&Tlez#8^L?Hs(DtKg*LJL2=_m`)c5Yi?qw4hj-KjH&1`s#{KxUQR6lA#L zvu+WKVn3`Zz;iF3A3&V~Y+V&r3N3BG0v;0UkO>3GFs23oF@YR_~EL zwF=j?0Z7LU23)w=@ssmh`1uOL4c>inS32|ypC zbp%F$ji=Ucd>L%4xo%@xc;l3H8|QW==$I$5%fDYiCbzS2^XfLP3t)wf>xf=4tV{zj zt!f5EIC49;AXP7~qhp(|+krz~7S-G23Xb+ z-gN@Nvu8a#>B{|wV(d%9{&09G8iD$@Sl9_QUuy}xmOT6KZ{KKXN7 z6Ee2=gq)G1h>7lQ`)k|(5o7)apmnH`%@+%Bya+>Dh;!EuQ|g*k^VQ^(wXF1tMbjI2 zYD{7Ezq;ZTjI=IJQkZ~%oi;`OoO4wCY`#e+zxn6n|3@(X-HO>Nc#Cf`$sPZ(75}Ou z73Y*vtV8z6HvGp(<9e$`HpYR&)aidxLpkG5(SF#GylUwGfvEpCX#F>oVN@!wzkl3d zHJJPN71W?ubJMBzn_{I8F zWXESYvOCOmDsuKwRneop_aP%$&foPhUIR zadg!a{>?srrPJ@3?OSL%>nrS%>fx1zQ8j$@t9t$4U(RkH!jIJKG%8Hc(!!lvjUB3W zaDv5o`*0hJnV^@ek&L_`RCH9-80mOY;m3XZaHHrwI8^;RhgEMF7m5*deoc}d*{F@< z{Fy5pL(cmysR-=7w;NZo)>Xybz*uXx`Jy=nQfAJa?5lIEHZ9$^bZU2n$EWX0b6rD5 z#U7EE;7t(QO-1QWY+aLemlw`6FjTUWu3xNBuS=|uk^qFpkIB4@EQX=8`3apCfX?UD zhDgjPOKSLsAK3y8z(a5%ZuCW&KZ}Fty4Yr&KLeRUdvN^NTI?vXM;KD|^Iz(L#I1z;f3c&d-`9*U24f7@MLYjNvHffO@>@xN1^1F z1g)9lBF3TXZ1=yaQ0r9vA4TACiJ0I*P`wGG|HT9Tp0sT~SNp6p`36S%|5F96Ho|F2 z{R|7_-JqLUPp{ILRf=4_{+0*SI^9(4aXk`$iP2BrtKsQ2`dOO!w?dxZBbYpUs(vWB zH1_Yu(Q=hUh6!;*&bs{g_rUn8mG~P)uQtI6$owShzeSx2_IP;$_Gi)Se?b-PB#nc) z$%UPNKLiPgERTwl1Z- z`|r!}-G(acJ)xoIN$d<@1;rQh=4sf`@H17 zKO}^qkJC%DO6`eQD3EJwbI1 zeyhc>{~7{0d&pw(uW}l#yS|1eWc*(*^*hK^C@QCX{2R}r`*3}Ui6!+{2&ye`Wr}-$ z5}MpO_?<0Lh~J$G|UA07SQIj)A(u@|{WQt$RxlG+CRyV*tl|{6l`jJ=fWgXD5wqBYX zby+4!@!i$*y^dMf)ovtAkp7YH8?Zymz4X{wwHZFo<;4CWJo%tOP;*%jx~THY61yO0XFREweveB@F1b&)PFBc3baq@NjZ5)Gj+_g@s3p|e z53c3zpQy>@^kF=7u}k`UmMVEg3H(3FB>^?2tlG_=mO(58gPv~n+KMc zFnP3{Re6hh1JSHM8lMJKkaN<4SDZBuv92_8{4`=XFZrhq7$714$$)_I(D>Yg%iY2O z<0PH|aNByhU>OiA5mdGbH@bqE`H8#<(tBD#4C#1bCmQ}yyZQQonK5>=-fd{Le zMC>Mp)DTeMg^tE9HkDXc=FKYZ!}+YG_R;{UWoh>;*7xL8@TN}wmX(^y8Y=-5z$N`i zz<^BQchlmz52SYmvT+GjMnVLQpET!&mH|(z7RtLxeNyVo^+} zH;;c)eA}(dT(7fb`}@PJyQ^dTAGcZI3OPHvk1gW+kl8u0wI154atUzfMBFdFd>1nI zsE*iso`D02KG1h(1J3^LQPkvRvgq+de#YzisEap(vMRYtvjR1b;jY3O?dvupHimlR z`yXby2<&Q!pU^4fyY(h-Rt=$Xf~}}CJpS^h?&>&dzdi{DL z@X%v$+V3wx%d@u|u!~FS7*cycR*O3BD#m9QSAY(VhD^`eqf`j#gJtxSUF_~T^UY?O z<8A@Iii=HeW&FZf2R4vdBF}jl6Uq)@MoFbo!F$v{WA&|1A-!LdMKEk}#@^+w|B%f^ zP8&h<))TY#9c&0Lq`Xr4(=VY@Uj`0k+X|ol=s5Nm? zn!y+xjjcenipBlt2!lU>thul_+;CeqLwZw6iwdNw&Bp~oc^-pGJrEG(QJQ%c=eMm1 z6U8C~Q8G_c#yb-qe}5QjLI;B7Zq($1Ou(gZBP6e+c)u?NrCwdZ@ zKi)6yKN2ukP8z!_7%}uk`IO^IM`^{6D=fxGh{%MTIRe8DjE1VF&({aVb)(mEcl8Ho z<8&yLe4XjzZWAe>R;uoAcw1kTKTZPSw`+r+?{vRqVa%s52_z0kfFfHZMc-!C>pHTk zl5D1}&1M#1j6yI0->==e>+;&f0VqvVNlk1>fUqRpj3gzjsoL&ar>`BEg3-L6smlroEhzHDniFeaQn6v2O+ z65jSY9rJo%?cRBc*U1b4qaZ&3q`S*V@*61$m2~!m*#YL;Ku$pMZKtdid|91BBu!RnwF>x_iJKuB zPeD&r)9N~gbv1(Y(kta{q|F{n)7t)r65J9`rTLI~Aq%a;QBolL+^hd_b4k7pU2#Ij zrc=A&=8^Z$jeLt78KpoUCU_0ZUrFxmoQ-t#i%Z`RbCa9RYiO`+)FgfKoNQwRIU@jL zdRn-ZkROjtKlXOehQa?=Y(C9Yw(vid*#vb66V#B7;^e>{{*vP?i^J$)axAfSAq{Mr z)tew2?@Up+*aLjPb>HyTC6x?r|Mc;X%A>LK9A_nyM=fBbr3fu0a8DRX8B~7um>U@a zC=*AH?m|Sh!49GK-*9AxbD`c9~-6?XYRtd}eX z2i|}F(WnsNc-gGmS=sU-kj{ccIqz+t?l2G)lZ+h%m&{zRd1+)mBLYwHH(Su%+qU#` zGxp^p{PO(gon~eP3-gxYaXUknfo)`!@1OlJJfc1*X}4Fz@aubcsBEf9DZqbre#EGe z8?vJGp_l~Ek1kN}+mrVMgZA|cAkO(NaWr1qjP$-iHt;IG=c{Ul*yY8dlNA~sjG^2~ z;;RsRBb}buDa-qQD`IJEs^@_&wj(7@arEiKI_mg3k6V`g$tCs^N@vh?GL2X@5P@@f zwfC0g4Ud`Q4ev3()lVwRE)UD+SImzs$pP$WyP7N1UBgGiW62P&yc;Kj)xi5Q_&;|F z!^lvaQY$IaQXRsWiI;{MJd`vPCU9x=W9g5dLbjBW34NA?uEk!lVR1;q6t@r6*=EQh zhA9{-k@&n2Pgn*9k5+%)d+%cd_5Aq6l)a4g)$Gq8Zd)<8HKcv>rX~!Cb8G_>Q%<8( zR)qDgCyy@xv7L2baA#vQNZzfFE+6aW?Gz>mP$af}cC)dbEGoP2QNqw3P0tG^l#;-z zROy^Ygka9SKTJLE8jhJs7$$ki>2Z<0qv);;4Jdbxp^9oP+%?M3;}3BH=>ZcYLbzBv zO+sZ;QYY57D_peh9D`sw4G8!TX+#~sXoC?9WJ`53oTpF-c4f2iZHyW0t6;PJBintA zePY8RfjHN9mK2F8fPIaHNy6p#$S0}W>S4oWLN`gw)ZK@xYAw|LF%EQ)HYV5oXdCgG z>Q{OX)vz_TGBwWFQ!OZe4=2SJk=4;y>bbyd#AFN=a_}WQFGDsD>F>M;Z6At15;4yG z0lDMW&!GVb{0=&39(H7uheh95`3nqOn?u#R{4j3Q;w^ka!T`bddB7npzz7cOXP+$h za{H);9L)W($-?Gyp9@?9KajiZ0xR@si9cV$G;!`3EGO9vdM{PFic)}fu`>8n@r37@ zqS^o8T<2#N*hX1PBqAS;`~kL+-m^kEzZ)~PvcbyR_-NtA$e`BB*BZ35jh0#+4HqJT zy8N&O!+NhfPx?u00_?Lm5F`Ft+s9cE%uk6*rd1&Lr_xzKvE_$JFHkvadEF)=VF?Qi z#}QYSR0ymzpnc>ywJOm^7})AmniW%Y(e>C%RH?cvlOW)=MY$Gk6RhU_=Gt5X*Ij~O zgS(2dcU<{#dgE%^{#jOpHtsN(HieC!_Z<$z6imAxNO7r{=d^OUy;t#9=q{k_6@BhN zOs6f&w_J5l2fJyB6Fs0My2fPMI7i_X-$a^vy*e)s60c2Q%2 zYdW~VU8s84Te#mHxu?y0F&FlIG}>K8hh=YC>;_a5xPl3W%Mw3q|IF7sy)A>SI33(n z757>xnEA?cF4ZLvP)LLz44V8fXX7Um>#of!4QzIpQrZVc-XV=GENRsg6TG(2KPaBK+@g0Rtm<1C;5%`pDYR9Bf?RlkV)D~IM zWazJ7WgF566U7(EBNT;m5IMVg^z-sDL;eqSRwzRrJk-WD#N}bQZXbTOhbvt`PASbR z(w*4H%wUg8?_z*mvOaoajySK=#8Y}lCAp6=uV_bsCWBeWN2T=HV-f~WYqEBxdT~px zphcczj?+McvukX&Bnv3}2vNIzP+qN?y1qs1#ssJ+V@rMl`dQ^MNs3o-f$oRjb8XU}iOoE|bi8Z6*XMGGmM@AqgH*jFxvH-#lY2e-S~zNo(!+>q z)7R&H!|ePZU1~rtpz1o%|nIDzmSjmoHxd>$+ zAmj>i*30E!5_7LJtpVT~ojW%GU^9LF(zb1DmI9-^0Cgb(f*OM3U!Xo8*{D@#J&)2k z#vQ};b;|RuS-y&W08=}AFqt!TCVqrWkf`S|OFQ355MMVhGDAmfwm*r+(8V+;X@xxQ zW>|RP>O&EJ3n)U-;i06o0Zwr_?3I`Ed&X5m2JiO*nQyTTz0rer)fkZFlh!@wiJZgh z8n|-7j(l$@Fin082oKm_;|*nV5`?X<0?T-c zB{lGaG3QoefxQ%l>^sP0$?|8csQpYi7&nKvfBz{q`Dy6`a%4}|##qeg_C+4oi8f%0 z^63#%fAGG4i?k@=IbPX5iNH(Yg(w=cBDZ3MCvUXd3c+9+@DTIdjJD>8^zN{X-jO4S zK9ftp7ife9z1Rvh)<|~~8R-GssCp2Dgt9sC+q-Y`RNm|mkg{T#$-I?-jzqwBG9Zo@ zVj`tj?#JrXF4vim1%fvFrhNWQHTbv&oQAASK-UiJA8{5ZbXcub8$CoizePn2AMA{n zDJ-_tLZtV>fCV9jhm_VRFHr2kxNB{N_W=s-bv)Lu0B{;$hgTZdt;gTnS&!`~M z1t_d3=qkPy`9w$IGfQw^HV0E`9&0J)IwyOya+6V5XUhRMRb--lz|7@Fs`=ac6; zi&e$yu#rp#c8AW8HBtdjkHafkLKnRw*2wWARJN^^tg_1`z->Ie2?%aLu9p7#&>>N1 zk~aI=uhg-)j)^bhaGMB9@mXhV?uZb?$Yk427`X|AfSkS5Nt@!t9~Aq^rX-Zmpt2FB zCgI4B_p=S9h{VGW-C(e9fn!I!P)AX$Y3=v}R+uH%P}$*N(}GsI?5u|%JAyE1|Dt`k z4IwIhThL&LP?n=XSLkj`nK^ZPVaTzhD`2lF>iLq)3|5D$HV0J7BUuK{8)z%C>FVIZ z6F%H-Yd?y+YYBET;~EH^ny(7DjM>NzM`l++2mxys%Ybkw=YV}c&+;||qj9w)9NY0n zz)mL*mmRTvfY{L6t>g<*qwhi=<1nD1D(ZB^Tn{_z5&kYS>RVQ?-Zpbnq($7UTcovc zv+ajl7JUO&B7{8_bs$P68P#)cO=Wjo6BV76fcS0W8i?IYcolCJR}MSadwX$s zN^O^-MDKSJOknC?V;SH_B+l_RZGxEII!MG(s}3R+Mu-iYpjw~sv_K5aNrjkt1b;cO z1jpH-5$3&QS^qJu00S%w18k2kYXCALF&{n{%Hm+eGO(lRl^iPj{+$ak4-xzU z^qK?296-hk;ZA`VK1Uv%%I(G*?A1kLFlP5Djtvh->{r_K4`2eFt-x89#l}~f>euUy zt0eXxgtqTO?2~{p;I6iJloFlMDaTY>hHZ~99OAf>%9)BNcW0-z7;}wi0f^}humvX+ z>iXos1=;6JAn_HdLEyiH$@DpbIs(nf?N4|j9g1zw$5q5Pu{E!@H(=8na{wng65q(> z1~AK~)B>Z33mBPQS1dBbf&bvW{5aKa$BF7J(caRt!Y0V=>fo#rsAiqv7}y4UYm?I>9iJ{;lZ~5y*OdIll^?$=lCWTr0N4j=d?%m zub(%)vK19Il*D3eWsWiwc^R_QgdSsskH38sBkY9XJa!5>2#g6&WE8&Nc(TR`YAg4` zqSx%xfInlo@_ot~@I9}DpYrv<%nK#3MF5*#uDuD4_JE>+61m~|aVtRpgasM-Wx%r? zIwa32v{=f~rJT9p1&2eJwHa`L6gmLA=@94Aex8TfFJ|25f@UuEVvI_} zl=HHas|Zsu9SfTuWL{WG1mS3mAP(#( z$n2Zx-5+X^(WR*6Bens5Hr7PNBvI&_q$pzu`2;h_bHcmEoR0ayPQjJdo%zPV(+^u{ zd%=-LM)KKA1yuH35R6KJ&SCh6Pjo=&9$<8MD1ecpq=VZb0U_Z;#XF+V7D-fg(a&KL z$!Lrjs{WcfoqHGsj)VHLBl=;*WjUU}`X3a71cYT16>o|{>IYdIJjg>MQ;6YyAfGKj zJ~vKg@5X8N?!}2RkU^z5Ua+R1uvVgCgea5%3JmASPu*r83L0Z*eDxi+_m5Zy=pd%c z33S=*Aie-X`Is~H4Tw=2nz*5k!jxOIS3MdfB9N~8wQ#q|7*gh2%#r!KaeIX95$BXZ zVn?nJ!J?*s(6|O3;06!u)53X>AE-B}USREiR^~xQgAK|67ONr;W4S_73&;W%-vA)K z;nd!nZVWwT1q4mFf=MGYi(=JXQSR3;!CE_!Ee;^<1jncjnSA4WlXbM`2^>$v?8Ws* zy{>ia*A?OdS(Pa~g0A}rV+dqR?C2@vlgG(lt}0x>d?erN4-!1>h(Og!bGDBk^Dn(w@xUZ^2U)^6P0C_=4cpRN!;@M%`$O%pNa z;5Zj-y8Ur-SEqY~?|FMguto;Pa^1#(7`3R+wT|G>>2dJvG4iw2kK8w25_39s0hTSI z3}NI#g#w3q^$Vg|fSH z(U@Ron}?D$$8ml%8bw(a;Otf=CXG?m4I)-;FCDM^P+Is_mh1E;nrL}~&A|kSiKHiR zW@7?NXL7HjRoX*z=<6&`ufXOphiy)mEKLi>)z z;n9k$3ll`(G$UOW!EbHYewVMf++$Pi6Ts0;)DY9-pDKSZ2a|4nRfERC>+;RY1-Ra>`Kd?uv@mXP0^3 zn(s;jY8Z=1U&wiJ1q{{GQ-sY<+L&IB-oC+gD+@UGvP2$Mqh$GUbnZDd9!_zeh>X`h zBc!*~4b@-4XjEWAlwa|rkH6**1K81J57g!DN&|Wt1M;C8)gcxj2j*F<`Enl6wiz@V zpEoefKWPY&Cn#O_6Lbh)YjbK$aA}9<7W@Qip8&DiRI2u8Qz|vEA#dzAGwB#txg+>r zKyb*f!`ZW&Xv~1%KL|@sg)!s}qm~O$JFU2<2n8waVR1-MyhzE**bw~YVf1l(WKr(A zWIj`}wJp@|19fXa#fvVxOyKlD^VM?Jdb#@;nr|ln0T1H9NgxgzKoe{74j3pO-r*J4 z;h17z(fc_&?2WALDs0ycn*~geyaSe-p?kou+)KgmR~RH5E|11+p__p=%{Oj2RCU>s zal)cUSUFI{@Js~413RlEZqEoih)k*Q)F0}3*V$L?W*Nwrz#s#QI@LV=Q{fh*S${O^FNeh18dYZ~0D%pIxyWX`06 z;5nd$JN3gT&!Muro9@)ro7+Yp4+<0BcI_i~<#c%FE$cy%K-#!pa~AL}9230Y_Of=n z+tw(${a+c)s2>R#b9K{`(|=Ro&(39(<>TIBCp?Zsi$e9rbS`r;64X%sN`@zfNFVPH zOFRrr&S7?BOB>uNg-aVXpnx1Tr|BbLJU!u z@MJSVMU8xu1aUN+Gv*5B_;o1)1PfhJ87e#HUPoQyoLgh<3veiZTj?%vXo=hngeyzn zWc~ht+E#P$(uT*6CI!98{vk&4(=yv&CAEdGfGYrEH!dg2T&)TK*8qU4zlZFmb(a7_ z_X)=9X>z|?jyTTE^UfOpBz21?kV_Et9K=065@>|!&nqik7BQ48!lW&!c-r%9p?#S2 z(Q}r3i;d}#W@-!PKR(91rO)obW_cb#>mbhHCK;&6k%*XW&J)=IhNjPFz#RyBcON9* zqDp}M6mSTf@1MB&fbak`E;zwmav*B`>;&%Wrpq2o`KIU?*G0^W5`!*of+*dR5KLN{ zivJ-``99v9>hlxFDnR06fS`0uK;7TWZ5HRMmtj)Hpj>xNp`E5B4oMMbP@~Qu!d*$= zYEU4_ygMPp_RCjN#qz{gWqqT|a5AtlgoirL2lS%uE7HCL1ZeNqZhIQ*So=D&Rnfs6 zloGqBTM%&tS>7sa6|pqY0`_G1qOA5W&Adx!dR5%4Yf87BAiHev<*6ocU3QF?3{Z4xgK+)$h?dQoOm#%te{B*x; zFU@x4T{cV^1^|f@#+MC&XAybVjh8T>@Ffou%=@UGz1RU5KkRx8#X-Sy2skN#A+1CZ+lLF6SVu@zp)*bs? zjTAwW5gB6=toD%@CPAFMwgpON--ml!?&*U5W(v+#ZmqkG0h{RZcs><9R~u_{fV_w@ z=Rntj@jOEbRf#72#t;2G-;4N{+{pQ(Ri9I|=^bgGmqp6-q7)vr(oK#bw1%CIi7+g% zg146N+j?9w3w0_y!2k(3^7v&4o^b<34)q#3g-7vpljGWrAI;2zxu@Y*DFe1?G-p#nT;M6nAgLUcHRi0`16)ytNbY}M130`;_eK@Z_I1|0pNKo7Kg?FJd zZja263Z^8kab};B$hnAvIE~+>$;Jx;tD14r#Klr_L9D6CfruoA(Ox8 zlR<_;vcpS37m*WhCPRqqZ0mFnAT@U#AQ+9FTBIMcbQ?_IFm3moPY{f24NK+I({Cyg zkc&@Mw%LFfPEXDsrhZ7OXmdV~?^AGhZ%7lG2z8a-M?3lbhC!L$=qbYoGEQJT((}2= znd2hu7fp)Z;Yf(7nC`Z#%FE-W98B}u!5QSwlA%2NOq`Q?8S2e@B$!1s1Q2P2{Jkv+ zQe1A~lBM1(l~q@Qjsu2?`6azNKOx5IfJ>1bW`fKe4vUJ3twG$1;B^Hn4#6JQeEB6nU0uBgcbzP2k5oC7kwv+p&8iABc$GFVzoiCX{2cwxM zo#!_my1KP3!MOCg1cywj6UY$3n%Ki1yz({#+O><2ZO;GQg#7;p3G9dn>E2J+q=Ar4TMvR4o$Whh z@GwcFVYjTEBN%T}W-2|Zg==DjfA{Tua?Pe%h%gjn^Hhl7O1_6>z+;c>5f%rPXvh29 z@~FxD``l8f>;&B$<1ikice`;I2h!reLko#A1_a(&q70OE#NkagK~~D_r?&kG-l4hm zIE#evRRwS$e7EkYfAS}BI~d4`uWKBV@he|ERM%&wU+1wj2ETr3!N_lR-aEd|cSfl+ z!I~69lk8>-4!difHm%9lA^N*r!)6WfT{``_@J;D6ukx_wLMN1a0M&s7^uo$Aem=@c zDV;5geM=zgNK1*$8p3{m?VkC~CR|)YE?(Uln|`6{{WGtU(32ApJXu~%u#I!-%p-lN zfhS)Ap7eiDd*pLmrpYK^*ni^ju&kGt|F`6w#Krj(^*^R><4I>1_%**qd(Db@7ikv1 zy>t8I#3rs1BEOvTM1~My20I*(I_&@PqGp5JT*F6vMlklGbwQ`U<3j($lv#$=)#KH3 zQ$}7VzDfD)!dT}${Wd?>W!BX1)b>K|Y{wUy&xL#TId^a%=WVQOL(6;4Pd`qo%Dgk; z0Z6iZ)>kb#vNOTPw%VpPGvNKkQ`XI)?aZxuk<}%)Gl~~!?0+uOb33B75WFR9ZiHs| zYus#eiucZ93%aJ9<2}sQ0mE30MdZBHtu~(y)9Pjzm};q3te~OK=@Dz+Y2}^U&zSQl zxm=Px+p+VMvXKm-hdF8n%Ri#Li$dV8d?x#W1+~oLi+%gUY!0kI(xo#JqhohBi~k&W zIP*_#rBT^aN-ob4?cqaxCA5n^Go-HgAzEj}Ne(yfCE>=|OZIg!fSUo~RV)(mch5{@ zY$ueQBH3dH^A;VSXAbo_s|RDfP1{`B&8ojrK=kpt^ygemUv_XJ=*lKF4PI7;~ znBOe+!PCTxKV@?d1 z?(Ta)p~%;~46c->h2^XoQ!&li!L2i9Gwf~`mrMm>m!;H-j@osLX4TB`<~{|(V}%sb zkMg>ReScHQ7yGSK@XMrWe?XqAYR;ApDJK%*GuMK$e_XFEvjz?E8!Xg*r3vlB3IK-Q zXJw*Cf@=6I7~(x|%Eo)%p4qtcC7#)A?$OKvN7beJQtOO_Dhn%t+)JMInx6}`d+v(Q zn>Tr$APd1Kv+8Df9Wf2L8PIyL01|XU_HI)hu{}4PVN}-$B^<7WyUOyB8@c~~^v}}~ za~~Y1J{1?weF3Lr(7r=96|RAp${iDpj#E<10gGVV-e`%K?j&5rh}f1@ZB+D3wqM7( z(<>$lehIIaolk2b-&pTUE!^oOuU&JCk4YY-jF((L2^q_Mf}agpxtQVgYN-}nXayIV z&K}ST=xfxDvZaA;#@S7vzzaKZSKA~|G1UspxnGK3Su8E4R|$nOA+}9amoUy^mq|rM z^Y1$IJcLhIk~ebdsSVf8V>NQ-LhiSV6C4(R0z&!5d+&gY5zY9UZVTed-Ic>vFqK;- r8oPK5(A{~s-k|>#a{l1h9BD&`Nud))MEDyO_~>aL*qgEY#FhUCXvCEj literal 0 HcmV?d00001 diff --git a/R/chapter-3-beta-binomial/ch3-beta-binomial_files/figure-html/fig-std-unif-as-beta-1.png b/R/chapter-3-beta-binomial/ch3-beta-binomial_files/figure-html/fig-std-unif-as-beta-1.png new file mode 100644 index 0000000000000000000000000000000000000000..baf5d1bbd275b88eadaf04bc703fc2e9ca15041c GIT binary patch literal 21355 zcmeHPeO%IKyN8j|X3AD;S|+TrT*t~Z^95g^)@IJswmoHKMrFfXhD|9I73giQX=1Xn zQiRRaHA{PP>NJ(qd||%e%hHULR20Y;LQq6O&P_Y}Jc6F{$N4p?#1X7@a6exFM_XcvM+()O91yg z-{c1TYc6;+1Q3AScyx-ENPDG#4?YFli}A%ge6a>lYUv2cgycLzaswexkPLVcz!yBo zOU`RZZV)6lXj0IS6j1hSMq28WV!$A!7~FX&JWU?KH!qox*C5CfXo~TWVm!JSk1tL^ z7pH*x>s-a);uZ72S5vIfG$i{rBoi7M0EMPOqv55Xc`0~aG5DtNe$S`P3oZ@#@H84h z9zoEMENB4iHN(ThpbWqQkZE|u+H^slM$n)UfJ7~Czz=u=%yC~>;| zkeBl=+{UQ*{-?)&Sd_T`mPS*;pm{wQYHGN(s@YBG*&c}tIO&+$M-E?)keu-BZF_7H zy!+cvi>UT>#9G*wN%r3EtU3$&WBs2GVAFyzTOS;X&$p!EVtePp1p2cSw4LGx*N7T30N8`DGe^KnwqTP^i@bly*lj7TFBvIw>pc+OS?=( z_2J1NS(@466h3>*f!E~RqI}KI0ak`VvS-`csbj-=>TV*E@3!^&Yo>WSzr=>C)k(FyUuRfJz zzsT64^@4b<%8QQSqx{3=)Rn>cn|a9AG(JXMBpfNdJt)~ItzW`nJ1u&5ncvdn#r3xj zVo!hjv%kYDYGzDPJ7`MQ1Yb%eyfZiP!9ys6K_p?}3G|C=tL^W+_jbmbQTh^l)-dxV zGki$Nt(M4tgj0`Idsn~HcjIp+i~X)ndK<53r3b`}aVeuQXSZ_6^)U3J4C__zBzqT8 zU%VU2Je~p#BC)Ubu4h}c%lMan?#MzyzJ1f?O|Of=pKW^I<)dddD~@AxgJXu}RuY;5 zZx@V?i=3@(k8)?h9?dPL*qudF4CP)=2*E^#;!t&t6x;T`7-ro<4Dnc-1Vyf`@>Yuj zg5rqe$EgL0h1%9y>9jT*TH)^I@e<0qaXR(%PM7sh-Z=mH?fBF!!N}H)y1lj(-vqmL zNw?kANio>MJ-c1JUDm9ke+jMH(C+Dd!ya+sJ>Ay5xpfHIyu-fFy6>CQyMHoTl)G!j z`e>ay>%a%==XR5I(+#+zN$thC9e;6!jEeu>P&q@-{UK|HIcE?EgDRP`_!tD@-#{Sl z60le7b6h=PhILYBXJwe&{|1xWuyHi(YUf%z27AC@N&ThFyhbw-{b9kz`1m+VxI1~Y zuRoEdwW)tI_a93J&`Bkn`1V{Im~-7&UKJgR-9}Hm78h=R)0tvF(=W}06Zh!k+Gi}E zs)~-mqLRWf8LN6N`DDkNtCGTJqa9|BRo;X*Vnom$r@035aZA{=G<{$Y8ei^=YP5;U z4Pn$P>cV}8a7~)HE#w*)+FB>Oi4OK6KImDR=QS)7yH}P(TT7r;Z|NWbSD+OWvR4hN zs{Y%N%1$NKvov<5t3&n#>~g|6R-X{QYw^QkZxiSGRuD=H(P=V{07778WR_mh`OWJH1oS+NX2&)O-!>pa3W6! z8`*A5ETfh9@lDv2N#zgqv4v^&R+XjWt5V@aADxVw5Tbz!rMIxJ!#^0URG}+^$N;qY zd3@h(266(T3!8AZz|gMcm>^CUvYB1z$fDPDCtRpRaxoq(-ubz$3=75Das6l{hygn> zpiTz7&HyF?_}O428H^;|Rm^~{|5N=E`+Ip1ZL-467O7W#z`H(~zxub@$1~=}>j^l{N?5bS2zT&n0P&5QVe1 zF`CRP6^*sQ3XFOz1Q>496cRQ~&jXogEEh5HCzXBUr`R_MB4^Je%uDDx9bfHci&icl zS#f_XAhV;R-JCKA^?>QxypNeI$se%*ha6dy_}&6H$_&$k6{1&~i7_#1WWLk+&sz0u z3t;L=pS-v;4+|g@RDzCcJ)(_Ti9R?OgAo0Pu3Z;VMfLMckN@r)F4pdAT_^J9m93mM zURE2z*kU(Av_;2+GJz9|Sr^>#3aZ%~b4}3FXsivh*CM_fMtVoLpa}c9P<;wzhmaU$F{t*mK8Nk2zZ>IK4C(%CMm}IXzv4A-ECHEq)kheTKLc%7T zn`_7)a$yx3SqbbP>VrqMFtk!$Cu&5tChARKQ)A+I6$GUbL#-C;U^g5pQZ2|1Ct>aM z0#lq;w3HGs9>ru!HF|ELU?b9 z2%sk8R8I>&7{_wwO10=F?$B9mNWsfoRZ%2@YF*mFK08avexK7byN&O?PsBLx_79{A zQxg}V7_!TpsQm&?lvaMwfOC^T_N2P0PjXdW7uJ;W*h6ldx9-tZ(rTy&TJuI7+pYBO z^Vw+Cw3iR8te{}BKHPmc(Z@`5;yd)nx!Gr~@JFf7#kkl>%*wa_C@|xAoe^wWnP;cs zJyWVi0&@%U`RoZ9r>Y&)n!QaENgh_>4iT_kS-%}cOmuakAiE=SDWm5pjuxp8)h8?I zcUxUJ89>pFSDlbgJb6=13%~NQPeIthm5&EvNz~bB$z+y{yZ%N+ze-y9h)+1-l#FdO+8nNKV3U}a3Em~OuY?r5myzJx_qV0%|f8h zlHXfK`ZcXT?(onOM-SG0{?@43FQ&Fon*G<@djYzRL2r6`9BWgUFlr~p3}j~~$gaVD zC1rm&oEE%fyi4Vfvpmk`!1rfTG338@otvFiurZQABW|_kt1i1+@sqe=_4ya8XK&$l zvCm7aZRLIsib^7o7rV|?O66P``xiNNdQ)hg&V&F6n3rVdxYbcp9k@{j^_Z@h8l@ai zQ>VdlSLs}NW;$6RW51%BLFOv&?$cPzOn6rA-O}oM4%M?aop}(Mscy>F<|LqWCU!S< zGp=W<7Ayl1(Uh{(0`W$f%Fdk?s1uwO=EOoJeawv?b#umRoJnId!<3=a1r|)Fm91GN zUUp=c84c#fDRH8$U6z76$zB_V`bTWogEpW7UaEeIKs8~o0>;tJ%h>ZZ9%z7&YZ>pr zE|=QW91=w5dg;TM0FPO+5Q7s~T5l%iqDEd9=2et~Z2dxSmy!i#lyB9H z3i|`TPh2rUHP%ZmgsSCrBavdjWK`r<<8Hc88DZGmJl9xFn@v_*q;qwxyF1H7k4+7f zp_&;vH`C@Ob6%r7!#b&_Z+ziI2PGTT;+a01omT1GKn7^6E)pDvh2!V9ekpz=Bh6kd zf9UV;hEcar#_7BA^t9>6urhhOKiiDBNmpZz*TR1*fCcIK%fR-ik-6w6E^Ok%DZLGy z;0Gw9VsdN0fAB%Q{S{EKUYg++Mz_}nzH47N+4b?f`j?)@hAfenUxgDPI?Ix_b`I+i zqJw%JmIYnzMF9x4UiHGh-{~)X82q$M-1&*sv{URKrnJ^jruT@GxF*!Y_p#E zD_)ojO9FI_nAc`34)boGiRnsY)P?_sVcdk-dR#$EZ}^%1h`AD~HxT`x5xPSIL<3pj5!=73QF$5Ux0;u_ zIn(9f5)pB?+PZz^yxM^YE3!njz~zPESMdHH#9-Iz(RWk*{I`2$r4if}MQjUG;(=&{ z==zJfA%m7?A^|@}7o54x!>ld{qRwIWKRbn5_% z{24j2byL;cP);YyR)0TS1yRn94_aVQ&>qnE>6hFn)xMT9^F|D;b0NKzV(vUK0h1`i zsRI>KqHhqLz?w66*?Cs<(Fz0gqy)?jpRVoGM{Y#bED+cVs>#J!sRt8mW?UQA&KnW) zC89QeNt3dr{|rkLA*?$gFOp2JRxPmi_xA{p(s$`8n5AHh^i4W7V%sweO-cS6a>R3ueb zNT-StLc-Ciw&*yS1l3#_6CPLHDDhwKKjx|KLbgJ6?5seGJ*WD+y;Udvo?6n2ThUq{ zi)`Jl3mIAf$dHEsC(PkmeK^(Dfy@XL3O5!!+c57TL*bip;U(C0RB9z+DHB5S3 zM3iTW4So8AR2XRE?CZaizyG=XYdCS2juk!#C*p+P&E$5tST)w3&UEd0jthG!t;pRv z47GY=E=;6ld;h_8aM~?eBCuD{A0{$M5sJwI{wf+}>hvIg0f-_(3=Jy0ev*K8_4SA` z6N`gq3cj&Zp~8~vHx@gvI_T{I@>~L1Z6vM&IHYbA8|YE74?RbCv*V^aSt5V(3Eak~ zjDo%=ExpaijM9g)!y>WF$`hd!sf$`d><|}zlDjG+{t_KdOw@tYjsoaWs=E0DJ-sC( z;bq8>VmC7f$Z}mZ)QWe#&{?)!{J5|-x5Y2{8QxN-=0zx!-_EqyWVG2Os zbOO>2k-#HVnz8%u8LL0!bPVNUdsg7l`7_C|;WBKv3>&UFhnfun@mCfIXn4>B1oF-u z?Rxq`0{8;6E$CX6d`i@9|0allNR9F zL_k}x$M2#hsf6YF_)B^2=Z)!Xm%>!qdz8v;8V!iqO3*){2cQDQne(NTGJ3sYsOC;2 zcOW*TE@A@Y-ry+Ov6XaD|{9R#vVB za$?Lvofs#{Q?~sk8n|Wfl0*=;CU=)DSG!h-kGPZ7Z33>MzJtk|q>`cnPNy!%SfXw>T@WoqeE^8NGlyDzNYF+Xr_8;ed8`de=5adZ=d6O+mR_5AxVEK~Y;dfZpm z99M@3d1ZCf$mT$m_nOTQcJxp)%Wp?cWHY9Vgxw3I=Ep={9g<3WN7j3+`~A&P-&IFl zT%K{<$ma4d4R4)+p@ZrI`$k9M1L>H|-5`!iBI@6utZ^3dak84UD&4HE?lP!PBE5wZ zn;6n(ZhI$JfFoN_o@(E+b%zV{D911!cMS#KfimKL2W6%NGld9vyt?gIgk^Bk-XF%6 ziM21NK<)`n^6rOjtGi*X|8obxr_6UAE)$oVtj8VgTs2-_*p(#C88rC>huB9CJ9}U> z&&R!gAa-CG-aCJQaooXeWYB-$Y5R9nII-F2Y8nBpIL`@4+m>**WXs0GR~{0#i-)Uj zS*Hi>oB8!Y#N(sbf4TYjR_U^HuRZ^ZqZgBC<|>wecpcV$%mdwQJz?Hu})jf&YstFdjVZ$ zZ@^GcKA&-1`c*9mLo9ktXR^kwhd66QFW8uupc3RG&o*i9>@Q=O3$92q4r7*6GKuO&kv}c-he?8~xv?rB6 zWkfwDr9@astm*1N48o(>Y28z3h3F-RSGj)|Ec2@d8^lMMhqd`PbBsX#{*2hiHn|77 zBz_N$gj$t2uS2$ax(}q7Yls;Y+PVa#nrzOCuXUAt<4>uIQjb}ijcNZg2>?5b2In~*J^EICy>V#K0N!2Cta}bt!n6SsrH~2W8 zQl95n?T>1xN7R-0QM}?tJCFIMZnw+RW{#V-^p+q)EAbH}pF z*{?^>dd2vIXQumOABPJty00pIw4oMn#5P$wcj&aw+=ym68W|LxGa-W4D!Sv}BUnI)v` z9X*y0Med2bHl=#f9f7Q4JfbpY29HVozy$ksw{28d3K60R2ca_0?I=lTb~ByRRfr_BjNu)X zaLPP85hvr3c|5<@K5n<$?|nb_bKk@FkMHC0J=gWf-uty)YpvHBo@>2c`-BqU# zvN16+acCbse3FTY8D?Ty`x?6zT&XOO9A;u#Q)6)4=m_|ei3!KVWXFWVG2y`P+e~(O z0s?pe0c!y~UH}h%BLdb$K|w(U1qJXN`V{)PjkB}E*@54AxZB{T0}MbP$6MpAiFl+$ z7yY>C>PG6ifS)wo$hX!Eiq?1mYw!^GAc!?Wv?i8V6Wi<<)7#;g>~J_c+-;OF`ne7M zv%3v`=h@|T*yYgyIT!R3=@Oad68Y98tslV)Ab31tjb{)mK}y;p!IUoG2RxD%nf5j^ ztv~WD_@Up%G2I4CGpOIbod-zX?w}K`1&G#oA_9J_iA020QbH_gBeu1rx#*_3xTHn8 zq`mD=>!;`0G3D9e^6c#LZsYQ9gWtFF00Hpn=*a7!=h5jU2)+cdE+K*+q=X1)w7reg zeH-cW_AMYle@myg5v|)wkhT(HTM4)cW&pq2I&R}SZrgR_fuGxe5aUDdpm%i8>HTRg z{cj`t--5~M!^6XX1Nz%YddF>gM;>~=KaJl1mfjC;g2@4SbOfDFPb@I10E@|b@#twc zCMMxf^#3(cUnXpsn8cX04<9u0jvI{+FWOe^VPY;7xgqY(9=#hk4%lc{t+AeXx%M9# z7p`$@uCvwmZm~Kw4l=C0&2~cfakt|!B>F8PR zPuB<>QChpZbnzWgd1s4%$Wo_q^F^BfsFuf{$aw;LCP<8oh>;Zay_3)nR zmLBC&X-nPZGJ4}B=c#X1R!a|>i$)6w&gT=e8~q-?IDJ`3w5`s)%efcb8eC4Fy=7?W=8L%# zi)H>Ya|x|x>v@%8ccI(_Jx)cr2@OdiF{IHS^uy1@wv31M1dchb>HN?#P9G2Y_N;QT z*F3+@#5wTSWqUsd-Kl({!ZPiRru{SeA>-_Rml#ggcbSawT=v+-d3DRw19)H0n1*rx zp@GA{;%npgk=uQ{QYU4dsrlqf7_L7nd11+U$5alJRFzg%$B335qhA+S9Ce7Pg0)pDNYSaC)DNo zDQucQ?O0;av}-;t$pL9r*4?s!N@1&6aUN67926RuQgtvHPgb%QZW*moCspkzcHe66 zKts8Ajxo#dGMra*K1vFm&97XfY)MYr9hxQ^e;{bMInW`lhuv!Q0YRzr@ZBitu4ya4 zOQ&u_N40LH#vO*%yND+Kea&A#=0^E{8EtU85E_P0@bDj3auFU_S`wKX9h~7Z^&d2( z6!EH7Z50I;R0fy?7Nnt>ur}R0X8%@lU#K*vRsMAI*S4S0TC2 zaW5*0FBRfe9%vMGKNS#p5*;Q=|GMr$HrwF;h;jh&uPB@8^2p=qoZ>Ey+Z2RGp+3bs*F2su{nY_bzF4wW>Bx`^4y zoPXvS)=2pO4f^jWf(<(rTvVi?KCv4UvsQ~FLctobxfGpb#w^e{p)=4=SI*8_&s{V2 zdSU7P?oGSJHX6SK`7`Yk#8LO$G}I#E$>!qQ@c5{uCW*b5nct})WN1C|f=O-{nfBqP z$J?f(H_L0VQ}3Me%OYX^*EPGFlUSPtpfhVMPmv@QWSYfIBzLTnlO%JEmD2n&Mm)>r zq@dbhe)H$Lye||mg-~${Ty1yixyB34lk340gMLSgu4#h?h7%%2Dz@A<>(*N69<9)?vRdN#3Q*^~o=U zpKm+YCz;pbs94DzU!l%vCTm0 z>gGRlK59E{Nc#rqDpEax`&bT1eM*!Y^UN|2uACb&ymZ z>Tiqdcij4>7u&eCxYxQX$m%>*?l9@iZwAAYf)he~LnIA$6pS7_LK?b=8RChApZ4a- zY(i2ic~Z1iB{RaLa{jQXKO0nf9lp1|u+Ubj%cSWJh*_>HpIxXr)b> z_+6BrW9c=%;moZ6iYjTj7(wSh7v(2=^M3TkH&y1pqDudLNR^;_5r`35B&okh3zp|I z6VllJT~)U55}q8)SGj9_5#zYwCsBS@>zIscJW$u*ni74Edn$1hFJf; zE@{Thf;NA{EPmGI=kVM!y8nt?GGy$3D3@=hr{iDC}?JS6KWPWj(4R8CqJ%$6sA@GnJGQOH2M1n!*3L07E0AJt2;$HSa$#T@G)S|fAmssL$Zj(24?}*o;Gb6dr@&sPyETfI%luyV z$v4_vD8PI0nin^LFRuC*)d~}SfF?GD@^7TxYw^S?^2+9$`rPj3^bbJ3i3K=#A4Ix) z#K{%~z1G5fC<8KB_l4{@)K&`AQ{7`nTqJD&kc3$g^#WXgEBn+V!^@`U4+?%vCLawr$GlzIehFXTw>TV)ZG^WI z(?d6r;^HRC^8FqS0?76=WLlxDs6e&Xe~25-yg;jKVpWCCFagx|c<3PM*l%b(oY^HLP``r8;%`HbA5M0S&#B<@U+2nP49@X)45`D?mO7+m27z8U+% zfP?=UlCn6T8QG14Nw~jTBw6T_Y>3+Ct;DZ0%#?o(r-i-2t*G^5jaYuD?4R^}6B3>e zXuh`m$i<2q;ORfZdjG>{e$(fP0MDBJZ9xo4<JgN#2c>Ysq8RjFz9au}TZ8~*-Z zIVwnnHDs*+chFJlovAm+i#Yy!_|1b^(3JO2vw;6s>-cZdP}9|a3suXoyBF-t`!g^z zSMdh-RUebe{GUTy3v*JiN9LcZK6-bvLy&~Q?!Uk&t8(q$VUTr5FzHrEMFknu{==0A zKo7tK4~=HrLg8|pq4&L?7nOf^v%ue?{J+;B3(#nK#CK3Gclx>8zhZZPQIv3CbBb`^ zm0x-`vu@$vwvYdzD3}lT=q6%~*j)~i;+eDlbOrv&C0Fatzqb2qey0#TPYNIC3wP+8 z|8D$`!gC$CQ_dBzB6%%u(b^LYt&@CC4Tl9b0>rT!o0F~iUEG9R(^#oG62NpWFsWt?zP#|1L+H7U>n5A3JZra?01D(Hiq-+xnZ_(2Cy(4x%oUFF|G( zdBXqi6MFtekl~9;l4SPMIz6_3J7>A^IX!0x90}`(+kRiT{~4V8-9&4@tC@g$TY)$t z5?%9s?f<5pepYS+zf&=T#k(*UyWKyrm>L2H&AoT=S|pYQ!;_%V@LTgQ^$I*b&grva zj#Xs;!L=+uwNfQNX!_f?k1|F4JOsWUIPr`u*{>)%N@V#ko!cF4gCrE2@-Cr~KM7N~ z3Jol$q&~5D@eo9QjM~Ht2+B>lN;0}QKLp%?tbC2{ims!teAw}7*WP%|sdEZh$jkGm zjtwaHbd0(LjV_dN6WRio&HK6zA(FJS#BZLM6LJ*e}Zq}{mbj>cNFt= zHt$$!`n3&hHH2HPT|PG~B!cjrmn84}EhW9d_|BhgDGSf}4rNw7_6r7A%u)99HGX!q z>tyJKiTOk604{#({;Ci+yN>w9!eemgnsnAZhTK({oi8s)b?}EUno9xR_OsW#WQqQ6 zUW>z6MUch6cVK~1zXbQ?%Xf|SglPS-C1tb*u~c99{6HN~A2_?1s$wGdLvatdsiurJ z)$c3zPwm>$g~{z$cjkh9h-}b;b5_7f8~uO3!K-~Ctj7)}$-J&*b)S$cKc1)WIP&aY z0T@5kTB_Gd zM(Jl+V*<=pusQ1rv=PlMjc8966hMEsn)zWRpil3;Yq5Bahrn?$7K+%HlD68e``O!n zc+gKxzdq)LIeoqP#Io5AtP%GQqMB?|^()41_qfCjw7s`3`hJxp3-)R<3pyB}t>Jop z>Y`lkQk(x~8fPmN_IWwAv?h(KCF8_&-mD!M1JKoSmzvqj5W;zH)hzB055+ zyZJ?1F3Uih{?L0n0R_;XCI>EG9< zV`Gm_m+P{D>>J)&gNaG_y(`|a5!A7}kwJXbloLM4t#!WJer2!Hovjr43nEW4I9!ZK z{8&X%-=oKg-_HUh>?YSG5>;7tu8-nP5fcJ?1o=D3;VJrVsKXT8f_*rRHvh1SI@X*; zT~akoC}sPPfD_M4U1_TiRObgNcxSaHDfc(zUB@;x5wtR5KWp`Lsm*ProPKLc8hT(O zNp9~=Vg^v*^u0mLVAN8p+6n@v%xeyI#n0RfSFjbaIYa_z;(Oy7teJh(iYUg6 z=?6QS>{C%IV=Ie?yXhSh#Qwu1>kAk&;m$mGewRO|KLU%=lb1(lWsuUwrK3|{$f%m; zREvtbQBSFX;_(=deRr*C%uqmyLty_ne(`Zn;F8?@ekq4P=wF%)){I|o_A{N)D(S&MXtmXh)A?KKq@C|+QDBy7`m0#aK^>C`6q z^H~BN+VOGZV-2a*@f`_oxKQA-+Si}ZupWL{sQ2d8^*`BJcpvK;C5fk%C9PAj?m$3&G zTyoz?eQ^9$*jBdR?mT{V?hq++L>Vcay)bErSH=R**2^w?90Gp(#wd!|@D5!7v9e?w79w@N(aYnB%2 zz=dpJ!a?-uL=&e;Ip73G7I~5PFL?-uXS!A2D;#{BR8yJ*OS7;dRauG5F?SdS3!Pby z*Pg^iDFG64GUP`Z20$x%Jk&n?K@xMX!btfsEz)w_1E1^Ff{pHNl4PO0GssvO*VInn zT9rK1Lvy)u8I(ILfVK!S@G>1(TXcrpN4n9J(oTl=^H3$cbsj3wl!Ier{V*|=`*)H{ z@Wh4IvK3MKsDcT*!ps3*%+3l;5+zQk?Ud~n5jU-O?rr@1)cXf{2)k5(KU?BUrsm3M zMKoZCF>CQ^nT-=Li^zoOJ;3lT@>d4KU>Td%P-`2A8IvdUPR}X&71Z%i-`o)Kqn-Y3 z-n<>;Su4i?|9j(WH(i$`yL->kE*~e^r0zL0gH;T5HYV-1|K{O|P60M!ASk{NcMFz8 zjVDlYdB?a~O-ox?1rGsi=*Ws{V`A9q%fcF0grAIS1qlYCXiEJZ=kv>$n{dNoFdSVu z$-Jqr8T}rjHOs!tjbj?5j~8Dck?vST!hj1^T@*ic?z^R6Vv0a$<{_+8 zHC?iSzQ`w?4NXeWhe>xXFcOmh?d;d6avnl~26iKYyMpSgU`mS_C&AWW8wI-otMdW@ zL;q!^bgB+T1QP?cAh1RtCV<`&VXyy_Z#)FEP$~8Pn?Qw(?$14n%^{&p)EgJ?`F_?X z@#eR16Si(aH^B%y{ik9EKpc}Ge?f~D^%FA`^KCkmX?8^cOTyOVnB-hd(%uW-*_BXD z9^oN)Z@m}wrH|70-95>Nz3WQ)_VQ~afybM92vu)xW9A6o;gljr!Yqvg;&47p(plxE zq1T7lEBozE$g=^5be@#;TabYY~bRfhIC z6awx!SEmCj!bHR|#e?K|PE+=(1le>yx}i_T%-zS^Gvnqq)jvrn*hu)SlqOZ7CFqyB zx=lDid$*Q+S{V{vhsfGUqGtmlLiHEiEJ-DJmp>4v@p!%>9!fJIHL#E-FJf?5=uDL+ zx&tZ5L7b6>YN-ZuvKycX+f@qJ>V>XoVsqGmF931Aviy3FLit^sUH(->o>db6SS7(q zRAB;vkmcMTC*0%r*<3EVB5hL&lMph)Ta3N=U0aeA3CLOFc=WOv#1Uk;6N)&`m^D6B zDfH;;4xv99lqC7IcO1Si5;ouZ$IC2jhCM~48!hAESj{19j?P}dCz~SeNDx->ZUlNH z!hKygD5K-A%^ppv3EYRQD{~Y?G_x2*ecfxG?a;n8j4d+vb&)Vn3M;y`AexnIi=Z82 z#rv<{{-%4bR)wtAIQUhVkrC-}<`GgR>I>u9gYKDX$hXag2a$ErTUK@E9i`@1QFsu! zUbk0)g3XDgUDjBAT8lJE+Z>>6~Z1muN4w7nG zA!vDE>~@Eh7U?ulE_)OXi2{osD@L{*`2q#JELu*Bj*hbI2>1*tJeE4$C#Yh02zsFf zVL3NSOiB9SmIJ+>YfOY51{+d9ykO_&-(HV&hgARa@Fl2uf{T(R>p{f_?9KmeLg`?! z8lss{UJW=?!Md;U%Y-w6VFijf!WUw)!{D4UG|G$&WWB*Gly?mm9j%YMTifmndf@Md zqUO96Z(UTn6>9LUdSYel&19Jb+4ga9(T+VLtCzE?C)PyCf2mljbcd}%Zb;=?lv=R< z7129M`l{E$9mX~$6w!Pxh=cCBTTu`f$PrmQ1h54k&Ypv>!YV%8ElFNP`t&g|HJT)0 z?-8{*MPxsJ6(g4nZ=@;(gWi+R$boYg^g%Mh=4`>lyyN4h-t#LOTogTYh%^swi5aW` z++UBnY?sB1@pYZ8P$}nMt-Ra?Esv5SCbFzdP{0*cVnLd%29@6=I1{iostgkYwzIp$ z$f`5eNZ>^;ue$J(XvR3Tndf`1FQG8A~912ov~9i zJ=?;O7Jh=$6OiN>fslImWL+;WFeV^lCBx5fcQyt|kdFu-0*M_p#Fvth1>7m?RloM~ zA+o_=tMlH+hB>fPcBb9#E zx+HEO?_FMLj=^=eYCP?}ph0?1djSM<%@ZfP~w! zf=Uz*0gqLDgsRmU*ld1&lLR^IfzOE%mS|aSs!`v9Ol}DWvJ*{(r??4^h)b%OhGynG z1VhfihJux2&aSAKPM-Y~Zs@@k(RN9)B}l`l;?1Gm*zpT#he&UN3YWK&O@k%KPiezd zO(u@^TOebA6fSaBo-iX#gp#%}sC5-A92-TI24X2V4P=Fy)*X~Bd(V-!eoaifm;r~)BevAIB0-VZj-oB47bPc)R@J*M`!3uU8XyTdzb~(kaLQ;L+mA_I zuSI&Sh&9qcDMz4`r9GEkonKd+pUws(Cw7R^e|@V{k9C({YApD6Y}A<{8MreG77#Ri z@`B+8bgd)dwV*xu5RSb}GwgdWlbesKNA6zTR?tqZ^0-X9$=ohR_C_94? zbSrUEY8y%xvzkFIy>ER5UD>2;9>N%7`)fHTB=0IL$BlX>f@(Bc8?Rr=f!a|==!&Me zcN66Nn;CKebKnBYtELP&vmjO3j2traNenefP*tI;3ewvrk%%VD`!jQ~BlVQ<^5GYa zuhDfY6ZF8eM_z>`yDPxaM|O;0Eo#Fhz_&CyxCx?>aK}N?N8rjFQGPe1cr6p*EyBn* z?I*EMWVHcu%GBvwQim?uD!O zOi6;@@9B9@nVd$8lQdpJFsvVYACsCT^>h`Z0kC+mP$TnK*glB~IR>6_dfq4x)N~D8 zzmLKBfi%6XH?(TssiDol8!C9HV%VwT@47Q)8CQ=DRsx{O+%;8Y zt&8Z@S9qemW>!=pEBa$wj3Ah7Sd2{A4>euSpl2Safkyddp(e0$L!xpIttH8w@oAf0 z&}x|p`aQzfHg|_ zWv}L53io|U157G7^B2Ef$I}+k+rAdLS;5Odr9LVq(n5&mue-?Fwiiy2K7uwr)@W_F z7}*or6b?^gVlD#Z@}#U=dU=S4dH}f!ZY!qmgK9fo?F3<-cP%7rQYFPK=wtvEe^W09 zGQz8_hfftP@xUqQ)W1Y1MUR0xWq)T>^nwnFg>8(w{(g#iMRJ?y#Q;0!}s`%tJDmLYG+ zNhIL2gprwEto!{4cpn4U++@`9UW1NTQHpL5$8vF35;KmWKa&uzXh}d+p7MtFY{o`T zjBM$I!2v+e2E?j8>;w3VSyjLh+BziflcJ&Y4KqmC)1eQF-;bKoaJgUjr4Gn>J)2@{ zvM#&(7&p53)4kX!DP09;0}kZ+Vh9{wZvR~iT*X!~=6r;P51Wk+k|YD#3t?%78gaBQ zq5H9leCj>w1)GrTz4!RdfNh>(k-g}01Gb?|js}C2JBKwIKA9`bA!guQaM%`L>pB0$ z-cuM{h?8Y%Ug8=MD7m5s7-9QF!8Rndw7%^l6Pjra3jG&9NIjQropsgg?m;!l8 z$FaJ9!&n-FOO8h-Rv8MI`xfprhUT4?z@a0Uc2=O9b-j;|+yKH4w(FPNfEOtnMG(hI z=2F6^XxP54*O>Wz@KlKynYJa?=AXCRpN7p5#R#@vhg*Vmmdpg8i0k!v zME_05Or_27$Ie)HkUx%)D9y%LcmF(8MQcO?S$eYIL0M#o&Hde=a2%Wa`NGv3mVq67 z0Kxe$evL-MuX_Op@`72^hptJw);l?xY^6yG79&%@{CxiBr=3kn+4i*ekn=1jVtGq{ zGnnNIsDHMDlzwAIAp=BpZtB@B&>2?sg|P@Y{Iz6zeQ_krB2ct`8zlOho5TgoQKuy_ zW*Cu=fdd{G+U)uL{r&o(?w25o*|gX1gGs@+RBLvv zL|7V+v*c^;%(z3-`1}y+c(q2oK-Z+;AMJNZG@KbfUc&PFexqt9nWr;=0 zc^?&ffKFIOut7W7ryztg7zS{NDoA@Kmv{ug{1c=0=3?Y?+yt-K8!*0LQ38s;s=q7* zLA#lv9Pu4s0Pm79^A7J6AG2W`v#)C?oZNe_Ogj4nQe^=(@l!oSLAV8*uevZve{7VS zy4C;vrVcc#S}e{>Vcj=l+S~FhNO*r+Fc7HjttKhG*@M-6j~mt<0h?-`R&$0J95YeX zyekDxtm_4Ex>E<^D~xIH2E*!uM!&5=87j2S22dgDg6PL}2&aPoxCV(GQ>d>+0;SWt zZ_#PY$z9BT&(0s;`E{W1oI%x9SSMtf@94JRliErx9Kn0}c#wqbAxiGKxeraH&IuLO zXQ14RY(3}8)rb{b(ou%q7&A`w#GC1CIby1L0mmgVf>@}e?K-Rj>Nn6#Qb`A?-fIEa z&+c_ZmD62MV9EMkU2M)fWRZ_RU*-bNZB091e8C7f%E!?}GjTG^O`YD4G2>JBdwvam z`u(DBnjm=eByFCku0^V#QD;u1a}%}$1i*nj1PFmiWoAPP2eMz_A|0T+^Urn_|CUG& zq|tngFBk&q6Qg}G;$#DEssmW8V9-W>ULhIyiXVAj(brMEPlNPWjNAa`UEeJv@nJ@c zOjYm(VD}Sc3pZi0Bk39?{f>tw3{Vr zx#DpItKydpDZ&Vdm>WUL(J48Y3^keo$bC2_a)q_1xN7-<&iDB01&+iv%lt5zmP4AXa?qpaak^GEbYw=Ed)^A z0JD=re?I549Y%1G(!6W#$h$ko$LBpUptR#jQC5B0m?uG|W|+J~L%*!32C4R>FhY)w3arl`Vo z#Zz7~M!U#UqE#>V-Bo45fd&%R2xGa>QIg7+@+wOoP5<7Rfn{iM}uk zx`yQ>G|G{!@#SZ=)`IO_?+GjA6cdu}G^Bgr!?EG8waCK-o;@f#UnpOKB!FCIyB4>C z-q02P1p%|~*Pn1BkxG`JTnIhwpf({!Zq+c@@*oBT-m=3R6w;60E}GG3hcY-`P2@?j)UHV?Dfwd1c1t| z_L>&4($#>J*)wmFzK)x4z6(YKoKj=Umf>dfosZns1|yX zHt8dVK-1u?3lBkE2&sD$0r#!H30`XOR9t=LxS%u?p#~t{$&08k%#_ZtVL+BT$@}ZlYqsPE$N|4#= z3gt~_;++LS6UAIe8-wE*6xPiuzgjs8HX4Mh}|)nrZc0?Y*4LDtkAmx*AGXB!=#Zq;j5?8)}SHEd@o;3Dd-}| zUX>&}%zcBb*~bYjCYg6#2K?OsTSzndbm8Dm&+Ven}@s0W99p(nKuX$ z#xs~S5)qNznrIt@iVdvi^cK=-i%V`pnr%>bUMdV4Qdqomss$<0#t0Znin9Ot z2-Dq*lYsx2`u!?*vj=Ga+HWldN;YtqqxwB(@+)3GsSIL)B-v-Km2xCq(A1o?QhBj< zaL81*h<)2Rz1nU<;>J z-ybZ49_3B1LK&WrH-fg`E`z4`6_%PO=!84wI=KqkcQ5wkZDMYp+eDo*;e0y%k7T&g z<0Q%}cd>)rddK{csE$*cs2lRW+&N5gqus$h1M6UfjfDF^D#!*X{JL5@T0aN@7zf@F zxc0`zXKQjj1;mFVBuP+Uv=G0vlpT-iZ#2Hhh>X2)MvWFzRJU$0pya0Xbrz9)72;^w(dTOo|^ z+jCbQrmsOg>#f$pBT#3n59bqx~P> zLeVwPTrqz1;j#lTFVHgDL95%tSh+P(wB)WVytBCmK)z;7Wf!H$+seXiK`=6666w>g zv<>Ray9omiT+fi%>*qAL@Zo|T#= zQ=C{86;I_pSQd&ioFmNT9z=cZ%zDtdR(feFO-W-_%)+0howZ>G%X6I=&TzV?w4*_S zrq2y&4={p4X$$WI*VUbw^PYR=pNfvfMolMQdxKkJr9;YGeuso^aRT68b;%S)eL*%@ zYq8-U*219x)Y8s2na(s^471AXzKN#e{mg<3hch;JrooAe_tuCyJO_$mrP&A{;Xk=y zv6WE@YR`R8XsGGcW8OI#+gqje?e-mw(VT<}TBNY2=Z~%hr^^%6zwYN7-s~@oRLx2Y zt2dj1BR{;o*TPxR&7cEwoyiIO<#GU~PYt-o+u~Wd@GiHT@1Om>wt_*ek0>^%;U%_o8m<4_6HH_e){=+KsCEl7QmHF!h!r5C9u>HxEzM?Ss5`lx*=%pA9}d8kG&dZc&= z{y|d1zb<5nzN4khHuz>8MEK?}pFwxww)H9{3t$yX@%M~R1hqwBkfh4K^{Foq?fsCj zzEdFJFDNOz;$T~-!rXK*Q20p_bKqkhpwl?jVznZyVj;d^8|CpxC3v-vwiz^AjXm`^ z196weKkSAgM(d9sDcHVv)>kDGPV5cc8CxnD1)H=Tke~Z1-!m2`L2h07Aar65Ji!fi zHC7VivF;Dz?_CYWKM#i`7ZtpY4Lljq_?rF;nD!KD5;PFfM&h{r`)fG43Fm_bWF35V zEE=FAXNJMI6zo(9g%c^v%s4;&*E(&XpGv6rnt1_K;-L!pKgpCv2BxGzoofo3jtad1 zi&lY6xJ7P4r`L%0j>WU>l2>3!@VY@V2+3N4McjlqeAoSeJ)`n4DU)_!RjhUD`=hb$ zN%(B8#Qw~PsPjtk;O{DV;*d>Z7d|$Ua zRNpf6AnD#RXpy)dP%Q=scBe}IX7$s{pb3ZvEFF6tY#-#Hb`TU)`Muqj7Ky*o-d17V z1x0!`BYI1l*cY=omsA7OpN0S(zOtQ-96Tn9)J=uP9tCfWBchrwOF-rY6jMg*WzZYa zpNK9sE8z6ek=~MD4+GtGX7TD%6!bg7bFaWQ%U=sdW)Fy}Jq7zW(iQv~Qn7NN(B5F5 zkjI}^3@3Izs@$)Bmm;LO78yW+m9B$D3Ea2*_0@=LmM9k{h6_Y8#iy4>AzfPXV3z9_ z$HUwN^9)gA)}41KQ5Pp*Zsm)aeO3{U;JMm&qqp#_Wm{ zraDD?O@fm_17_y3g1@fP2AU_h11fGWi3?Vzcd$ioBn%x*H5o9YJu!E}y5Ehr2F;XL zZl$ui{MXpoale=4VbWBK$d;}^fJ!~6bpWD0GJXmuC z?BliDu`mk?nxh2Pdb<`Z+ONU7hr!uVUv?W0_}UUdLE`L5-KDOahgEbNT%gUI^~wlr zrm=SXO8WxU2FYX@J^E4;_|EIO7@5=0w2}h$ARno;1S>6fUa;UKx?0|LhDq#^fLPL~ zj2AYi#wEgrdW9gMnso{6ugwp|ca2TD4zcAZ-KFrjEVH07N%1k>k>)mha9e2A{(*~l zOq7#_CP}ojYjiTqHC>ua*)tt_+4C#tAKip`7ZTTrItUAOygsWRRmzNXca+cuz9hDI z$`vap3?gS(V_)XGmCLjCoEu+afoeBU`{Uy1yr6d*JiI4$JvUXT$oxy!dr`$LD<5T5 zjdjzzck_X>qoFonkFtAZVJa@FSS94Ra_g(JYq;_;dt3X)-X5{jfZ`MGz0T$7P)TFP z=ZWn8rq|I6-jr1s89ou8x^R2l^+@eghJN-B*`~nGV*}nQA#U>Zi(9c5U%Hjoh$6a5 zv6YK{*?ox_7;{%m(ml7mOZ;Ig$MZ5abqCFkoA{+Uq`c*!sun3YovZ%|)rt0ehR{;Q7^7v~2<_2(DOD9EtBq|Cko zZyo}s2yb`7dNWSSQBTv(;T23Q_QZJvc@O&YfER`e`#tV<27O{pG*?{j`tGg6R=qJvIs-oG&b${t5oS@pRVEm*c>YV{X|t{5mEhySm7_MlM%}AUzzAF@pq}9hV@;+# zK7CBt>&`G^;t8&vTkC0G8Wo?;R(Bm;r?9!2Lgo~{_c-a)IEJ}BC~`-RE2MPCPE_{> z8^mEU@FDI#l`$@RHd0#Y47#a#Rwz_M#T|%jR${J8x*R1Rp{CT*vsVCvJNc-=?c}fc zd!tU*s=HJ~x0TYcf8(1H{l)lA=?)LN1T4nuuEdkbF0 z|Mt-&V`+YVWkMR-4K_xNU#}kiKZbSRl?G02{5YHTPw%$;bj2B`kPe&sZTo~ZrLrpQrO)Ei`CQWRTdrum!Mxo zD$>=_KJA+MaQ!;;rT9*ZYNg!lri%1w`?cul9+ww=vF&Y+l;(wOuxY=KRjFk{cl1K; zMW^L9aB3tbBzAZ%$urNaAa~^g<1kUJhrgkU`R-1$p#4nX?LhGmWlrdCeTxy6ZR(xL z_=qPl$j#lbclroTH1JY>Q9%1tc~_S>aqi*z;u`Z$lPko4Z|!4oYW}CIxzqwKEse8# z6!$9{tLO|Qg<0Rc%C2vCSzeoMs&U@4MZ*seCHGtdt%V>cw}r^~({L)2=!?E2-I@*5>rM%r6!B>4Om5dQDu_tO`{xfPmILX8SI|%Uj1+eZf9sfqt1TcdVYvs?B52-}9}Go?&kGd6$^& zNrX9ZiH7@@#}{v~POW?$FAd7(iq}P2qF;lz9B~iTZ?)ZPxjbOAvHJ@UjY=#D@|QMm zoRE1t#vauEXtGUQ?tpGn-Q8CXzy4xP8RUPcZ>T9hDk(+wt5(XKIpJ>4&~rR^34>PHNx&sHsd^Lyy=VU4b__QTO4DFLYYn zyu`s(T5fgKEy*(PtTuf03C({pm>4v(6qxsrjk@|g0Mg=6pUMiPt65ZJk%!Tw!eStZ^57~j&5J#An~c$V(7RA=JK zn7>#Y<}B|h-litHn9Wr;`|Y9o(k-@nAMZb?@JT|=>SVJ#)L@l-6|G^ey$O-O47DYg z^pZyWTe27Vw`FC}pUg`d46iDEV?nQC8#vbNS~or$)x=+#!7L&-Ts(X9fNg7ST%@Rt z6=`7AW_DaGcR0B*r7EJ*mGgy1|M425dQR2(Ee#qcPgSqo73@Wk`DL41!(sVtubGpz zCuEnVCr`v{wU{xCa~!WkTbgG6bz8&U5HBAcUy+sUmKMT84^^79{U1$f>=jjU8()LE zHFRdak~cK!REgWEh*_l`dJz);t(ezG{-Ft9+s zz!|>F{^QxdqE^FSKAwM&YkY)g+XDSeA^gQ|aAXVU_z;#0nc zr_@Y<%Y7yGv0Te}o>p(cDIM(xKJ=$02SkJBsV5G(Uxl^f55yI@LHh3CR{Sg6+!DFW zK^c)wJxF@;sd)B6!^PEG>924>gO~*BI^?cdHXgGa=PCUboCDE*+SY^M)z%-oaguxc zGer}78qqn1*gUqb%^m!$U?NQuT`9A2Nm%e0jl8{^1-XlxT*zkvS!xW=fBqIR S{f-HIw2$Z=esSpR)&CF2e!b%W literal 0 HcmV?d00001