From 2c6cfadb0cb7e6fb61a00ef98dcef53bb17f3811 Mon Sep 17 00:00:00 2001 From: ergz Date: Tue, 13 Sep 2022 23:27:50 -0700 Subject: [PATCH] more work --- R/ch2.html | 275 +++++++++++------- R/ch2.qmd | 23 ++ .../figure-html/unnamed-chunk-11-1.png | Bin 16167 -> 16142 bytes R/ch2_files/figure-html/unnamed-chunk-6-1.png | Bin 12250 -> 12243 bytes R/styles.css | 1 + 5 files changed, 199 insertions(+), 100 deletions(-) diff --git a/R/ch2.html b/R/ch2.html index 169bd3b..9acd4e7 100644 --- a/R/ch2.html +++ b/R/ch2.html @@ -241,12 +241,12 @@ Probability and Likelihood gt::cols_width(everything() ~ px(100))
-
+
@@ -851,12 +851,12 @@ Baye’s Rule gt::cols_width(everything() ~ px(100))
-
+
@@ -1272,11 +1272,11 @@ Baye’s Rule fake -3967 -0.3967 +4011 +0.4011 real -6033 -0.6033 +5989 +0.5989 @@ -1313,8 +1313,8 @@ Baye’s Rule # Groups: usage [2] usage fake real <chr> <int> <int> -1 no 2891 5910 -2 yes 1076 123 +1 no 2942 5856 +2 yes 1069 133
@@ -1341,8 +1341,8 @@ Baye’s Rule
# A tibble: 2 × 3
   type  total  prop
   <chr> <int> <dbl>
-1 fake   1076 0.897
-2 real    123 0.103
+1 fake 1069 0.889 +2 real 133 0.111
@@ -1586,6 +1586,81 @@ Important

this has been mentioned before but its an important message to drive home. Note that the reason why thes values sum to a value greater than 1 is that they are not probabilities, they are likelihoods. We are determining how likely each value of \(\pi\) is given that we have observed \(Y = 1\).

+

We can formalize the likelihood function \(L\) in our example as follows:

+

\[L(\pi|y=1) = f(y=1|\pi) = {6 \choose 1}\pi^1(1-\pi)^{6-1}\] \[ = 6\pi(1 - \pi)^5\]

+

We can test this out

+
+
6 * .2 * (.8 ^ 5)
+
+
[1] 0.393216
+
+
+

which is the value we get as .2 in the bar plot above.

+

the likelihood values for \(Y = 1\) are here:

