From 58f50b411dd92d5fac35a652f1f80dc49d12525d Mon Sep 17 00:00:00 2001
From: Bruna Wundervald <brunadaviesw@gmail.com>
Date: Tue, 25 Oct 2016 17:27:14 -0200
Subject: [PATCH] =?UTF-8?q?Pequenas=20adi=C3=A7=C3=B5es=20no=20texto?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 vignettes/Rplot.png     | Bin 0 -> 10242 bytes
 vignettes/Thumbs.db     | Bin 0 -> 12800 bytes
 vignettes/anaExpMLG.Rmd |  54 ++++++++++++++++++++++++++++------------
 3 files changed, 38 insertions(+), 16 deletions(-)
 create mode 100644 vignettes/Rplot.png
 create mode 100644 vignettes/Thumbs.db

diff --git a/vignettes/Rplot.png b/vignettes/Rplot.png
new file mode 100644
index 0000000000000000000000000000000000000000..059c58db1a867e32465a3bddad478756a7c2a5c2
GIT binary patch
literal 10242
zcmeAS@N?(olHy`uVBq!ia0y~yU^>IVz_^`*nSp^}I@9Ov3=E7S0X`wF3?LxRz+lC|
z;K{%c!N8ElAnwUvWyN4Mfgvr8A#DOf+FXXTZQ@oDiV6`LRty>wZfi}rZ5U`|1=3?>
z#gGP4Yn5hYHNh$^!YVDzDs8S++BT~R6Ral8v6`^WYQk+#1_n=02G4E(0}UA>6nP`k
ztkOW%Sfw$frHPBDfsCk0vzm|w0u$0EOi0_dEp6NXwA=ry6~wEp((3E$ConKf(9oD*
z#W2CjXad+Kknte3+a_$AFyZ$9Z43<CJQ=p7F>Fh-+BU%oWWenS+x~Cc_W$;_|Nr;x
z+jo0{)$MI*x3_J(eH*0w_W#?r|NsBb!0>-t#Q$w+V1*O@|KIliKS+4q^+%Bm3=EtF
z9+AZi419+{nDKc2iWCM01qM$S$B>FSZ|8P4KiLs_%yqJ&Y{t2H6BH9YofT|nCp&AU
zEVvoNyVY_=>AHCqp-=z+|L^cUad*t5oRgbg{eJ6LzSVo$o8{-v`=8(DW5uA=xMnXS
zgAVHvo>h!VY*!f!o3k2bIGQ?~Ss<m57QicDyn?MmGK6{1NPjN=@#*(g^M!sO*RAgU
z`NhS8U-`bQeEFx~>d!VG-$s60l(*?|YV^<ZscT-Xe)#1}*L>A)+x6{^uH{=8R?1@@
zv4M%T<7eOBtdmQOl8@$m7u2@j<Y#6mFaLC*Yn-TXT0r=rv+^2gg*-Cvwz5m<M6?DS
z(W#%in9a~wYTNYRrMvGu`|{=J^_=g_NAGkT{#dYnjb+3JuB9E3Gd55Bc<kZ4qimPT
zN*<o|&ztvC{?GAw^(XC5H_hFo9J(wr<*T6X>FL2Ql&<!yvbudv?*682Tv7}{ue%?2
zORf@4v)uQWv-0cd-|sIApJX<c+PpONQ{Uf7?T_QC794CU)o?xYC)~O8s9$KzjI})_
z-@h!#?^J!ZSLY<_u3*8g73uZAqc@)r-Td*)D#_T=XLG-nG+Qo^R_XCEU-|Ui<Gz23
z>t)`pjFb`+FkGHJbI#h*3SHl8ry4RhB*=OR79Z9<*_WTipDOgQdS|*p(zAQLx=ZKh
z-Zor(SxTn3uPf4g@#=G%m-E=&iM?9A)8MuF6^|<c%hmJ5(q6Dj{yQb#cXIc+t}|EK
zL9TQ-WAt!=&cUAV8X_li)Q{Y}mB?nVSaf<-(=G$;w3U_XUu`?OX7<I<^t%riB_yS3
zElUz>H{1Tt&n@>^yP@TO9>e~_wx1u)t6UwXda315>)Tn4Gcp%=J6nBRt8-%EbEjvW
zb6u0?MVeoBICJOMmj&07p2;OCq}_fZd#Gn~hr!}hW&ZFmqfHVOX}O7}Tfz#Re!mLW
z3STJJ+x_#{#+rRs?%YnFIagcLRQ;0n<#{{vi;VB>u6@{?S$)vT`jDo}nV7n~dp^H7
z5+A#@7b#g}oV7gv>u+aJ=e3^|XLM#?3|)Tjc#+^W`#t}v)zjW}S0)sd`B~duJh;uv
zh)-;dlV;L0=ZtmQTG{V(rbga$npU)6+afk~>xYUf)YF+AA_GFUraNn=2l}7kKeT*B
zTFKSbZz=>e!ky;i9Gj6IrY8RS?aqqMkB6ICvje(jWJY{b_;ltF_lNAoe)DF=JO19+
zF*AQ&s6bM@izugM^+e^gd#Tk^)1Ud-l+T;#YUb<d-v8FCWL~97+BG%tEq}9THnVDP
z*fnE)*JWYuxwncwohkmgrap#G><LTKIZj#TO@GQP!x>&PC7t8^dgkm~@8JG)J?;)m
z?VKGeCvQqf1Z67$;}vZ`lhh8}@6ZwbeS5~o`?snin5OrN<Xu0SeZ%ISnuV?HmO^HS
zh?|F51U@rW%x+lvEH6GOsCa|XkvZ)S=Vgk``PRftoZ)(8%k%J6vlqR~fA8dT;JtsZ
zr*VA$jJtN*l%Brrp8543^ZuDl|Ey|HeOtS<dT0FCgD34Ir-W^su`^EE^qBSE@B1&U
zTUJ~1=Xw5zyVt7s)f$?|>|CN6|3mI&-;;Uo@;`T8zhI`UXjuG8&8+2x%i8P0l?&(h
z{dcSV^l$c-{{LTUmvfbTd*8{Gp3{|oEQOD^`rVhtKVQDAm7maOAMg3CTsE`JCC??i
zVcp;D3cq?b{qxh~d~cl8qEokldG40_Pv)_o_3QtN+uQy<ZvLsWa;Ma?gv4X&{IWj}
z&p#=fzjMOv_H&!sZH|P$E~q~*^Jj^t-1LdePG9Wr<p!;YTEF(sk*YuX|MRZT{r5V5
z@!_5q*14Bw&#X*$y4U?zb@#WvHYw}c1mWCyd28+5&(v@xdG6dC)Bkj?ef6{XQDxD;
z&Hq1Kmpsq1h(V%$d2W>P=7|ivCjIw+Dt=C@R?2_4U1swXqyMwlTz)C=nbqTYN932e
z+OHp%#~)e#U-ilSdv=%Y{;mH0*Gtb_xnuujvyC&q{|S73_<G%woS8NWQ)gWj^lzIz
z`Eca*i!N4YB(L;MySvWv&*EPyReP-eYDAs+Sbl3=R+=4yO5dt#)}odx0-r4_wyZxt
z%j!(WtL_OiEWi2PW;(OxidD%OwI33Nw@z=Jzv|H%U!6XYO{ViM?z3FAi`8q%`b0~%
zwo3=wXFr*le0gKq^wn8M)x?g?F%jSNZEI&`hiK4i->vLdxlJE=|IuCWaP=Av#cknn
zC$7y)nrF&e_At#%aqH5jaTT`LgR9q9$!>3ulI8Z*-}3dtnVx$L1qx}$gO7LIs-Bv?
zgEizu_&)>Y1FTwc3tWCl6<y{wmMQE{?XA)JviMuH!&L3Cptx;C|Al;)CLWW>i%9H_
zY`Yfb^JsImqhayh?G3jQi<+v_{v6fO`+sy#ZZdb;yknoPggGp#tFXvQF_zf-A?fF@
zz1|yshS}?V<VxVv@n73^f7>>FzC?v*>n2P23B=7{tMQ&QuWY&h{PiJc%=R`cE|&Sa
zvvf~(`t+r<W}Ia0-flGUW_L+=6mwEq*0ZudS0`=0eM4cDdyISSwk`QvucTg>AG+*W
ziJo2}_h;`V>ldcTxYur*ke~Z;y`T2|QzzvoM|hlBEFSu5XYL=PZeE7(8`t~YZkQUZ
zt*A2FaOSMp6_F3w&diyW8dMzq-bhd2)y(sDi`3#O1aG>1)k$UA(WB{fG$!3-`kbXc
z4ATu=SIkI`d(39cK4Zb&MX%R*3(FY0+i>z5v!@u#8D4cT@i?2RXka>hOJ`N%jLi@7
zo7BoC*+kq7KVy1-&iv*E1Lm+kwFAcHk5o@--dZ7dCu2(Ug5A%omON8xoKY-LbUo&%
zcvP^kfU)wK4mE`{55%LA+tdw;1G3&_$v4h8zPtQH+7m?;)AGIj4la(aXa1LZoK01F
zQkQ1K^srSmsWm^V&x%K-_Yr5+C6;~%A0v^CO!F+cPo$l3@2ZG7K4(f&*!4)e|9f7q
z`y+qErkh(SjHRRU+nJx?HUD?qpQk+IwV{x>zu=_wd6vchjy`{q^@h*$Q0(fDo|7E}
zwVT#4oSS7i|KA@4%WyBTH@U&QcUue&cY6qGH`#n%GxKxj&mRlhKbPKb{O-EXGuQdd
zWLfjzBfD7t3l*oIvzJf1v1^-2e%Lk_yMhO^1<DVI9+*-2tZ7yRqa+)zS)rof>ohTq
zhtY?(yy+0`<e9Tw<m-XP&-cH*iF7T?I^ZVzZt<lvPrGh%y}D|qr;~K|5|gUfs)O@R
zpN*~7DDpn>Y5UV1XHPE;I>##N^1$uLne(AX>b@B|J+qzYab%b2f1#am0R?FcFIptm
zZJ8P`))yUd&ST~Z^Zjcq9_?2;?<4c%P0@Rf%I|tRe>$@@XzyQepjSC({h!1YZ_j-^
zJ8jNX@$<L8Ul%Z*Y*)f5Zg{<jFI;HaEbW)9tk)PWa2j{4&b_WLEF7<0oqn-Y*0;yR
z>cgRF9Y6J7zy1>aICjw!aS;n<hf6mTj~&RiPEyl4<@aXo-|Ty*ZZBi2i%_)PSSVWA
za%TI<{YTQ`0xn21SjFv>&wO2Z=dP&OeU<x7tJ#air6fB$wsy2maJMPd<2se5a+u4+
z=ZMXsY}2w3&I7Ew589{c>CCX!kN^5|E|2Ch&&`3)x0!A^BHwLTERr`t(OKxzLiIQ2
zTCSgVk#C&0vms&K@|)*M4=XF3d)My1?dE2d-Ltcge{y>)dEsQGsh7~^)~oJwf9~Jx
zvbJrirN5sxTd~`wunpNvraP~Q73MSSFq@Z@)}JOHXaD}Z{e@jGPlkmuD9L_RxNp9V
z-EnUCk$}1y)8bXHzB~=lO*;MdQ{!FhOTiyE{WcKxH~j2r{4IF<%|4%PQRft2_nI<<
zBs+b(x$DacZ?==mJq%yR_@#43aNV*<v)xdv+{;pJFk8Uzc+bYaw={%Qv(njrO}|?E
z`jb{^rqGtuX3MEPC2sqkO`UxBjmttIGnUTE2i4QF7H7Ea4tRAZ{PI7w8S_|j4<`7@
zt_)kC*z%|EzVk-jpSyIlo*94Mn0HEHp9SCU_p8`5Crr2!V{XWK>rH}ReAKHiYOCs#
z5{}nREvgRF*q8Ke7VDQ;M{1VsXD{zOacJLGwRtSQa!po$HI|-XFF&X&c6^bz?>etD
z&o|yN+9+N*u|&vZr|&Cq&l>NvJTcMYO;X#A>KMkSwVe*oTIX|wtHYA<$gg<)$Q};E
z)e}5AD<*O~K4mmqu29GD;vlPG|B+8g3E$8CDx1x`$J^md<cac&M+$cx61HaaKMUfj
zr76aktF_Hw22}>1Q-n72sQ+3UDy78VFk|zCgDh!>-cDTb(`pw((mAIEoX_sesaHKD
ztK2=qvCn|{iNI!e_n4QrW^&%SvE^uR`22N~mgMG?zm?m3ulY6O5gx<k(bX+4zCWm9
zFmyii@|v8`f4LZbg|rUKySJPl<uiU|NNSsLd9AI}7u^MN4rc_4cWpIh2CF>Bb7arT
zceiXj*&7&=&auzVm@_$zfkWZhoH;u`%jrP+H|IFK4a`pl6@wKptgZc8m-R@=fW5;~
zdb$7nqdYMu(o~p|&ap}V{m8jP;hBrWnVSho&-6?3CeHF^J~D@2Drv)ppFd_i6APH&
zct%&z{Nu~evZaaUi@*LT{`E5R;qDiityctcuSiGf3+Jq0INdT^>BO7j-w_kz&b&Eu
z%Wd_eA3I*(l01Isqv5X1S03h5$~nwJI#Qc_1yjE5tX*?bIPFOM&!mq}Uuyo^kb5FL
z+18l9aJz8`w<$zX+P9gtIVY5#-3a&LxG_=sWd5SKUB?r(^WJ<a?pWxgBb?J!u=)Ip
zWM@7@`FGFfI;Y8UT~~Q#;H)ZAyyNEcoz|Xm=Vj!LgJ(q^-k>d1ykMc1(C0mNVM|0e
z?-Eq>6G?ijc4_VDZR;J+G`4YV^C>bs{;jb85_`ku{+k(w`8f;{c^d!cb{n|fs3=@0
zl2K*2S>W*pH8Z70)6YB;Sbscs>9a$;q6sq#f?H<PmdR@yRXj^OCt_FqFXLFx#JoK-
z`ujVV$$2^LSjeO!oYy6=`TV<NR=so@^h2E+lf>TF$($=JuK8W_jq%&W$h2)HjoxBU
ztWERlo+Zv`{P=|_?DUg81zVm(Ez=J?b4TPbXSM9XZ*N!)s}JTDoitc{e|77g=yT^B
zRJ<L}NF{bXY}qUDIVY_<@|;a|UX^mk&VI4a54G>teU0;5c3J3?s$klOa<&Uguee&=
zKWX~1>Pvpna=-GLOZKsOGdX{mb&Gt~|MAE1lGc@ZSG0~@yR+rig*#b?X02iRnYZxU
z)NN~j{W{)avm*5Rrpk>;Y2S9;FJ!-aXP-g;g#zb|{+Ht3mCya~tlfOSaK5NPQrOcK
z57z&2^>;e+z5L9sX<uWay;plW%WpM}WIa1~)p4z(`}Wmu5ZO2FthdN!DTYm)U!UZx
zI-`)ppy9iC?z(?{x=Xj^{dk@45}6#mEn(uxo7;N@HXE$o()BAfM|W*n<^`U;>`7tq
zv#pM<56y{NG~?@m$a$|<Y>?J{c1&pVXW95)&%V#M`}}lU`n0DvX68?vE|n`TYb?F`
zgm_oPw<-5m?|ie>^rrk_gTpm%yDE8Si|eN)9|=64v+wchns1xU_0M?o*lbR@Ci3t0
zaly@!Yb49pOp9o{b}gme(7*c6kH7!?t|#r2t4Q;-n>}4GO^&Vm!kMm_@t;4>`YjvZ
zx;LeNe|GHjT$d7!w|s`#8>6mG?z^^Wvf-AEYU>w1%{O|YH~sdtU$@p|Wu4FdeCg<&
z&ONNwvujgQjc;U&mA@;m5q)KPBmBwhM@Mc7e7bo2eW+!MagJg1wcVB5a?kp_mWYZB
z4k^@64;I_Db>B0gXRD*O##fs$PdP8&ZFA6Zu#S*WYw(68i)|}tI4B`WO)NW~pW&jz
zz6DY-hVuLV)UD-ZOwjuP4S<+4$K6f;Rks>2=ZL+XIotYI^8XFbwi)~=G_CTGl`r3`
z`up~D@2gvPPyD*B`SRos{>iafIhXF)_}5g6@n2rwAoTg8?(LOV*&B2d%kK0?Sa_XD
z<+ALb>hFKX*0X!wQZK{q*!WuM@8xO9Racas*?1`T-MSR8bjH!h%%c6q4<hzWl-{y@
zfBB^&y|wpD#B#4DmCrqFtGIpt<5*>H8TtMHJ(ksm>S{z6X>0B_>=qEMy4Y%Nzq9gL
z{RjDJOH&>9ac#eUc5`IP?6@myxK~c=%dbDQ=;+?4RQ+48zCJi4GVN@}*^gH)#M;~0
z6{PFhz5nt4@ZL?W+cHl7ex6q&d(U^(k&hE^R_k<m`aetD_IBpfyE~q(&}}JsnYQJK
z(B@Rr&<)1V-`t<&I_+iZ*<VN2MOoQx5?bYUH*7t-_%Z{-;{F4_XJt-0*j$+wot3n4
zO=whrn62%{qidquUVo_1<9z5Aruf((x@+gd_KjO+8_oT&x2R&#k(}tYTl==R)h#o<
z(Y@tm>Df&a{>`qxU>cQcX}iNf$@KfT$X&fcLB%Ey9=5L!jM4V*RXT9_zD9Q!>zC&@
ztiq08od0afE-uUVn_9Cs1~(esuf2Hi43ksfTG=#-)hofnG@Z^f@2#3CUi9x>N$;+;
zar}Bdne!qY&U>|AHxgUmcx`pOSG{A&{|`ZZGj5(NOp*0IvuARcXz{s3v;5Zu=cP=_
z9&?GCWwIr0TdT%hl(FG}+0Do$N7iJEwSKv8rS;tO)wU|z9R{hLk+Pd=c5F26zH;*Y
zv5u*IO6RK5s^>1UDL$9D&7vU6>{d~*7<ee>c-AI`|9AKOn!0I5)RU^TV2}T2Utci&
zW>c)SWk%#3=WCLZl2<rlSYzk*tdA=FR2))ambUHs%j0KWcUdZ5npSPeXXfGD#k|Mx
zF~{+&O$+|~?d&qxa<25up37V74jq0rH#FdS#@4BqzNno)^KC<{b?ptIZLD|ZZYb1$
zEAUY3MDw|{8QxltZ}ODSZLc$XeCx=W%Uq}O?ij90o~4^2*>?HzTW;IrH#y#`n-;CI
zwVr9wJtwE_g<zb=|FyQp>o1;7>xmbMW_Zn|VA~hApGo6Wcv5`oxf!X>^QTryRZrM;
z{d)HA%CxO~x|hxyuUCI|=5S8wwCo+}6V`4!w99Ya%-er{E2UkVmRD+CqNSLwZ?x>X
zt<vVQPx+S*ZJuIP`IS3to#&4K)6(<u;%9BOHC{0zMAEXibLLCKC7T%;bU6EGUhPnm
zO-(gkwY($o8`qYXp9;kUiv74G)2?^bF249SKV1HQsGsKHH(rL!2inD$4_rx@F;~Re
zwEVZwV`GjF{8!c5ZytBAD%vBz-)Y6{Uo}VX#z^vOcHKW@eEg2-1hW@u*X!jgiY9@E
zZ_KtYox4~6)u!W4YBx5^?w!2-+T83%pHpw$Quvo7R?d55&i_kYJ0G4>)%|(syGOao
zmHg7P>T&IvZqsf`lzGqHk$K6={@3oMuQ&yY51Bo?upxUP|C8m*^Zz!Kytx$U3?8Ui
z6uIjs>zB>{#e8@-yC0Rg=d$%jcjTQ+>5y`<`3L<Z=G&A!;jec)@@`AaiMP!EopmPP
z-Y{>~Ug>#qY41}j8V!=CFr1f>ZCy59;Pbhb57yi-+GDHToqOjB6&<hLy!h3ditSdm
zXT-jL>%IR@M*A7lxoB^}2QwGvH+p94THSiQ{Qmnt6LN3H-MyV;nWmZg&ph&ZiOh?c
z#(bMST^Ub(OHNxBUuOL9dfgM5w4%*ZXFa{LC%Ja|VN=$lXMVQb)cVsEvDHOO;B)J-
z&KE}BSNAemI=z~6yt{tJ!oHl2%9Cc37DEP8JSq?IcFufm_E0<R?Nsg;^HX;S8D_Ip
zFK*^P?k>3LKwq@zkMOCvGuAF%KWSIG+;z2QieVmW&8Myqh!*F%%`STG#nwNz#p@Ey
z6thxd_ysnL21Q4e9e#bFc;lyUeyl4wd5k?2r%#@y;&A5T_J(Qs8}Bh}&`%RC_<i+Q
zea(U?+G%z=di#?PeGo7Hp}XMr-s}b9X*-mccK<$H`bSakOozIOfY&ACRc>|tj^EhR
z{v5S=EOz06Y1ndehAqVrM?T$g-qF|Y+9kZXG`Hkt?t`xzXDY0SD6%&Yel_#-ZdMcS
zXRn(6<fbG%Iq<hIe`b{ZVYOBK^9(mnZHO-se$jt;cD(%sdHvjHoD&WwJrl}jJj;5q
z@1~c}>7(*?5{mPqEpL{6ZMHmbvpFt(XYS;yvi5cN?N+?3Dr(AUGfx&jVP7M0?D*o>
zRogG6?PhNKVx-5da7ICHO2)fQ`;A$W_}V0&G%rn>%QG|T`1Vgfc1~He#->nURkHbt
zxX@WuX;y4Y^sLerFX9w1t~OfRIkPD3aZ=f?;LaQ0vgPE?#h>}9m)^bgT-Hs=cU5a1
zI2=8*=+c?~b*(%MKkp=5H)eRl`|DTXMq`E;y)zQK-{0%DF!aA>Ry0M=Iw@wxf-5oN
z=F6*hR@=A9i3?87-e<7qwVu_Q27|>tyN{jksC={Sa1jTG@wbJ=yYk;I>huZQ`Tf)C
zBOlMK62Gx$k8e+#WXj8wdz%zYk3X2Ja#`e6R#X0>L+cw^%`R>4Y@Np_Bgyb=&wS-&
zGna0X{PN|;tN-)P`S=U%3Y09|yK!pn?*+eeJMVp7pS16^$9IR-JM_HX*iSYURi3@{
z$e#P1JC~@>m)7G@OiHRuUgWyQ=_sr9>D|kIh<|yqVUy?G65GAHI&XHcR5Z+3e(C4z
zSr;8yj~eaRz?8hT;-^|Ix0u}-wZ3V)3lsHAGnE$3P`~^$=8TSO+@=|CD-M+&kGi_@
z+#E~W;!BmrYZMM=UAcO1r-0&-9i4}JUY69IOl-Tdc4~I8B5U#SlY2I9=Ders-8Yk+
zci!hqi>+-Io#$MwF2~@v>~psa!zt^-UnI_R_4qzAIQ?NypV}|oD8<dMXB^*_mh$mZ
z=DrCAi+f7;<u5++NB{pOresrwGuuqNuNeJW^uuV=&pfvGJ<0EM`?-6Tn>{M(OkMOd
zW=4V&tN0Nv%_$R#AK!oU#oG7V^YeW-5BGfTk*-+q@zK#e=TcTbJ1DUD@j1bbvZm`D
z4lopanyXf{Y3E6`YvP|JkI6+wXr2++zH*v)+KkobU;V$A%0JUD?yHH+q*>iH%TL}q
z{6-=uW%*ty5x(U5YsP0XmDzsBRX*+ZJrr?Fc&UxA{G*x5_cMcz)UERl$a?qVW99tB
zIDP4hZXC9P<z<WBI;YE&1kRNfFh0J|YRex3Wy^m_%j_P1dHLDWaJ9+*8yu;Mk(S%V
zPoI~M3BU7_F(L7Z&soPa!m1&Huk>#fUeAsV^ekY#P<XVj<EOB^mVMxY7GCg}_^Z@~
zImad?y)(6V)@3h|I9)fX^}m_epSq?;ky@t94|Q+c&1G};4cp;!r<S~CJ$mnUD968f
zmH(D%wnz%AMhKeynr&8WT+Z;KD&ZJAxAw6clR88@W)^Sw;woHzwxL_imOp3SuG`DB
z-%SiYbKToxo@H5+)YW54q}mS_)H84E`L8EZm6;{nQt|BY-<>IK;nI)A_08pYs)YoM
z&+jv7HAr6660DLYCXrM(YuBBKq#FUTElZv))ARjl!f5C}CE|oJztNHFE+?M8>GTd>
z9O`YiT*>c?e(K%syyfj1kG#KWX#8=8_tLOG{#L=$mx*N^T5nZsTWVvcGhxcjo;qpM
z<AUNhoU;6Ek3P85c%yf}%|;)lBQYPXeJ2Gkn{hSwp4+}7Cn7te?3rTh{w49%FYm0E
zzWO-7DM!!QRwncQ%|$iE>D@Qy#VaiN^>FzWmLq4bfAO2Vlv9Estw{3P<vnUzW=UmA
zz1>AuSkJU`OWsszsd_d`-OtCvBP(y+=?~SVQXA#{&5NhZ?3{O|`9Sd070XUOIQ+o9
z>QK_ND0M#{zXj=j_MAOm=e%cGwPy38vU^L`UpM3w*Lv2H8{!{uX3o*nFMl=_9Qv|f
zc>cRM6?WOZ_M6^pm(-1l<okRu$NgcV+bOeE>gi^Ox7#R&%=Ryzrox`|?o9vV+yA#r
zsr_&N@14#4$-?uJ<mT3;>@-`o{J<5N_d&OIpD#)^eOCQw|LnRSr{(q=tlXoY{Zsn>
zos;~RmHa&$(w|)}p8C1u+p-TP2Vb6HNq6+E(ffLZxBm8)Te`CEPV&Be%AC00&)>Q*
z+Uj#mjgge%1O2_Vb}Jq#+VbUb%oqLEx9)3l)SM61vSmrLwl(e+KJHxQ%f9s4t|s+p
zU1@*eH}97%tBhR2**h<z&G)_6RNeYO!|gGL*X(zdbb1kfmbZ5%XQj7C^=YLkeVNmz
zEm2yw=~;Gg?uP9aANMS>&e*bDf8laI&$Cl)c*`FCnAz~VyHniHpRM|0Qrf@HZ94UH
z=lzTIDM|26Jk!-B<kBW~Y3at+_47IZ247Rte%b%ajlJ=-yTZbiJ7-K*II?HL4Dq?y
ze(jQL9G~?cU4QxV+w-o<Z!QQ{<!zbq^y889=XEyhc*y<IzH(-}?qY8CpF6mj541MD
zo^q2X#^j=o>a&RoDG90X86Wulc~kvt?#y=%T=y!{c23a#@pW@lMS)GRx%o~R+ai}N
zJ#O#L$}(Xw6Ru_K$KRe-NE4fV;E2}Inh?X!)jI=fw_l$(^Z1$dHy0jY-J4N#Gx~OS
zr{(Q0F|&^ZpQ#jHu$D(U((G~M-=rdu!;7cASXufqT%J>1N9<BZ@$p6H*4w{bGGlE{
zn@6Kgn7M>00|Q$JXf43~m#-LJzPy!{scD!#V_x=Yoy;cV$#Si2lF`XJC4!UG{3gEi
zs<Bdf`X$Dc!SH;V4PW^*r!$c!G@o_dI9=nVtiO)`yJ72$=`-f7PUG5Rp3J<Z{84Sq
zT8S=A)pwN<_c|KxPpeol<9r<B99!G)t0EQo$IKFv?DqWJs=NBzx7NS)>gqFn3>fCD
zNz7xt&7Rbk?7vs}YH@b=&kt>yJAbBBu<|FJV>;9mF{^!9{jvO;fA8t6%dNWnzpCq|
zHS?}>x0iLPUtrlWxBIY+k^FDVc{_JLzJ9)Z?@`%2#<MJkdNjTnO({64qtst<{?6H5
ztRhbYHb43-T3(!L)1y)szk{{pQPDPccbBzW|8A{5vun;;&U;HPh??DLxUah)c=~4X
zJ2OsQlT);saXBX<`=s=Yde(x2y(@FxDt<gTC+%>Q_dSLqbMoFQemws<!)(pgC%iv+
z8J6p%>+dj}3K~NEY%_~DTep(g>CB%>iDQ-<{bJ6=6(nm#TXRZZi~7VCbAC?S+f#x`
z_d=K>i<X4%`X<1`FxgDu=$WR6X=x_xdIg3vm_G|7rS(tx>@KnJ*^(tZ&l&_izr372
zapR0qCYFTQBeBK#^N-Hq6(|l8IJ4BXd#3L+0o&Eg9~ckDB)OdNIeS_?vuaN9b%q&i
z2V=5YX88NR(L7}KX%WW<rh_qA9~O9+37lEVmUNE2Y3Gp>EC2s}|BU^j!VGVoC)}$P
zo6Wa9o89AZ&R%kV-It7Rt4o&W&2>Ars(yOhnk&7|Aop0}PwqD9yNf!5&%I#tU3uuH
z<33Hfy9cMt3A=F3=YZgc%GPul?&HT_EX(YO_Hes#OX%mvL)&=6b|f52Wd3q^%0stp
zFTOqfaBDxKo#q!8?r(fuc3)obEq%0wvG|WI=cli%8+py2tll_prn-EW$D+t+CHuG=
z+a7XVPLr9oyzT#^Bm4UE15e1UxV|_h&hgtq|8ff^zh%#7gwK~=GyP=Cr`apSLyPrh
zSSw$fwnM-4LwsYcP5!ZopO(x2Ejm>2I9g;AdllFJZtW9xUtaQg?>)JsX2*O%^%7%#
z){aPs%Cm>3JZ#h6vfX|@$Eo9e)0VHaPP{A2BUXH=Frns*&rGhhdd!BW`-RhFrrFn(
zf0|;ZlxFqIT7F8u$%h{gcDly)%uw%kU6d!-E!-NhyR+o=rreImnmI;~H~gtH&)i{n
z-bQrF`J2spPG>ylm(N!0s;sMQo3UDo!Ebh9z`yXMPfIr^9{$mwm(n6>z+iHTPl`dU
zu~nkod}H8ymtDs<H)Ysfn=)&6!m*84?koX?W1`j!nJMYzF+Z0*JF<*r$upr#XJ*Fa
z+P_uO6V`urar?aWO?QOM)=vLZk$9U;JI3JghDPo->2(M6X3crOEb%9|xbGU#C(9~I
z*w>}eXv8%CsjOYQovH2p6E#YyJ`Xk-Zp+;wbo30b)tnt?1ar>668LPCb35Z`SEa>u
z;UjbA<w~zjF_ho;>23J?r!Ho?it$2;Z1oEnW4&y*f1VpNd7b-zwel<{V>|zudgl3g
zcYg&YJrkS!Oyt_*xr#cccRe`2a=m8yDRs|{NqH*`-<RKUG~cfOXDy?-&zU!qO#|ou
zTqk_*&xdE_kEXJ_omnL#Y7=+RyjNuNh8yp9TGs2YId0{=&!<Ux&YLBX*YBlt3msj<
z){wK!KKodRA;XlSEoqih?{8dsHun05n<rf&BR%{%ZJxW@UvCuIyhXx%`K;zJzr8DX
z{_W6CKNs)XnG{wyn@bDFFlT1rweHpH7*x{|4fFiI{yhC@Zs?&0I$V3?eXZ7dd`uFn
zpY!$1GwXe)((S7c$5)wrI5R0S_(weBwDh!s;#sbjHcd;{>%MgK%;5w<&1l2V*>%^7
z_dj0!VY}c4&6v`g&#qQS=H0WtvyNFiElqx=<<ze?<{#P=b|z-p0&nqR^-p4NSiVo3
zdN$!Q<NG`Be`p==zyEn=)Bb-)WZj)lxXbSke>&mpjt+_SHX7ZA#i!06+FWpYQ;<%r
z3inj!#w0fB1#2eGXGvmPC?dVy@r=TZWfv-VDPH*X;s39r{=UmsbN>ge<@0p)b6Mw<
G&;$SzkBrj*

literal 0
HcmV?d00001

diff --git a/vignettes/Thumbs.db b/vignettes/Thumbs.db
new file mode 100644
index 0000000000000000000000000000000000000000..84f52146cc0800d06f156fadbbdd159fd02d659d
GIT binary patch
literal 12800
zcmca`Uhu)fjZzO8(10BSGsD0CoD6J8;*1Oo3?K{^5@29pg7W|U|NkE>#=yYve-sR<
z5cvE5|9?>YfiTG7tPBj`IA>>IVBlb2VBln6VBlh4VBlt8VBle3VBlq7VBlk5VBlw9
zU=UznU=U<rU=U(pU=U_tU=U$oU=U?sU=U+qU=U|uV1StkGItaY&JYM<$Y;oBC}B`w
zaAnA2C}AjKsDx!@qG&M&R(PI=mkl^{I`~hkRnxx22uc?)B}NRU3}y`R48{zm4CV}G
z3>FN@3}y_53@HpL3}y@<Sqlb3h9sDB3|fnUi4i$uF%)1CU}0cj*sYF5f=nS&?I+V3
zoZ2X{A6f4xd*p?H1Oo#DGXn#|VrYJlmKWbQr=aB%&crq<F|0xWSN#9K@&5sXfR~%6
z8v`RFv|#^#o57iZg_)U!nT4H&g`Ja~m7SBDlarH^n~w(s_yj>D4-b@raL`GRA&e|+
zY&;x1Vmv%zB7A&&A|QfK1foq4LJ=_J0D~Y0!(2uNW=16jCP7AKLB{__7~~lk7+D#?
z02W7#Ow25-Z0sDIT-^VUFl-fIU}9uuW@2GxWo2PuU|_6eWMXDu5o8roG<0MW4oqZM
zDikqloVbuf*=gfJ(V&YTRE(2~nmD<{#3dx9RMpfqG__1j&CD$<t(;w4-P}Dqy@EqR
z!@?sXqmoln)6z3Cvx-Yf%gQS%tD0L{+uA!iyCzMZGIiSY88c@sTD)ZGvgIpQuG+MD
z%hqk%ckJAC=<t!F$Bv&kdFs;TD_5^wzj5={!$*&wJbm{3#miS8KYjl4_1pI!KYxMz
z1@b4@Tkxnr^Oqn46C)D~C|*GRVq_|3U}RzzWMNe_WD{}>WKS#<Rx)bj5OJEgaN|Kv
zW#ga^qDe&;xx`dV9;$u>c@69{;yl(wme1fGL-^|!0}nGJ1Ct=LAcH-_?_XUS3z#Uv
zkMAET*6+FOoGGiEovd^u;nY6k>B3EA6C0QW_?S~G!(>|-+zShNm*^K3yp}OsSzfLf
z8tN7~vyXv+$y0@a%{Tc!!=dzt`+srX{Lk>frT$N-^W)W_J3c&Ha3&^a%MRu2P0zpQ
zUeRQ1-<(n%?&=^>|6%5j{C`bl^*;pV|1*e2+|&HX*1sn6e#*wHZ<1!5&wD!Wq1l_h
zl1ZV85n}vOyK+zP@6HxjGV#_$2RZ%3`t>(g9jozPDzR9w)!&xS>Da2@bDQmW7P-eQ
zVRJ23TIiO#Zs{ZGAl3g2E$v>D^3^zIn@?PoDmn9RfRoeQ*5Lg!9P{rsi2RPN{QCUR
z(JNayw{q`|4zkP4-KctaO<}XvnZ{t9oxKxSRf?7@W|sW);@|%DhW{Dj%fGHKmUg)M
z)jIlxo@u<m%Snf4vL0G`s^;|0GpdXX+FDx@H+fk5c?(Ev()ACXb?(#cfRAFcmG4B{
zaq8L5F<U)<lB9S-(8|rv>LRbX<+e^vTK2_`<s;kl{LJhnuP-0x-I&w)(6gt@Q^DAf
zomqRo<q4h*vkOinz1(7*n|IpRFl)Nt-B%3zZZiGMa{s`_#US@Iyz%%s$1;}6ZQE_H
zOrPk#xT4*!Nh7Ram0qa8mWfKoq7<L8-`1G;uRM1_lkud*&WEdxeA{*CUiPei^9yq}
zcuPdQTg+TMgG*RWM5s;kv$Dq-mj(t#g_2)kD<3W0GA%agn4pncWEdysy#pVQzn82y
zskO*SG<3pAm1P`p_jGq{x%^gd{g&NFckEQL5zv^q(DL|uNspM~IqMvsOERlO)yE##
z`JaJve%pVB7wYN%85#xuGkgrGM@=E&@iH$SoKeqI{KOVtlY6<sr+48da{*gtb~h%E
zWgg$&=)c`+UAk*ap^E<8HC8f(_hqW&9<!tfWH8BE$6WeamU{W!f*mOg8`@lp7CdKp
zt1fx)Sk;5aOXJr({Li46{GTE2@qY$q)5Q)llKtuZSL-eo-Q4n-hb<^E$Xj88+a&=`
zhLtzvS(qH|MD0HHB*iTG*eV{Kyx!$PkA#@s<(Z3qKK^^P+T}SvQ`icx2e6cj3*2)0
zF3z{{u+;SOBGJ&0)R{9LFfgc0a$rcgX8%X6PWnH?g1PhmvAF+dI2xKSA9cF;;q7mI
zk35{B?uZF?oG5%cf9jqiMeM&@r6+$bIqr>-0o>8d2zx5Rc)Viz5i7ZkOYTHOWqq4)
z)+i@Z?5*H*^+~eQMRU?wig*jdZnf>?5pt^WUiMz!TDyD3iJ#9hm4C)cti0inV;K_s
zWRXC(cD1Pp<D;tH?;Z0?%;u?GmSPW*I9)7JICK8H8IL9YGq@S9P<Z08#^Iz8?@!Yu
zzJ+;fzt&nrnXGxQ9LJU@KVjn<Ik!-*nNyd2W;w7pnd4r{j4!t|n9tcrue<e9SEp*-
z%7lv@xf3PzTb6kSM)+H|b0k+rEDI24Q7HO7v*Fc$hKI%<?*C<Z^Pk~^lKnre9eeX1
z$F^8axh3EBCU5K9pu0zkmhKXi$?>zV)MV$L^Yp5eVUy%xQJ&Wv`_wCDS*%;H+J5+H
z=$_N59_wb#-1p-COp(g;)y%&y_TN2H<iMUvFo6Ya`mk<^nc3o1ch0>EoqhU<*3qh_
z)pL|fwU+ultJxUH<aqw%haT^h&MQ3EyvluYSSFhH@SmeH`@ZEoFV?n7U%_{0f`9^h
z>GJGZaqG_Ps=Xr4(;y~rVqJ*LgSkr{TUeZrkttdIwKq9qoB8RSHD@;7TJ<h@Qo-@b
zJ^Tk47B6aGU`}hWkW}4cFQD9)w*9xkR$U1$v7Ap_)A%Bf86EU$J?7zidQVx@w8@EU
zjwoEoeYCSP!oo8!)|sz|naRkgpz6WIJJ)rymt}4KaV<8e;%V1O-6Mt*wPrjyY$(}L
zbFfi$`!r@A;nS)<Q!l?-TQlwG8!pa}C-2>AR=g4oU95WkL(>7_gU5;(EYEj@?eeN9
zdL+F%baLvJ)A`-SN=FVEi8QS`%^{O`(lx-U!Q!r*$|avm(SMg2>iBNGGDo0ZCWU#b
zN(x(8P`Nha?8j~U`VX5QQt1l*W_e`InTro9({;MUV!kUzwkPi2TM~HtFt@c^*IMPg
zA_msk45=HhJYbxBjzN}{RlD?$$zREU?5aYpnlFbphCW}-IBD^f$8-1!&uPWK)%Mp_
z`^-LF@1k^B(tn2X%on$JCtI#4m1Xz3dNV#?OVh(Ci9Q=wPvB5y*kB=%WcaQ&Yxy6=
zUyN-Qyi-^e6HZQHX_G$^@#l=6-=ibbPTrj}=iIVs?PYt`%zs>3zf)@BJ!j3^(s>r=
z8Rqdh*p#VyurE|-JYn*m!LsV%uJm{FKm4`2Ze%A@kt&$ncjcJi)GNnzI*NLC$gF0n
z{C(5jOxW_q?4pz(whuo|7d)u@hP!}izTPYUDQtJA-ib)r=J)K*VTC51LW#5W>whF{
zsouY{{!{$Idp}pdzb;?$pP~KrrOD^w-TpJ|^Z!x*>v#C{xEev>d!}EvcYOU_Uf340
zN7{f<hG{0t<ehz<#nW>3U5{A$Bl2-{N}H|rG4qW&MNH40-Lsxn(N-+>EJb0v<kamu
zj-Ln-(%4a?_xj?!{|rspA8n)0Ld>r}{GZ|Kz3FG;o&Ph`%)8(IpJDyh%Ch+n*LVFY
zIiY&}&H4nPr+Z#IN>^4NJRtbV!>3{CcL4`uF}C0<8O9Y4o!0H-n{)Q*q_ep?t9E~%
z!+Njh#;1=H91fSH$#VZ^i2fJOpMG=s=k5Qdp8gT@if4tp!sGRK?H~RsU3NsVv1Z5Q
zq^62cg_KWKJVl-=zvf4ssdW$U`g|&z;oH8r_hy<`=Kef(b`r<#nxoqpFEIEOob^9)
zdhsDWy|;Q!Vq9ig9z~A!W#-8jWO!2hL><!ty#F&qb>G~tzt8?zq&xp=ne>0Q#{=9y
z&X2mhCf4q&sq~dyJw{8WtvX<4WOV$(gxZ<j+Wa#kr!<wV>gkj7$lw3auCH_xe@f0a
z=}j_525EK?58Rwn<h;$7vB&KWxUBOv;)wZ0m5XhBq6d@<UKCV({nh07VAhj!^H<g%
zsxswW5?R}Q>LF)Px!9c)i_n~hKFP(8v-zj&ySF@K_q<bg&a-4I22bPp&9pu&$!Vu`
z)dNkHl9LbSUw_1I`;kpoNuT%b@v3dFw_PjDQ{gZ;WW>;8?qqT7p1Z``*wSJ<%boM&
zdE@IIK1ts^$9~$$mcKVos@^gRso%7;L%!T5++q5(PsXb}dM<7|&e*7Rgh_O-L=zt$
zABXKx24B~NxQf%BTY5ZY+8*-H;A|FRHEf75Wap}6pTrP*$uMH#-OAnPr78{;{$~)1
z=i74PXu;<@Yb02NA{H-53YX?;ZhDeiEGR6%@4RSFe)!dYma(TMX3R?K&FR_1HtAEO
zjP~R2?%(xyr`7%7I1|ETCZ=e-?u-2`<=~X~xAput6m`~JyY|`Rp#R+x;nn&x*wap>
zlq3{7$h~&0`8A*QpZ@)gxzUeIk5BoT)^*#rNp`vAp)-B`TX@!)^)$a?^|`<4>b#}9
z_ysB!AE{b5@6FM*dh1UgIoQA|VYON0fCXc7Q#tzy35M?#LZU$lT%t23Z<o;VKjUXL
zsd(~r+sdVxkDRy8bo`>iU;p&{rA>QmANndEx)md3Hl3mG)Lo}zJ>CzPCzxBNS*Z8S
zpOP5P#US;fTjEv&;|q(|C;yx`VU)kM=vc@!iF2Xee6<IZKfLa%3P{U&n4DzX^TA%u
z!{QfHEvv69L+Y`ZSH}yO|H_n~|2XRkdYge&B+x-1?&jeYx4qMgb}yJIWgateYU0*5
zH;xl3DFW_Eyy^cL4w<L_XRy`V|H0__e}=xWy&{Ya^Tb+WPip&@BxGC+wYy$?nCa>5
zzv&;@9RD*get&lSk8)Z4=S#2uGcfDb|9EO@BCzZJx62-qNB9|78FJUX`k`mIQ(*bK
zE6bkhJlUPckaK~}9aTs8rVm>Tj)gs{US6!y!++~tMOax%{MY%1TEp+lzOHOcRS@Eo
zbq{=JJn?6f?P}@6v)I3J?9x>_t$OwFxicF(K1HxfH%(geBXI8l-?!7WjJp`>QH^&l
ze^{ZqeUgRRF3(5_<=S=6pC%db|2lV^ZF`n>htJCm)(R(7))_fiYM-z%crdYzVeXpc
zEDUM<yf+{JO}+k)E#^PN$5Zh?+}`|Wc)k?I-@5qa>BTRv-6}~higuP!cr3}W(DAs%
z30dpVTMP$xe%K?#@+oaskgRw8(mS6P{5kwLz3{02e+G`b^Z$I=^`GIu>G}UGeXp0W
zUVE}-;*y)+qFd(F?C!kboapCv%;Hw`v%j}JX8inQmci88*Pp%o#AT<{Oc_?S$R$%A
z2sy}Q+uid#cPD*cf!1G<0Cw*DHFx|UN9u_E3eJ{E{wr~$$@Xc))3i{&y4Q)aeUUP4
zKe_r|E%3I^c$VGL%X0Sn91Wfd=4r1gTxI5UE#7eC3nS~>Iaa+}wv}t|;+(j+^rU2%
zbVN!*Pm`M?OPRto)#Z&_q9s*k-AwQEj4qzKYX{5x_^<Pp_OVOPoc-Qd_+p@g%+vMF
zIXTaYnf+yVGnA=bJ@n_v#&U}ZDI2sWUzr$g|4@4Ke};L}<9|pN|7SR^+3uKjT|BbV
znWc4+i{ZMjcN{II7I@X{<T!OBE$vR7!|V{ohJRu$caLkGFHwlN8)<jF__R=~^xyOk
zt%d&?n7%ziOKP6gi*?_AUHkdO&8-tobT)3EF;9t&!KTw(=;*!|Tq0uU<}xJ2{D_iN
zX<az)WuS_#!tdDgXLd_E{byM7m@ja5?X8XIQF7%A>y^@I-hh)^ZdUH_-Ff%fikRk!
zTY8c$EW=VCm${u~NQnCpCApY8-}aKlBs2B5<u<E!ZC?ND{3D0cZ|7Z2{wKKG{^!fm
z{|t@O?f(?5d37tMY6~YzJEK}#LgBo`iK)yorJDUY&m~2x8Z7@hAG+wDZW6Znu6x19
zUB{lid-Ar3BkcH$DjB)CtIngQVExW5@jpDatlV<;#G-^%J`+2`85`{twI?|!`ng>@
z%ro_9meQMmea-UE*D?fcy!f`{r&NZ|TIGf%r%fi!Ve();n|}MG<?WvD=UC$xbunll
z;R7G}R<C+_*<n}i${lXul?BGFPR$vr6WCJAv>TO$W<=apS#MqYQ8;AlvAaTFT6bhD
zVdS0`%Km*K>w|@fz2}0tP8^IbV_$I5iMe_2$8Rh1CatNmJ$-7zmKCQYjztKGa^BdK
zUtq*^%;8SMhC5!juGSQmFTd-VD>uDdp<~<gh#O5JJtA5hwJ)bhBsnKaI@*+l1pcjR
zJoQq}aK}}>1&v>B@2+^R$1-Uh(_4qf6;GBuigbI!CqDP=meP<w2T(zVf|cKCl}(VA
z5i&Bqt=#k1$ZpZJE`|qh|KzTXIw19*!E47Xr{rh%jP}?#h5b}fd1hu8`SWC2*w4_0
zV3mK?S0*djD!pi!{r#<qoR!vFzBkc|AuT6vMNTf{z7yymQzK`xch~-HoBMrsa+~;T
zpEz|e`PLej9Iq9T5-rS=cIq)&J7#fy6#JxI-8R{0_q+(Mx1ZKNb5wKC5ljg<xL7Ax
zCAWyVY2k*se?=G%oPGQ^$}*XIajZz`J%=!rR8Pjf3o9INNKZQ!ze|7S)r_h=vyKFv
z)ZMaet;kuilWp9r2l)&ShOsv-ZBXcWB4DbqAkkGMKw(jr2E(GAbH$GpycRy3mHV_U
zGAYvSQ)|KLJqc}hij4aw$niNnc)Sd0=w!vOr9I`{%lCZLeZ1~z%dSqz%AZZ?h4R`(
zY!-HHYfLUKUXydc`gztQqr#I1UKLn9UdmwC)tlb=G$ZuNsRm;W<pSObOZpa=T{~za
zyIhvn%2P-rQzc==f@w(w3^J2EA23*|d|ALA=<6QI_Ee!i@T^q>m&PIp*5uZjz{xO=
zeSe)jUuFga*y&wMbJt{E-!2q+JLa(N8OzVgo}zON3d%K9r?WRtuzb{@cQN36IqNE$
z$tNZ*$=-W&2E*#}XO28zeekKk!fwjT<y|+O&%El23=vb{J?FIQ$@etHkWw87Nfj=J
zNnKhdvn(SoN=7cWj$z^qa!8QiYtPnB_}s+rq`~9`bCbrR2Al1Nne2afZn?YWU&h6S
ztYuHjHk{XsZ{ESXO8KjW@-zRS^)?^Qtu5NMZuYY7jo*rwIx24YG}-cYzxmlaGJH&x
z)t>4+Y<J&S=lX|lzWCTPKR)TiBa;Uk(-kJHTE%UsAl$(D;Nssp1=qE&x5>$EsXprz
z+AAn|K!@4v;Eq*n%EieGWIaX2za4%4mpO0$`_=jXY$N5Y=iIAEdiCg>r;kzOnTHDn
zr>10dvYu&}+akBJ?V!z<b-Nmj?6>LLzmP8d&rlm(|M3+n@A{$!o9{=gc<=46$m`wu
z#^d6flK9PuA7n#Qk38_^f6tk*B>W_E@-d#qKl3AYeVFwsd|LVHI`zNzXA4C&GX0(B
zJ3GSFz;{(@s77Cl!$iY#$EW_AwIXS2lbEhd)|w-eLLF2lPx6%Yw3&S8QwH;q{SVbI
zl+F-*v~&8Ks+O{ki|*CVudbaHHc7PJ=#f(Lgt<MF)qZ#Ud(*P-(bpg4>FZv8bj{js
zE;jM!$>+@JDwFc9<Il}Zm&;!9Sy8&}YRAu1bG^^6r{Ci1t={@RSNDnGG_90g>CBqx
z3L7l$?%e+PeO~U(lk3VJAGyc)p|@kxq+iF*U3xGzBywW;mN~2r%L~((bF%h4bUJ3R
zfbl;=yn^>4%j)@UAMaV)T$|or<gtJ;^RSJRf}^pFj%rwRiTtajneoMvZ0Fto-PrS=
zVL|Tozh86zGaO%i{7bz2AJfapQuXcn@6*lmaszI!dB3r{NL*_T!(+L~J2%VQjZfQ5
zDv1(XyZW_M>J%xb*9KcO&RotCP&%!qa?9mVnnTI~6@7&xXPAzvPt`F#vwyAc-YL6Q
zmt4OaU%ly%-|yc^pZ_&(kN<vk`+o+x#VEXWHNGF&IG?fcT4iuO6MlALjdaC{`Uy-+
zxkVXL4MdkrZOqj7URKc@x3M?x-MQIjf6r}Owe(xh%6P*w-OUqTIW=*_9_T&c{huMa
zu8cqZ?$Xcu|4lxdKX*^>Y}vqd&$26XpKhNRVj(o++yhS;iF<x6#dAs}&Rbkq6Ki&H
zjlR&$rIoX+LxWY?^=>2?9p7nt^2v9VC)ch9b{;VL882`(OoPdG-nW8-Df-j6%--Gk
z&!9B-Ku>~pZqn|>uebIl*-BYFnPi!onIgEzW%rDYth*<yVhHj!<g%U^kz1Oz&qQE$
zOw4Qp*6VW$LN?2*pZvY^XZiE@2G3a(mDeud$#p*R%_?ukt}UmHqqn#vK0T~FcVYRT
zgCQ-C_q2w{ElGHI|F(GTme-44e~$k6roQ&&`3qO|<y0?Mln4Aa>FCncGjDf#vVPhf
zO}^RwaUO;L&dYq!{672jU-sw!Tp3dTGvvh8Uod<9@7K2f43Doque#p2_Uq}DEYrR}
zb2IY#u;s$0MxCAmt8`D9IIHgLSuiQ$;UwR;4D8oZf?kD2tW;<?EGhR`p{H-LLVtj3
z<$s1l`x&z0Shq~OAF(^u?d8nbZ`&)T`M!(n>3Z{Oxm-{x-}8tG9%nZiFg6x`xT>eP
zv;EC<M?IDMTh^}D`tW)O`;IiDe;;;CoiVk3$7;D7*VfGEn)P7)E#>{C5lP#X|4MrH
zsksGs-QnN+<oJ%SC(@i|H^c{DE$zO|-N?Il%5;tZvo8uf({68{*TPd&V06k)S=gI5
z^G|Ye?s~IEC67(Vv+`ADPFbTZVeM%oqkqc%?D>zpySJTw%KUHN+dk#M4=h!4=ZH;?
zjLmIQl!%GuIITUsvrF~RMgjJD7FSM`tDH&8oReo>dY=1k_J;H6wrekL-Z9B?CP#y?
zO5qyiV)s%3&8^HWp+TEk3vL8Vy%qN=K4+WY%W^^8Cx;C=t>5O)5&eCzAv{J@RYLYe
znbB2WuGq3?zp}eeu2sFvk=p*|O=Po9OU+G*b9b~G-fq3{c;&(W41D@O@?XERQ2cP}
z`rAjpysdxM6&y{ikYIJQRto*?;IHGlO+4I_r(49wqg3aoQH|!V>=yscclNHfndEW)
zTfJfA!i=&*EI(XkoVXO5TOuSN7%I+Kd&)9-YPs9NDMChkZXplbWe>6l-e}@in(rWU
zu3Pn3=kkNg4==l0S)kzf`Ct#<;nKq!0xvqI-P#c|C-gtV+wSwf*zVTf54-=TYF*~9
zx$9O+duRN<D6`N)nWgw*gM~s{kVUHEl&K1{OBm-TuQI)JHeYwowoh8^Ou>?OIF*~F
zPhRLN?prMRTuO9~{S%$~*LUh)q;1JyKJ~}o=103(i%*CBJJvdzXZML?A_5_X@)bRX
z&uv8ns{2J=hFcw-bo;iBo=fA*G%jZimIU#>hk?za);;<YB;79EzCP{4ve}E~x*ZOP
zUU6=j$&Vz1JYEI4h`iR$h!a1zY4Oi=W@FfqcRp(0z735km*2KtX+5-Qx`t?h-y^3J
z$0w|Abt*bAM?*#a`XhGB$G%oCYgA1v!Yg!^3W?5&5P#ay6spXlBFQdz!s&5SrRjdT
zJ^h8I+i$*enP_&wM|bPrOa5Og9<MfPoZ!c}F8PuA&G&n>Rj)1DHsSO)&lJw0Zq0DR
zlr{c4nRd;yIm*My(Af3L{-N4M`{%!I|NGCN{^P=_-d(SM)X$q=zDi-=)vYZW+pMxr
zL`*mqnbaHJ)8w_Kx95Y`VuQzAj;aaS>qYnO-R+*8HrZHxo?N+w^Y?G9KI|_WpIJ3e
zkUYSXUw_DVQT_R^+yDOa|G4;{P_FR5`nCJtf2!~G-M`lU#O1kV@juP~GpHoHF8^`u
zadu36<n0Lon~pMjaPX9`&^zJw<XA+L=fg1DrB4?BXW(F4Tll<o`w^*TP6zoNntXT6
z9)vU;^^{l6xwX{c(8_!9%l|X9%y#+DF#mP_??3Y&yZ=$SrT*tXLv;Q9C;u6wbmT7n
ztUdjC>v{WKf9L+;UlnWnZnNmMg(jVwoQq2}`79($-CUC#q&IOSe>O;CT)kxL5B~?%
z9+ylnzF8t@P-5(~*=W;qp0x&LJVtd1#V4O_M+vfv{~0*VI{!1+U%UVPr~R>R#p=l1
z^6#7eu3fsfCrLWul196$D;N6%1Ffu6cpbS|Ijjr63Wf>wCnEkcT;K7Z;lkOBYpT<h
zrmlE(F6Vh)!Unzfx>q+&w>WpHaE?s+rEM>mJEwkp{Nn1qOP-s4mTeHwxO4N~?oE*$
z5~>AUz02Q+N7gU9l{K*=KPhr?7@z1dH+SdegYOSMXmWhCVa=E56MNk4R#t8M<n&@?
zzM8`<19PzemSn}|;+Zpgm-Mh}?T%Vw9(;RZy0)v<-1`bn5&RF%G)^rqx#M`Npi+{B
zdH#<^zB%(`c6B|vV|P39nv6q=;6zD=r=cwlg`W*w8A=%nFE42>E~xvy@QeJ?;(J!!
zOFkU^&oI?UYw4VS*<Q1|H9DR&t(96V=V=}3R`-rg>+<VcHa$nO4BYsAHywRpmp|K5
zS>nsvo-Ve1?_Zy|^*Q|hzn}IG|1-RP8}lSyutvF1+mUZ=s>;c^Cng^|V>ZW7Ysm!R
zA15XJ);5N-?O!;h;_3cv6Xh-Wby5;OgfldR-+1z=$hSggKI0zte4)cj_f5}ga<B9{
z=Y96nrl(JgOr&SJeQ6hLU`U<GKTT}ul3n|E#(&QE*8QKMbD!{K-6y+t?sIKZI(S2S
z+coE{SKbDdFHVfL`?N7ML9)SCMts`$4LTnteK@gj%3BMqs=~g<+vBr7+~t4h-&&I0
znpnSlOOR(lo<UO3#}npGqLl$3eY_1-)^wG5ZPGd>tn~h2=+&=hw_f>Ykd$=lr2K9F
zX(uH8E-aSzZg><|v&~`SjC0Q>hV8%p$I#P#_wVWd8B}UH6fQrkxZ%?ELGQ%516+y{
zhvw9*ZtOGIleBnCuCY(g?b|t>qD@nnCDM*vJ)Yzk(E0c7s^*NqIN@bAM$r~&k$>EI
z+9Fs47w*p2V_2{$=X8E)q?4grsg6Uz%gxE(qUzg9Bz07`Uo(wJ+ci14^5WfH0;iTn
zG^oaCi%&4pGygf+GWGMB!dd?r;y)bBD6cR2&+w$**;n1K>r%8xM|b5WS%*Al-W}%y
zm>O0wG75%<XRT_?yQYz|pzju|wuqM?o5aJA1fDsQ8w@A;)%q5H%(6-`T#_8ap458U
zJI6aAS;tGr^L<aTzt!7KH5;?O<?P$^ChgDTNvg+}pPV0*vH$CWBE8rD8PxtWsFiSC
zT<|lb@#I5~CvzrWUa2zqzPj4nXZrh>JO7hk@Adg@^rO<gi8Z_OZ|5%GHBsQ0azL=&
zQ4x>V#xtfD{9H1TiNWn!+D|R+^W9~)a*vc5*Us|Z=`=ND2SZ-%?Z6qF%0Xr;%8YWt
zCbB)^d!_$3|7T3h+*$SQkM%--%{^q08}Zow<2$P+`<`Fd<`!3pZRXorp%&JC{<oH7
za#!dSWigw)n3RIDNvk|0wU#TCOm%ag@W<|o+w%2pBAVIR9t(1gYwfBmY%S3_prPbv
zCc|_nxM!8|ue{9*BeFj%-M3I;nn}H(;|mF<oyVOI8ysXQo|D3)E>*f<xB0)Izbh8>
zpE-VZgUnm@6_S<;$?B5l*mMI}%*rO*h(4a3XLeXfC&S23)Q#cfNehM|PxYNES1f8U
zzWk=}RevY@?bJqNIk%b}H#Zz8{e5Y|ah2M8?6q9yW99Ce^1rp&ILGZG&o&3XgR>=1
zN_VL<yp?tnk(s>Efi>;L`-J3K(vmKVET4WhI52hMofEGLFRZqdc*VwelI2>r-h+@Y
zHdS?tXPv)PQn96UX7VIYo0m~xMib6XV&LA*I5RXv>%HDVhuGVp4h$DpeZSyZnyn)&
zyV0X(O%a<&kMQIJ2W<UClV+-TYjE8>pzy)tiA>*&6OSiUC^vDa1TgFB<-X5-ymM>m
zG|s>{b0^8jh}1}r2W>0@?kqB0vsT}@d31Ty(R2nSjlg6FKfkNeZvJ)bQ5zjZOf7XL
zpY%Q%W^`G7`XsjJ>{^R$J#7+-{1~2e?T`F5uQz+O34if!vrlVQZ+Wchk;?mO;Z=E=
zlm#bmPbkp<b%dE4w_H-GmpQx2Y@Ptek)#(qV$zl8rK2aYJt%+J)Z|jMs{BfzgXsIO
z+_8Fh*S$~m$h|B*_e7|qg`|3)CqvaF)^x{}8Q-c}kFMC&|8}xhuZrvSg0kK~wtI_<
z+?Ft3na6*IHS)SibiBZglgs1YeNxf#yS(LTgw+IhAEV}9VUZu)rrcVb^+v_q@8af~
z`<kD&y^(ffU|igL&cNGkr)s%2Ly6yOsp&<cAt{p&FqEo%W7@E;^e&TR;+184TG^+(
zYB{mcYqQ?t^On34f#-^35+)RGEzXy{qn~eZSEMVjebt78GQ}rsSI^k_qk8FGmyITq
zn|7);YwCC#Z!9<!`du=eXU$T{^r>8;Hw6CeUw^=U{p*i^_|_zRvI^6^`meXzbj$ft
zx!2XpB0jusHlOxU;`aTVC9MzMX`W<Z-e$2b?(qRB+dKOC7E>2aN;Y0UBV7F{W4WG$
z*3ZIRt^@s=mX@^-WM#LWG2gKC?Cv!aPA$B6rD@F?qcuwk9KmsVEpK)Gk}X9?D+?xe
zr?*AcC2$G6`q*~f_suH9tBnjrj;nX&&F7n(&fB`}y&A_gl{-iKt}uq{+)T4zR+;2q
zb?Qou;__FyC6^@`cYiuFJ6hf(;@0Vd2T!^ACvPk=h%R8;yY%hWUz=~8*rc`5DdY)T
z+~U4R3-<5XApK_DGLM^&$`m%RD6kk8UtpX(`8dm$;EpY}OvevzIGLZYRB4jil=TT7
z%nSt#j1FH_#FEaPIcDpBILvD6!5uqzA{QBKU}v1t7Uv$*Iw_Pz@JR0;N3Mo$skGJ0
zv!oYpoU3NADv#^HR34+&hL<~-dw$6~2j9Ja>qcdL)<oscDG`hBINW*rJ+Sy{A0NY$
zN1M0Ub4OIvWp{V`KFeOOe>PoVnqd>O41-aTw@j%8gGQ)WX|2%ps84p6cbi>SJ(B8Y
z@N(|X*Aq{ku#q!%5O^8B%g4xWc6zbQ<j%BmhgWCTolBYMA#1jIV)F@Rb`{~Mul@XO
zISN<hBOLB$PG<f2)02B+v~1V12ZoKGH!93sS_V%3pez8w%=12~#3@XwE?%^2NtW!=
zI{|D83tbc^p5)t?G-0in5$Dtb=Hl>M(~tBXe)G-j{_dTLpRAH1oF=R}`s7UNY~HQT
zhEKhZ2^;+~6;ZJH_C4@N>!ygcISUUq_7u%+JhJ3Z_fyH42I7)xPK<ZzD>sH^@7lNY
zamKnQeTR-o>Q2}g&eyPmMI?UiLDuOS4;D2XF4}iFcC85Gi5Iu#_vq;-`UV}6(3ROg
z>!i|V1;Lg6kDtsm*Sxj1kKOT^eXOepLm(C$rna|uZPbojHU2GikLssv()xKgvAr@a
z>{g-D+?h{$Z%8C=cV#H>UiHV(NVL}Kg8LKWwn%e%6Q(fRr59>$a7owQ+4krFk61<i
zkvQ`!r5?GZwni2@SJ`hZJsCSmL_J4kGw1Yz*mH}yA{N{eKb!9W9c6=#Y}x<630vbv
G5e)!IlWbD}

literal 0
HcmV?d00001

diff --git a/vignettes/anaExpMLG.Rmd b/vignettes/anaExpMLG.Rmd
index 98f2eaf0..e0f005ae 100644
--- a/vignettes/anaExpMLG.Rmd
+++ b/vignettes/anaExpMLG.Rmd
@@ -13,12 +13,12 @@ vignette: >
 
 # Análise Exploratória dos Dados
 
-Para exemplificaro uso de um modelo linear generalizado, também chamado de
+Para exemplificar o uso de um modelo linear generalizado, também chamado de
 MLG (ou GLM), vamos utilizar o conjunto de dados `PaulaEx3.7.25.txt`.   
 
 ```{r}
 library(labestData)
-# lista de dados de dentro do pacote
+# lista os dados dentro do pacote
 # ls("package:labestData")
 ```
 Podemos olhar para a descrição dos dados, obtida através da função `help`:
@@ -27,13 +27,15 @@ help(PaulaEx3.7.25, help_type = "html")
 ```
 
 Este banco de dados trata sobre a a pulsação em repouso de homens que 
-fumam. A variável resposta é dicotômica, podendo ser pulsção "normal" ou "alta".
-As duas outras variáveis, ou seja, o peso do indivíduo e o fator "fuma ou não",
-serão utilizadas como possíveis explicativas no nível de pulsação. 
+fumam. A variável resposta é dicotômica, podendo ser pulsção "normal"
+ou "alta". As duas outras variáveis, ou seja, o peso do indivíduo e o 
+fator "fuma" (sim ou não), serão utilizadas como possíveis explicativas 
+no nível de pulsação. 
 
-Para cada variável, precisamos estar atentos às respectivas unidades de medida,
-pois as interpretações do ajuste do modelo dependem, também, disso. Aqui não 
-teremos problemas, porque temos conhecimento e clareza sobre estas unidades. 
+Para cada variável, precisamos estar atentos às respectivas unidades 
+de medida, pois as interpretações do ajuste do modelo dependem, também, 
+disso. Aqui não teremos problemas, porque temos conhecimento e clareza 
+sobre estas unidades. 
 
 ```{r}
 #-----------------------------------------------------------------------
@@ -66,7 +68,7 @@ xyplot(pulsa ~ peso, groups = fuma,
     
 # BoxPlots    
 library(ggplot2)
- 
+
 ggplot(PaulaEx3.7.25, aes(x = pulsa, y = peso, fill = pulsa)) + geom_boxplot() +
     facet_wrap(~ fuma, ncol = 5) 
 ```
@@ -93,7 +95,7 @@ $$ f(y_{i}; \theta_{i}, \phi) = exp \{ \frac{\theta_{i}y_{i} - b(\theta_{i})}{\p
 
 Com:
 
-$E(Y_{i}) = b'(\theta_{i})$ e $Var(Y_{i}) = \phi b"(\theta_{i}) = \phi V(\mu_{i})$
+$E(Y_{i}) = b'(\theta_{i})$ e $Var(Y_{i}) = \phi b''(\theta_{i}) = \phi V(\mu_{i})$
 
 
 - O componente sistemático é o preditor linear, contemplando um conjunto de 
@@ -121,9 +123,9 @@ Códigos para o ajuste:
 # como a variável 'pulsa' é um fator binário, vamos
 # utilizar a distribuição binomial
 m0 <- glm(pulsa ~ peso + fuma, data = PaulaEx3.7.25,
-            family= binomial(link="logit")) # especificação da função de ligação
-                                              # como sendo 'logito'
-summary(m0) # resumo do modelo   
+            family= binomial(link="logit")) # especificação da função 
+                                              # de ligação como 'logito'
+summary(m0) # resumo do ajuste   
 levels(PaulaEx3.7.25$pulsa) # níveis da variável resposta
 ``` 
 
@@ -136,10 +138,30 @@ mais chances de ter uma pulsação normal em repouso. Obtemos
 essas conclusões uma vez que ambos os parâmetros $\beta_{1}$ e
 $\beta_{2}$ têm sinal negativo. 
 
-Como esse é um caso *binomial*, estamo modelado uma probabilidade,
+Como esse é um caso *binomial*, estamo modelando uma probabilidade,
 ou seja, valores que devem pertencer ao intervalo $[0,1]$. As estimativas
 acima estão na escala do preditos. Para colocar na escala da **resposta**,
 a seguinte equação é utilizada:
 
-$$ \hat\pi_{x} = \frac{\exp^{\beta_{0} + \beta_{1} * x_{1} + \beta_{2} * x_{2}}}{1 + \exp^{\beta_{0} + \beta_{1} * x_{1} + \beta_{2}}}$$
-$$ \hat\pi_{x} = \frac{\exp^{3.18021  -0.05050 * x_{1} -1.19298 x_{2}}}{1 + \exp^{3.18021  -0.05050 * x_{1} -1.19298 x_{2}}}$$ 
+$$ \hat\pi_{x} = \frac{\exp^{\beta_{0} + \beta_{1}  x_{1} + \beta_{2} x_{2}}}{1 + \exp^{\beta_{0} + \beta_{1} x_{1} + \beta_{2} x_{2}}}$$
+$$ \hat\pi_{x} = \frac{\exp^{3.18021  -0.05050  x_{1} -1.19298 x_{2}}}{1 + \exp^{3.18021  -0.05050 x_{1} -1.19298 x_{2}}}$$ 
+
+Todavia, o valor da *deviance* residual parece ser muito alto. Dela
+para a do modelo nulo, temos uma diferença de apenas 7.57. Isso 
+é indicativo de má qualidade do ajuste. Logo, ao ajustar um modelo
+linear generalizado, devemos atentar para este ponto, porque medidas
+de melhoria do ajuste podem ser tomadas.
+
+```{r}
+par(mfrow=c(2,2))
+plot(m0)
+layout(1)
+
+
+plot(residuals(m0, type = "deviance"))
+plot(residuals(m0, type = "pearson"))
+
+library(hnp)
+hnp(m0)
+```
+
-- 
GitLab