+
+
d |>
+    filter(ys == 1)|>
+    select(-display_pi) |>
+    knitr::kable()
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
piesysfys
0.110.354294
0.210.393216
0.310.302526
0.410.186624
0.510.093750
0.610.036864
0.710.010206
0.810.001536
0.910.000054
+
+
diff --git a/R/ch2.qmd b/R/ch2.qmd index 4701623..975e471 100644 --- a/R/ch2.qmd +++ b/R/ch2.qmd @@ -543,4 +543,27 @@ are likelihoods. We are determining how likely each value of $\pi$ is given that we have observed $Y = 1$. ::: +We can formalize the likelihood function $L$ in our example +as follows: + +$$L(\pi|y=1) = f(y=1|\pi) = {6 \choose 1}\pi^1(1-\pi)^{6-1}$$ +$$ = 6\pi(1 - \pi)^5$$ + +We can test this out + +```{r} +6 * .2 * (.8 ^ 5) +``` +which is the value we get as .2 in the bar plot above. + +the likelihood values for $Y = 1$ are here: + +```{r} +d |> + filter(ys == 1)|> + select(-display_pi) |> + knitr::kable() +``` + + diff --git a/R/ch2_files/figure-html/unnamed-chunk-11-1.png b/R/ch2_files/figure-html/unnamed-chunk-11-1.png index 705794957c539370c3afef028c04abb5fa3d21c2..f58d8659287a0945009bcdbb5c1e57746681e7c4 100644 GIT binary patch literal 16142 zcmeHO2~?BGmQGkiaS4howjfbaLEDCQ17u57Xw(*hij9bpR$FjmSHqS?Xr&d|L`0h< zQB;(uG$NajL|YLNSrn0G2|)-DwnRum$ofwO3C4c!&CEM9^JdN*a*CW#f7Pw3@2|RB z-Fx26)p@4w0$mskHgoG1$DJ^kHW~)gd@@xN)I2LT>4(AKyWF;FdG=m2WDdf zvjN|UFrPv_*Vwsp=dNA57CcZ^D?dIqHiPlol7|$KS;z-o@YF#UFfA zUE*K*09rPnjJ5RvpG2QTPzrq#TYL&Zfj|dkbN_h%cu=VR@h|l5HY$_Wn^nn%n*cAHs6eijf zCW3F!7JOO?TR?#dA?Rhi%gcEGmsJ0kZ1zhw^b&$v5^Y)veOd|=TR=NyL-2uGAc#%% zXH(q@9w+#?90*3{FQQ_2=(tZhv1Z+pg*E;*uQ9$9mZ-#@?| zI2NP<+u~UaX~NncE}_5@9ntVb=SdpqIdE;#QVm_$R;{_POH<8YOJ}>mw){;4XEbDC z90Na9aZa?_eZ_f_>*Vi$0S+s^s*^Ix3im07SOdmowD6D3rBdVc4{bH<`EIxqp=9@} zRcqih>5Je_i}winpAMnDv&8 z--UNCBy1=;q_yRmk!D}~OkVP_Yfg3)GB%>ClO?O@8tx)mdoqlecoJQ~j76S+Qn4*b zvKUR0*Gfu207DnDfop#}JP*Oi5E@=}a43PQgdQJie;&RiGA9HoAZ<~F4w(Ei#jzL@))fqsUuO3#Y6r4k4K}bkE$qZ3(6R!1z+y+-@z^u$g=~ z3Bu$~04IAAgh>!S@%YJ|@PBnDIHS*)b^!6*T6;CTOe15KN*JD7xomb_?{}1^8JdoF zEd%cCoCBYHI0?e!PMACnlRROPG5)`j4!1NV;sOtcHd%+FrSVEtW1D>wzkNo-<+Ot; z6V>ZhcoV6Oc)VmLFtt}TdWZ9d5H&kpN>-@sz{QfG3UtM;P<%&}o2HrG7c0A>Ay zn&pUEdbHpYTrO)i2j+N7*&niwI0NEvu};sOznGxr6e^+}3YTuEOSqEjPw2_&>Q9IW zj6e3uW%c;UBUgLU_9+Kq;%E1E567gjO7d&EfY)G$OOyP>M!o4=*Hg_+=?y<<3u^kF ziTuz!Mu8NDmw)WgX@Qy=PisLHlWgcR=OHmE+?sI zMgR8WN@K8$>>rV7{N15;t3Q!Aw)gI4O`Eo^l8F8ur!Qv>h`hUw+WuUev1MY04#00P zYbHltbj5;9sF40;oiR@L-#$gvaJfz7l9NNx`R=<;qrCKW#7W<+kk`a@EAmvN(bDH8Dp?2^&+>+ z2c9zTy0$2-{R?YW727r(HO#r}h~9BdiJ;%+6yVl-^?N(lJ=;&IH#vPhw(Lpbld$|B z*)5yx#mu647AJ_Ojt`|^??IB@G!KK=@zQ_Q>O=;%7(YoUFB@S`r{e`FRya6qy+Xksx~e)Mw(pW-G$oY{<@Hp9 zWKo;vs>~(@w?o`;ycWZtMMNIrhbA|;pgo90c?UnA?4!GF{0I%YVT@;SdY!wiEE#*` zgT60NB0)?Vo&LKt+c|*zHN^jhXb|_c>R@fQ4_im+u?dZ^+lS{69^_IXW=TaqvHjYS z*Q#^4u&?qNoJLbb)uH5>#6bQ9!S-cHLYX8k8zr-cN-GvqKArm0cT5u^XCIY1W#tlh z(K^s;UxuOrX_7uyW9wc#+ZvSE0IJW_-JSy_HsA0q% zW2mMg|TJHSoxUaDH2DrWa$jK#VY!F@;|J7?h`kgEs!u_D)^vU#UoMfOWgR4)_%TGqM%dmJSXmMvDRyZ1P(OG<4d^RRKm z&hD&kwIx{8)jt0c{ zC6O{Acy({UY`js!WoGR>tvsbv_;#>*hrL8sFp>qI30=&t*rg^#o7;`*v*0uliy>w5 z_R)spc(aHSse)9x`OfVD)wc2r3X11UbI@6tttQP943Gt;p@zxn$6kFFo!*h}LQU)^ zgwfkh4N2}Zodj{r9QAcsT34Lhfkxr^i6}qCklK^eOHCOwldcS~{~%=&t<2zOHO7Qs zQu_9<>x4*mQ8r{P!?bNdz{ez<$p*1sJ0o``i);4`vw)j1M&pEE&##MU4Aa)#Fi!E>YKm!*7SWq|)_s>l zb3Lr$>6m0+YPxI6N#PuUw2#=Z;%`QxiL!XB<{=1+l1B|YcYoP$?G(Xva?WeR-s?}s zDQT_iKZ4OT()m1t&Ydn|^(wu(ds+4~1C7Q+y>sv;bbh@0(k{d01K8S*o-?1`{NNT> zpBZLY$3JF|uYDT4+D3iqUJm6ZA5pW_Is}HQeRr|PiTYM$k1U$LpkDo?py?b6DhcbGeVqMpLCQ=J$GOY8*Ac8|*7tCGdGfl=R&V*1%eRc< zcix;*>VH8~(!jfmB6)oIYF>}(3X1=-HF8KRQ99xKzQjs@H#$MMJJkNm&2oMfrA2gx zFmjuNr;z0XCFLEjLRk9HcXj$2l3V5D8{{GB7(>7JeXmE-^MHd(DA>K@`{2g(JHrtl z8s)M+E4nnpH^I&AOX8K6QE|P=)Yxnsioy=(?9#w&`V#Fmhtai>(r#LRlEpUrX@BW_ z5l+L&UsGKP=?mA5qyF;?Qf7pO1FB}$f`70TF9HZ3+%BlYS^gb*U9nrNHB{$n4TZdK zznu`1hLuZN%HpP}D1tc^v3?b_hSVJrzsa0pJxfJ! z9mQ0n5Zh8cD6G*uMeXLloFSQ|ZdUOdP#;&mtJ4HWPtjj8PHfE~GSZfvyu&c9e82UwP!X(jk7f{%wTy(8uA1|*n}~dJ|w;RC0|wYuZJOd z#lryU`^4qRquOS0`NJ_;0{FlN&2U~u`DoB-Xrr9xt|lLn(qDgFSC8}+70Ik^e^oKp zdvJSWH39QC=xVL2nlKEL()H?AsR0SNS*uDi{RbV5=G3*cki#Q`kMo(E$n>yNd83k% zo=}3sG`75>L{7YEt5S?iHf&f*DJ8GN@g$O#hDMYVAy2AreVWk*?Y}yqP_Wq)#D{4l$yU6;&b;=G-AZ3O_2T^$;nJ8mYG?wY8PKXqBkH-{+bSjWhOYO zbjB^Nv%qcip;2K!kRZ5f8N06@`M~>(gAjue1emJSi>0P9_^$}e8W$&zYNH<${O?1O zclxqLdMbUxIXHL^x)DhWaEQV})3^wY@L@%M8rFefab0aDzmpVPFAT9*yzQ+Cd8AB) zde8eg{6H-uL#1CNr5lZYFER8`v;aM+X3*$gTyZrI$xoYXW)6H#buH@D#r||jCsygd`>)fANT14;` zw5!`+8L`(kFQ-`5M&g#U&i`WiVr*i{h^46?Ll@6jjCO@III${11AZOo17 zr+Z*KRGee`$*0Qb&Qr~w?qtrJ|EY{sQC-Wt(Joa+XpY~^EPwoyGB8zjIpb(BpbSYJ zzn{6LHfXSxdpT26%W14Zd{B2t=T~O0{&90~fdBP#oE-FjbPG(vI|=W93on`6NRu1s zpV&xa&b)tR#DI+thz!B|l>jr7aio>(aV0(6J z2|ie@x$E5na#57|F-FvF;VHRjor#1QWrfyBn@`C#c{w+6*BH92xns#PA&*v8F684W zxnya-CUDY(h9}V z?I2J`nG94xz0|y#Xv|?2dB`INKQxlPtQL$xod1-E@I6H6yvq=WU zBK-IRucmRjoX|Amn?sPC%z&!8%qiK81+=n;3PP@(tRQ^f0$ia58p-V5vjI*kn|i0w zoPvXbMPKK+pewvKdstwmm=6rw%;c2#WqOXc7`-G77I%>4LZ}%(l_BE~rnWOeqe+&5 zzS8Sbv0vu?@pj88)W+qxT<5dZ@8a^jq7n~ zfk+2?mNn(8)K+s!PhpsUmzH373B?=uY<&48wbcQBsDP0-Bl*6a`A3Q`bJGbz`BTf< z`=2oGe;xA?z!RxgH)we6$6Smz2=rrHHHIz=KOaZRWKN6}XZ1FqY?vy%8<+cyUzpZErx89tTe*?(|kQ#(H0gOeFYJQ^$dAeu(*PlFL%R>ysWHzi{#v1;_nKpj_$rt_m38g!_bbcurW}bO-Oz|BWqm02c?h0Js;zX zSN0a>KY6YssPS0b+QT&&6-GDo*Cp4p=GOk#4*iT`7xmSz2_rwc(^}Fu#Ev zJ8~5XcS_muyt?9Jsrv(lE>Tj%7>=#ZcErRPWIeeD$Xz7)d!O=0fomR#PALN)OX_&L zm~tmrvRW)LC@Knz6ntey9(}%S6M9G2I!cj&hl2Z}@Ny5BgOOT&KdzSNa1w?0lAGVM za%Gh{{tz?`KpXb)u+T6z*PBU*3XyNEH8{;Eia>IDtKQYu#%ts+0ShJ^m(dXK8GFlv zL?t!V9&rlJvt$gb^{n9iNJ|Hgmfx;z*6obmaX6#8zBZEU?frltjH8zFF0mB5vRTtH zsMRQN0mIAPDSmxT^p<=A#V;WUOF}=^r#j&IO%0v7&}bCoOggXUHotWN??)RDec3(? zmIvHj%9eD1n3}?2s6e5VC&%BoK`4>v`{;^S^icpP%oHIXK_UoqO+h=WcW7 zg3DgV**Z&fU@+M1ubk}n!(duy7);}r=^CKt<+D|TFc{p`WsjQ!_%94*1%r9RtgK*G z;5P~8oj+%9{DK7wOifL}3q`l$@wT!`vhwz}@&>>8R!N}IofVJ2vvY#8zrV9T_@y`} zRCoheR-h@zdV?p)I|;OW?f+cxdB>@mgRtgwN`APYp(Ua()K@@*yN`k*~IE%u9^1WgC-d6eE-uX#Z`AOgx zj0F!ppAH(74?z_P&J_v%6%_vp7OR2xuP0vrFgK>(1;DP86#G?4KC<&|z z&?u}5Fcumd92^-L0c!v#U>Zcvhrm!41!7e|Ebv|d9>4=rAqe_D5aj}xIwQd8P%sR( zJWlZsp4iPj0fVi8ePzGhEj(?wZJ4x-b%w#cJp1k<3$t%l5SJGP`fd9>>F(oz)aPek z1qC*|dopunAkpgHPvI_?@*s#((?D%WE?#oev^i~%@scCCeNxjny5>5sYKT2_Di8s4 zI`j}S4)7QaP&vk)0{b7J38Zt46gP$q? zUbxw9{RQIQslWf?d|1D*PC_frKO*NchYX6Tksn%$BnD|6j2hNrm$1{}B)6)KTi{el zSx}crlU~U?yYPN$Im)7ndb4sfnf>mAo%XgYx0Pfe)1ySnu9RUnVWpJ=_0`=QIO(l1 zzM|LVi7^2`MOj}xj&6J05u>YjIN2V}8S-+&=S2%xES_(wHn#Y2c7Lf}O(4!EXx7QG zuxH=8rJ}a_p6P^pQem==SjW_h{&KOn%OLH}jUd-qCj)w6`!cIDJiO=X_37i%WRH5P zJ)Jp^f+M)G!EUbp7vZzn%U0}qDguai!e!Ey4M?a5Wt?IHy{r^>_pvqj0*;sTsDvhM zNnoLt$qIvs>x8EFy^P2>98CwZf|qVqb=i=^ns7(OV=TEzGxj{{YGn$eXzYauLb~Pf zQjeiyt+jvH?`A(8{PQmfpL=b*J4uYG(+yuGk0dOBoZy_$STg*nnC@7Q%B z+io>edM@YJs?FpVH#O`ZnvwK8p1zTw!%Q}D9?{BA7FPuen`+}fCAv5E;3n=(C-X3q z^|xU^F*r#Lho+)PQrlq5_^ z!jxkCKVltz8xM$a_&{jbx2oHhlRgv?@cpUR&Z;<)l(nCF8qJ|SZJoxCH~-1kgen}< z_IY@}b%83>>rYRvn#RA=ZA>;#$tjKs3QK8-N2c9V3l5Q2@;oYuc)Xu}U2Tq^*Ee`> zSv)GD_0#BF5oPMvHEMq#P-V;d9IM>TX}tOoLAkAkwvJ# z1~Y{pbbHoJ_TDosiqPNX+BYxS9`2>P+*^&fxJ9|z6!0mw{5PaUSHKEmdKCXGYs@Nj z$3K=2X5hR$H!i|L+%ZEuHA31dv}?7M_o5DM%(j6##>xvIX);c3GuKolsBw`aPG}}} z$mVH(7nNkk9}|z(yE9s~_)TMy+VbOHPVA6j7mR^!pP{=xCdX?JBg*G-xVNMzzSlj+ z79|^Hb1zkQIUh8Kd&*>j_}W_hjrHqPTWF_kgatVRd7b%AdQ4D2`V4AqK>CZtzp_aN z)EIARZI0A)tG8-n0cz@r>4WXV+yKEXNnuI0JgnCs2RiF>d-JM^eHi+{P*0mbDxSFm z;z!9}RB!mrG&y>VJ7AtJ{~(ld4B}K9^H#deh{N4s{Yxccs-A(=lq3@)3H+g+ouk?i ze-w$ewL4zCIOdr8(gmBdnD_HUnUc{qz`k4SbA zLGt2~=NIL1Lj?wrY1`EprO7WVbWa)-Znl+mgzGm{mXb7P6FPabKJq+Byd+3+Vl+-i zv?585&=?~eE9=)EHr=%5Bb6C#MN|vO?0z*f+@(~TBZ(f1Ar}$aM|*b47pnl3pL=4| z(SSk~3Uev(+#1maCYCT*FL0g{hWr&0)8k9?9~BtL_TCk^r-mZA+A2k5z33XZdKg2? z-PCF5UasHRY_g3Y9BzxnmE^{pkKmNCeff~6gL57ez2%yUoiA>;O5W$jm%7sk;{NI= zRFuE$%er1v_=m7&Toy|9ZT}sRS$!XjqOK>ZrfmCsS9DkXDwSf5c_U3LXg(x6O_5Wh_q??F@q-ORWPp;0?h?KXHH5ce8?UZBCmJ{e^f=e4o-t_?$ zvC39ci9rI3Rd5z6$t3Q=zmuJJbG2(}fR(>cP#n72&~zF->BRl${^`6oi|gX>nOkso;}8>&=F~m9V>>%w*+&c#cW>)f z@7jURO&Hz!OQ6!!FRz>dueMSr&2<_-mtY%D(w_M8fTqpl=(#f-f0>|NbL*fw>Hvi( zXbXNpA3-$Q`I^w(dv?cJr8DBR*LzmqA<~f;52;~D=Kbir40uAU>W$t5xpw@6PdjyW z`Yx5~F$kfL$9ihb6U_+oTG`E*z8MH3!i>yM*=+d*xz=`UOYJZv6^j*ZZ)eIi;mJ_Q ziN!k|h^a2!F7z*hw{{zIfS3zwxQO)}F#5SDcxv=_LjpZmEei5_qd3(H5 zk{ZMdbSrWO;fi-(@K2bLFC!UcnlmPZq+Tne**OqR6Wa!&PN=>`LST>N&6p1VnH%IY zpw8e2h)n6SzQBi{GRqBa+vMIM_?@&oA^J15#qU#Z3(w+5b9)!XZ>WvINME8c)B92u zO-M)uA`|Gt!x>nId9(``i1_c6PUrH<3&!Nvoby;AkHQ>dho#%@*nZ$sp?8&Uy^qN@ zPG`u7R|aokX4uU59doY1ZF$3~!feNqb%NEu!wl>ghQKt(N)#Acr()7)8j)=3nAF1h z_?o#?{?jr&*}uE+`Kd0k^w@-sn?ECOWG||0Dl8JRnp6O~PH-CpY}^AR_?C*5$Ty*;{pv`px{p(cNK{DjD_o!v(z#mMwiQJ%)5UEK7)scAcf zt|5G24Im;V1DzY_#4T!qD-utuq22S)I3+yiJO+O6nS<9X2f)Jl5olqIU z;Nx4zbGwG*v0~;!HPx?Fm>H-VHV(+e9AyXrw&Njd;wp`tHlOax8KD=W7ne+51sInmjXAj~S|A+u>(!Ggg9 z`=FD8-}s~)wyeQIQDWONAl=ZrID8;ZYnQ?~Slqq;eWpSz4|m(-S+Ib9Qn( zncH|*DHy`DNG;M zBASku89qZz@2iy5`r}2?lE2NH2-yI?Un0asIN+%DZ1^fMx`oGpzNTI6KW__#s?p!R zv>$gwglld#u`Ixyu;MVRi-Z@vepEwbF^~}4k+x`&tjYMNLG$KBlvA)w>s~oTS7Q;- z$OJa;e49zSTvQ1ZvpMz(Qz~v4jADL;QMr#!dv#~^WhNJ4@C-(bu%2hAS2Dl(jpv*V!-+f9fXe5{zoPl_geqqW*m3P? ze3=Xt*dM6Iu(PO3-v!nI`Mqd0VMK#m(9Ar=RDI@D&^?ul`0J!-K-myMLg^kUZDzFDJ%dJ{b_YSRrfQKvXy%DU*NO6=LT)Dp z6b^+S=e6Gx8bIwE8?UuZ=DJ)OcCA4~`iMH2X=$KbD76gK&@env;oV*3b{4zUVhN-{ zz7dzmAoz-23b5`bU$_%MWzX6>pmqpv8>uY(nG8urUwCequP6-~vRg+hjFz!jce*L5 z+DKcuq8Mf}p0Gydozjk8h@W4VN>8~%NgTw+C{vV^a6(IVHIBgBqEF+YtTydF5;m&4 zD;{|o(#O&*hiGH)$vhg?Kt%Mnvo|D%kDFAiK|hi4zW7rAp0(IW4oFr)8JW$ZNh?)z z@S&F(IV_v{OuoRUZ($!<%_3esu*C@^SKH`)GuEXqQ(E838=tWd;;QcOU_M}*;5pelJ zMvLemPZ}-aTQf}X0SRiZh~36h$y=DO3zs#KT8pDbeT+S&pMJ2DO#`nqB7Gu^$%bJ} zFWJD;Hp&~2qErv)c-tvun7fWs3B;+q>QqK}Dp9WTxBfq!AB0@j5Nkg>a(iZ|qE>a{ zxMWYr3q@h7>cr%N@jFG`r)rDTYZZY))W+||&rQ}oKdPwMRGrJ%>kldFPbQ9LuJ@g5 z167v;dE=)u^F4o76r!pQX#RXrOGIWT8-8wlK)D64kgK!c#Gelb?(}~j$EijCqarZH z-YNF}ujrB~L7Ebze?yRz>B#?d0;B)$aH=8@9eEmt6ve2AnXim4EZXfIT0ydsum_n!Vm1X_Clj*`4PjS(xoPH)-9TPK}O=i zHHBSTpdN-&L@SZkG1X%*N6M8}E+SGaDakhEoNbzgI+ z8>FKaRHj&xVMhgb| z6zw|efwft2ZGGnIus6c9C3tp@-m?Nz%V}?yFJ<(eJaDDx4fDd=1>^Jcj4GF#DDUq? zw{p(oE-LSCSt_s_duh)$kYsG$R!V$+{H0`B&aPAC(g-q$`vknFaah90(EHf&(Z`Zs z8S^lACno>JFFgHUyp&cs*Ttr(xui#K@=M_34m(hiY>~r$7l70Zu}X6fJN--#VYR%5 zVr|x{4es6aHZEVvjs;imctAje+tC>>Bfxz;$qI5qM=|)2F?0UW#l25&_T@q`ejs(y z%8BOJ9S;!#xu^EZacEt*;Cb$md37e%h{%Y!E;)%m<=~|ixVd#E`r{o;*WDoTzY}d@ zf*8mX!SJGi0e5KBor0Be2_Cd1ZPWNXUlaMaf|Md0_OLNDGh9_|U8N6w zBS>LxY|gQ2rU^=yRtb``QY+MWMWg5y`}BaQ&a5^&jp*g2`PO$SNcv!+KsxDW zbt5hd&lQhyN+NqmzjlZC@Cf?ImY(;?^XsbOiIKKWU62GtfKsYF(U=_Hs0d1;%qwEd zSMY2r`!tql_q_V?1QwoXj=Y;~dMuTgQ1E@WSNg0Y@4C+{sSEyyCwGkydVn9(V@*YGA{H)*ZT2VU(e|4c0f~WKs{VfFe#PUf@cif8TP3y z^QjM5-)1Qrki`0>AGU;3i>E(mzOL87fli55km=@Ivb;#eBkambTsC(Xf8J8KZPDaP zOK^9Y;oa_ou1m4*EyZn-66%I3S^yNb5~s;;{m4_H*?oefs(U06@|N5ZvkUzFYy2f` z4bV{;?$tMYH6r~}eGcwbNX9?AL;B|fZoiQb#%@Va@T8UG2SLZVTj35SnhOq0U)Sv}_^mV6NJx&*YsBA2qnaUh%D_B(f2qNjTWkcYQ=WSv+YOFt%66anb z3Z@g*e|QCk|47WfQW*33bEAH}Cb;a*Af1*Q74cjGj!=8Epu%6St{^{nBAFvE>wL}3 zLNYv}yY&Z&#*3KJb`}GpPielB%Jh7MjmD3<>Rj9n%0FHklMD1I?&*ex!t9**Lft;o zB3co9VBkdmXh-HAn{9+s8qEQ#+gSpw| z*84&34cvm-gI7&jj^hELU(Pj0zU1sLlp9I=nex{rW~6zx+q`~6Mcmk{gH&uOp(OrS$#j3LMn>vzfLu zNu7-ECn&ncu!!N!+f=#+jo#P&BBc?xu_W@0WJZm^&=&hn#$d;gGfZ4DC~KWJ7r`>( zEUwV*Yv|O%^0r;&AFmE>n{0jQWrS>BED{>O)XXjM0fo%=xr uRcO@X@B#jAw(`xta-aDh$s!+ukL|j<3gL0K4_wWLedVy%K6}T}bN>V6!wRghARR3UbJMA3qURul+{+WM$Us4vEZYqxCK5)BvyU@WwjhZW5Ntu&g|99;?;0y;+E~7v3An_9243)) z{90zMoLP&o0x+!T02W|j;Ze#e1+AIYjPPUE@tLtGp`0&AN~1BQ(E+8=(WR__QdV@S z6Sli zR;M}&gPDO@{lU_W2l9Gbp~%@ao1{D32O{5{HT&_L{f(zWFWW}i%y!;$WcyC1cXqL# zp3c5GabHzPWoGiAIf62qGymXY_0yPBetthRDGUV_$-S(H%0O=T>ae=o^DvJSe20B7 z7rn5y*XH~m{!Y7NVd0y5PwaZK+5_AAP06h4kQWZh6?wDW_pe_`@$Xo0`yx94SMD0K z`fJVuS4rmLHNHKkn2gw)TaN7@?i-ghv*Fl;z_T-X)Bdwrc;SpnQL;1|v|UQ(&5E?KE_ z_Nk&7pJi6B>4*Aku)Wt&L&bVZhDF5V{T|`LBv{#ZD=jM`u(+#{;P5v*YQRJpBcFtY z+lX1-UMcEsK37MfRK#0mg)_}wD|_sToO@msxvrn980c~tcV#>}9c6ndF4 zUhR(CxgFLNDI0CFe*yojBrGt+}g!z=bB8 zFRc~m8yX2g2583+TSZ%3zXKB#t`=#xBBFVHd z-fP|HXPbnHX^I}AMPGED=H;MNFCWN|>b*>B8!q4N8NTzW$D$+|Bb@Y0C1fV8$SEEO z5@V z+xjKr#&k>gALM4o@a89uh2yb(Yi#!&OH(Wf@IE?VrPc~3;MIp6w&)=yj{dy*_-EVwAX5{pNu)4+Noclv5*E>NjFjAc;?I>VEWF5fo~UF z@m)&U!bQcL!8<3m=(u)L=%W~vg~Qx#>!9PZ2d&!S>WrvtY?EhzCD3HoJ=3eMNTk$kD!Zy<)kbY3{E2(d+c#_?|h0bgDdvh>Ofpw z?@shv>cL>+>k7wDawjz ziu?TtZ4cQt`{ZSG9Saun6m`PbS-g$b@9VL&j;OV`x;>HTD5r2w!{BM}zY15&DTv`d z)i!(UEp&~pveV+FP!C@fZa*TJ9A}jCm)d4GTPbR7wXJNn4{U}iw9+b8{zyk#ZF@H{ zV&0z9jP{&K14r^O>TEm4G&m}@PA$#kc5n8}C&SCD=6IOGL zS2k^sklzfAosUL=wQYYhC?$14dxA*I@1N0KS zkQTiPa=(i=Uu~m6262`~Ln+&C4UQWrG}j|r@4gu+ewGknP=Bq;9RO=h~i;so?4z z_tWz{u4ba+k8UI=Em2yPqFOpgbvp|cL<_l7M;z$^{<~`rtqitN$d!o$g+ige6*2mU z*W7%$2;{i8q~B;w8nI5l`IOQB??b~!u3LNTqEHcagF0{tceuKP?ljlm>bbjYQj98y zKHTH3d~E*N47r^B?N0Z$hlKt=yICd{j=^>gT|!spWh_mfEQAX(kbPyvNE#!d-nz(d zGwAUOx&L2yL@`Y_4`GgmjPc6!WG0fRLbPyT_$u+J@Ww~CbG*q3y7PH0FZW(Ap3wNn zjqLJ(8riYmI@&SpAh6`E5w%D*ol~rP?s_bV)_qBQNYI(cYw@+tqBoC_mzN5k!3&2w zrFnU83Yo7fh?kU{;Sh;p5@OOQ$n3Lv$D)yNw9J?1f(*$AL``tTZ!9*;CIyUdW)osW z=U+x1o2S&@E{ESc-st>}B?@EN&!0LooQ#EY$br+t4|Mh(P$}d){l;i(D@!C~%U>q-W9D(3dX!o?(-YQ-saTYKSEF`-gxRs>H9b$SUD zoRtOs&eA|+u*dOvQ!$~ns#Yl~=8y?AqYbw37#c|}$iehfoi=bNJ&a04vCgw9F}Qkp znKZ;sm(0gwtMJs7;@}IALGubbTn4D+bF(s2X0JqX+8OdU$jz{<3vh&C2fb(tiOrw zzD178L!z8}BTO7;TkJA$i}MQHETs@y15-5vjX%7)mKs4WODX-Nq1If1+Y!f6%T2cvS(J;8K`wbw{FF(=1ff6*=W#q&z3#wU$Mn(XsQV`V#;1;U#;7~;vQ|!wH zNa(CJqO~mM`G+AZUV*x?0QO%A-()?D&SNmn3oNw&V=#Aj)Y#7cJDl+c=Nj?jai7GE zW}vBa#FQ`$zT&PB^vaz~j$R9vN6jxDqv!z^6DvlKa*jXyKi z*P}_<)G45M|8`RfGIc$+(0cH&(92RbMOT{dwboO=1eHo=;peXc+G!HbY2o#67E7PbCPC)Yxs9-FS29DB}IALx$nQ9$-r%6|KZ;S86*Xc zNb8`s4L^vi)$4!3OLO7mCtoqVW#)DOG$u)WapgzBMU4>o4AQC-LL1 z9A$XV%#Up&SE?Sz2u-GV^Er(vE12FJPbW9f4Qw5i0L!2KJxJ3R@j$cT4+<_0^jNK=%O-BWenr>r!M$O{Zmpdps*DM$3|8-k}fBwEOEN!P-*2I;RdIzPi zw@^-BT&Y?KnaNDT4T5>GU>u_U3|Ds#)=S{q>wKsTl0{2c0vADKYJdPaCq z_ffzPLRw{HdKkr>0=hgD$rVDwi~)VOm_qAdU$Ahu)uyo(bk*kUfg|8d!1)0&xa%W8 zx``r=AVDSx{32>llr7jd*fIN^!tvOsb==e~@Oieh(vABp2sx$jXF~f^J(Ld{AMnM@ zWgdV);gbpJ8#PkSEw#R^A*1*$xKA7cso}^~(#*IFNPm@>&$yokWYl~fPJ6D=YX^Fg zBPtS2-Uj{E3j%yN*`nP8a(>~!{H&@I=J$d%2hBYiIh!lcX7nSEnq*Ql|BQ+7#WdH@ z6S}@m{&CM?ub`s=tJnZZv=yrslUggK2+=A@)iwyC3FPUkRMC)g z#8S&6Y1N{Qf=4WfJffn8hmr_YRD>7^CdeZM0))KwS=j;9d+v9?@1AphoUfPtt(`A> z?OC&D&6=4tGi#2J)~}x8_O=@Wfta%95nK&~KtvT+r7 zL?EyT1OLTZiqUV6g%$g@UDk-(su)wB|_LMT?B&N787KH1I2q zt20&KB>Qf#}Lie&a6!!wq!QCqV!o;xG_k50z(QSJ zT>v{k0meYh#Snl~i6K=rqyjH(xB)US4uYVq;lbws3te}A9K8pDn4M<3kr^Gjcm!e& zV$DY@HZpR0TA*#S|430J-hZCHF8e~M{QBkXJ#QDDmG7I~I5T%%K;aS)7>UcK!F9yVfa)3u_6;f;In# zdq)HT3S5=5zr`x4o$~HP6du~P-k2HnFV87AaL54F? z#tNcO>_&Z?GzzcX&)cW;Z@yb8bAPz?!;q;OX<@ka(|b(mPpx=aMot*)H~~loWXM=WY+~01$9yv{`@W{{XK)f zS&XXPFxoT3YsGVsji&qz4$B&CkOqykg%Y`aDrjYz`hm=k`j|4rrd*mj^EVfb7>zHb zGfI2B&+#_x`Qcj_!KI&PI_poDou{~I5aSeWoF;ECQ=##?Xv3+T`0U5Sr*6P=tVrFN z0-1Lm3m|u-usYR^KL2eRajfoO4(mbGyn7ul=kB3dO_xb-Z(z-^8V>8Eg$(W}>rSzS z-WRIAqxr}iP4vLHNyeMErOPp4*6^%6E4)Z!6dvH^;g&-YLau(O<6zO+%6=<4e42df zIA!PNi9-HR5(keZjZJEodv}}~BiBC*0%BB_*5;c3-gkDUYIblHlot8FvGRkcaynAvt z2Fm&kTK_oVqbn>4M96Q4##<;vsKAN zOOl|lEFz%b6@XO)t+2x6gJkRP=w|B&(umw?(4(k~f`P(A+1a+0g3c6p$ z@dW(LRAU~Pf9F*i>Kid(BQiQ8&hj#J`5ArLtsq1Ta|NG%d1{X6f^2=Y-^EX+kseZETrPfH z_OCl;4nB7EK6}y?RcnNabVSCpC(ytvGr^nxD7g{1X{sdV5`0-|pR$CjrV2;su6`#T z!P0x4XMGVP(VdoY=7^r6?0Uf@;LGQWo(8~AH_=Y|C5frc}Mhgnf;rKMC=F9&lE}STX$iF``Sf=CmYZ6lEij8Yk1Z+QwDoRYZsw3)@~Fw z6NId#=XgnFc8F45B{Ql2tO82NvX-G6_KXfZ&%?1Ss>NsTO(!j~D=a)^nT0?o{oRge zJE2057i0hK$4+`>SKj`l^fB1HN@o8QWXHqHuw*BJY?+%e4ORQCebQ%8#=bxaJE^}W zWcwoPO@k5tM|X+W!Lh-d7iEi>bHhv0U$-V7J6$P!4e}ps$jShb#H^N%aK@Hl6^1C@TS$k?}s;st!u?_8Rx?dnunp zmUF10p5J`u^$h`rJ)w;YH(W0%Y9F2E2ISzHcW6uPl8y$9%VBkD135zy>+!55iOpjI zdj~x)95N4tS580w+JXd$@*#%Wa56_`*_w!V%FMP4-(_St+kls_hurnMxSvBknOzX6 zNU`4CE)-`Ro)BN1^Z0(WavK4PCX}-6!u}1=(v}2B(4i4($g76LnD zAq_o>l>}HerdpH!2qw{%*k8OUZ!GaKT~){6Ce^-Y9}iaIMomoh6*}<=l~?D&^s*R=#saYdLc{OXq+*%ZH6KX__2^ z2`KNY8gRx)_UWG8rsJUfybaZ`{#{KWXfbhy^u|W#gpb|^u}7-Od}E!K+Y5%g5FBXzn>Q0Y5^Xe|)CfWF&N184-(aFo9Y1GDG67uZ# zc0PE?hxvi0(Im%x-Zo zd%+uC_FW*vL&MDA?lpmEQBiI@I{Z2}blLv7q0qDE2c;5q12}y1J8VY-0wSyO2smA0 z40KZqX9?qR7QhRseJv6R2?ek2ClhhapE)40^atHXAf^V}Y5^vq(TPa?U(@zOG1KI! z<4)!C;FL+V2Vj#k?oR$|_$SazWRNDZYk%gH;i3H?sr^GJ)_Xg zZ!}}G6^u5t-p&}#nENKF*6v81MuBv2ds#0ibTZG;L}k2y;$N|2J)R_r&~z}0D9C}U^Sl6$xV?AMFaBAk*nRHg89xI!)1A7rJWSvstodJ?Y80#sHPew4cD z16x5`{UzA1z4s}3GISvcF3;Ku;`H}>%a(+T;X*d*W{{FDPkAVd!dc9XGmH3kB<`BV zyZ`XvKYvx+(*wK>9b$5>C3K6^zJ}wxg1fipRIR_}DL+~I7N~6tL0t<%A9N4xj37ik z|4Ojcx5Y(MyV)HudL}aVRQihVa+Bwa7VlY7edz?var(2L{?|KsHe>?jbuYZY5lOz! zhj*lf6^8n5Mb$#bWba`QXXM!fydON}@#S>Jh=puA8$~s*{~`zOVnw{?l-V^+9)!B~ zeLDS_N1)KsO}2J-`$~o}^}^#3;Bdxt(?iB#^w}gmqczW1rdoED%NSJCJrrhT{xV(7 zZpSOfcmZvTM0nh+f-h4&3_9fGKgPN?6VXrGCy)?WgF_FL}Zzx7w>bZL}S8(Nq{NsZWR0 z7o`lXqvBJRT3^&}GtEMoaEonLG%LqbNqPylGKAhvZX2kBByu@T!S|`H@dS+G zme(k!>d*~jMyIbjOVvNH79E($FT{Reu6e3hFc3S*HaDDoZp$l=b&{?6-G&Ou_w)xD zl4Nb$&09_3(BLh_+>)x#3BpIWw!s+Pc1NQAnY;EEtB%fDW-7TJOe91%#`uzFkSJcH zhaioKLe>7{m>EMLM4#X#O?L5HoI0$!8G-|e%j4-}!-JCbl}T1^rLIrgn*;KRg#pkV zG7IWf?jb{IJ0zbKFBDzS1c|6M$9#XGF0k~b5V*sGhQ-qSe5pjMQjsGqJ(m|F<0GYX zr2-2wplT0A_{ecguCrdH>cWG}Vu&wQwmOhAs4~~61EGi&oht!-OGKEQobZ7#@ZOlR zMCM>T*-j4EzIfc&z+h}@(D-M*L3)_%uDLD6WoT~*@ynS$si}i?+BjU;q!~wD{dQe5 z`t|%XIJV-7N+o5;*-XMyvx7V&5JAd;C|9ELRA)8`xDHXwhw=a3J@M!IUA6e zg{)va^al7KbD30PF5m_6z!33pjf~sBLZxdG?l)fdjkRHS(>VLeEYB|bbpT;8ymiil z)o{`V%FC0aS`7uJ2X!wp-eq^axV`SnwP?Uz+{hJUjISic7k53yxa-Z7pdB2Vx%YLt%(*S07jvKbFBg%*Qo@ED1HDG?MuJKi{JJAa0Vv$s0i6V|* z_RsVr{V?3yAwKD2@(()(vXH&Xt}Nl4H%ODbNSlV0xpjd-@c$XZ=}m>dy(@BGDDv-V zkxFV~3ErO&qMtbX`jW31Gs}2EKk`tUPy7>iBjjA4@Ob+DL#29KjsBWd>pv=3x#hs$ E0Z9Z6bN~PV diff --git a/R/styles.css b/R/styles.css index b90550d..ea389ca 100644 --- a/R/styles.css +++ b/R/styles.css @@ -1,4 +1,5 @@ @import url('https://fonts.googleapis.com/css?family=Lora&display=swap'); +@import url('https://fonts.googleapis.com/css?family=Source+Code+Pro&display=swap'); body { font-family: 'Lora';