From f43599e8a861a7cd7d7a19603a79d8ec9b462e3f Mon Sep 17 00:00:00 2001 From: Henrique Duran Date: Wed, 29 May 2024 17:15:18 -0300 Subject: [PATCH 1/2] case 8 part 1 --- cases/acoes.rds | Bin 0 -> 19274 bytes cases/case8.Rmd | 32 ++++++++++++++++++++++++++++++++ cases/tratamento.rds | Bin 0 -> 14386 bytes exercises/ex3.Rmd | 0 4 files changed, 32 insertions(+) create mode 100644 cases/acoes.rds create mode 100644 cases/case8.Rmd create mode 100644 cases/tratamento.rds create mode 100644 exercises/ex3.Rmd diff --git a/cases/acoes.rds b/cases/acoes.rds new file mode 100644 index 0000000000000000000000000000000000000000..29836b3fde09be9d657c9e2df87b32ef3956113c GIT binary patch literal 19274 zcmeI43zSsFwT9;bf{3CKMP!6C4<5tFFn!*q8)SomfFQ_2K)Ki>k06f$VK4}yM-(xL z4fD+(ioP+TtdWj648XH_`s{&ptfNdbr}uu6@wSOyY}8yo!eO>S@&{@5@xO9 zJLh!Ou3i7$Ri{pKX2!NEDk>@|YF1oQR8oqEr6=P*EwP+fR8-uus9Djm>hqzq^wEGh z`e@WteKcmWJ{mPoA03(&Uv2qtcyJ{5ad=~SBrADn^8O!H=pU{3uNL1!J>EmJh8>z{ zeVu$cG}->u(fU^#@8Qt&(DZR=^7+vC^3^$XsQdWp-N@nfarIRQw7cphU|yYL zc8`g7>_*_{cU+%g)&X(l?{dW3U(Yg^rI|hg>woXf4D)6nuDH!&rn1D_-cB=bM_~Qi z&dLyP?HdzsdEa8L&N9zQ6K~#!!1~KS%rV!+%)u7%rcbiW^=aa=4Zs|hBYyYunE8Ok z9FZm7I6A{D2IA6(bHp23Ah5qBk7k$?fO%|=c>QBB@wzQ(<|G8xzphP&xcFzloRTA6 zds&uwN}3q|0)h4885!njK)j}dMZEf{EOSnp*%5*D7yTwfyy}^lIp1PdW{C@TrkM*7 zSbxEy9J4wmUiq@cjI+!$)5Q5bf%u*O%rS3>nYKl|;^~vUzu9Xt%mF~0_2(S1;o~eblV%P$`zb4D9NfR%A1%dT1UYudp0`a1RMI5&$%e*m79Q#IwIOg{;^A?L4Wr-KQ zm1eF$pxx28=a_wB;;8p5=ABt)zcg`Ve;|(7mt(GtnFB521s`RJ!#~Y1?*Zn}9C6rR zW9EGp@%)Vl?En0c8RF0{fq7v}95OD=Y>vQs=WWU`#{;uPjySkgmN@7qY38K}tUu`Z z3~}I3fq3rY7W3O#=E-T|fS)6<{(xy2V*i;jv%N(;=gBN{cA8m+!1`x*%n|$Th?!Sd z%0>p0F9CJoY>^dvW?0~@fU7pG?=K%AJ9I>;N zC00F?X3j@o{i@0gv2rI6D_*pii?Yn>G_m|;1lBK)GeqmUnAy`JcDfF=h^EzRzQ2VX@tdi?mM@!DN-%aWG zHS_21bUavmwT@c1rsAx1)VehlZ>^)&?O^%XRGf7_HWgp(r}nF<_-a43UrohV`&lqg zjGl#l7S0o`W1+u=^QF+=!uisapH0kX<6q%C(fSqoSvXI$j)i^}&J(Spo-c*-L+e-I zr}3{)zrwt1O25LqEYzhs*zOTAio=m+XIW$|ICNha{_EDYA zwZu32s4mjuIAV@MGomB!C@^C?QjUBxq9f(#|FSdsdba)l+@(70p z?SePKosMT0{1MzC&*0Cq;NnI61YGqme(tpy-|drM-U{A?E!eOV_^o=+zW0?@;E5f7 z3jKgD_WXy~p8tLIvj%)syZ7bbPejb#0RDFD?!6`8i+%qE_RsJSY%hq_vQY$qYL4v! zu@|W7=x^{2dNsZp0`Wg+Ajct?T5$bV_CKiQ&;2ah_2s(Xjs^stoO^RwC$B&IX(;}? zF}HV@vtC|vsVC#~G zz~7_7FdjV7&s#(t<#kUgK^KBQM%sJQUkhbmAo$en2+;j{qJy^MjS_#$IqoimixZ$kqBe;kj?ds^~G#^tw{ z>*_M*rMFwoUuXY)(cPE0nEWOgrhwm11>#rW-)XkABks9`MdUtp6>z>;C$?is#<~_ug+cth#wP zc*nduf7gMJ!CU+Oim7upfwx*U7y#Z|>vv?Y`xf{oH$Fb?>iyuUvxe2+?X#Zz!F_wd z6FdGZ=RNhnpVomtmi6$n=-zoxL-0dot{ei1ZyVy2e+>FE8@eA0)NYimkxdLL-21*USplnll5xW>32VI#c#knMakY1ybAPsf(M?A-y2E;16S)*b=vKyAb3+bAHCfewxKV9 zC;Aw>GGDzVdzFLWDOvA&6ufJmxB^E4-jD8jw8se-nmBt;pbYP?F!A?~I~x+0?{*A!}Bc=d%Qx?v<>k^M(rhTyVQ{-n;#Io;V-yd~+URea!hZ&SzcUkvwtURbgKQ zuEgDuI5}_ge0Gae`i}xf&7yQaa6}L1zc9VJybJD`H>r;BX2<)8FywiWjPVlQmy>e; zON~;?KwF4*3A^xmmz4D~Df1?hbtjVbA(YQUYPJv}eJ<-+h>HsGi(;=PmWMIeB<)|1enKR4qNy>#3nB@6EJLb)EsqNl9ip^Pt_ z%H#95iEg4#pwHEC)ILnPgK-K(*I<>LD;e?r6^K2(e+y-t!2z)=b_(}@esdm|C-L*7 zoh$k|qKmEEM7`}rY|mABJoym?7*abpZYj~*tRujAn(WVZk}}Su z_z_8ce>blSTKAw#bU(oTc{NMW06y>NxcB4n+Y%?eKXqlEdF?o#O1g|IQHB*CBbQfGy*(RT$7eN8)ZP^SIBlTS!0BZ{l1&ugkJ7 zb<$5l;*gN*w)A7myhyC%^)eyxO!Q~}5>hWA@k+=%PVDA!+V#{SnD;a!UbgN>&K((t zem}-m!^AwYDZCEY+McdIj_o^=e-4G|a&W{?N6!aJi{4BWo*zj5A~4S>o4FtJoG5W} z^m?@&({g+<4#~Fa2q`1Ca`H6 zG%0UCL;DO=iT4qwVDF#ceY(B$-$C>#lRWPr`BEn1(bqdlyEEka84{OHlGmM78sT%8 zwTI_>IdwB0tfzUNSncI=v13WzluNwJWt`xG$(!$?>-&?=5}4pYx_%=0}Ctw`9JStKs4JD+=sZ z%JoWV-+3O#ze;qhl6h4bQzAo^wC^nIQ0G0YXO|&7k1NOUdRQsrsT4hRJFQoh=u|2F zl}r9rh`*KlcpjPYOTQI*d=lS^S~`GoeJ=B@T=GV#sY_*Wx-S4)1>$oOl-j~el} zyTrf8W=b6BA-dK`+uDg+L*k_SJ#(Eh+zD!=AMJOI zjH_1q=_&fxir;m+l_P7+{mzy6>G$}|_Xp#+p5L1D#C)G2_VxWw-;Z3;$(8Xt52+6E zzASm6zc2E;PzCU1oaTGT0~{yapZ?y<_#<)C?LG0slm5*2mb=I>1d@OHdr9vF&I_}T z5Pt)SkNI9w>;*FKeaVAR=2a+ptM~7b_@VbzzQiq%`Rp%e{ldi@&tN~#d;RzDnT|t_!)Hsq3EjZndd1zUKKWsuV2RVTt8ohyZL(5j^}$M_>S!mblh4I|B=gEV2kH9aZ&K!KD#_zat>^qr?PhyP(Koq>g-sQ;8r={faR%H`%mXEikHKX%h>+~j)wCvch%8a29~ zevh^J@DYQCnUf)7M)t*B;{W(9rDNyJ`cAF(;du0+B*uTf{PK&>xMIndc&dCWm5z^T zymZDTlcva7DW1t;t4Z~Z^|e#x;CKrAXsEBPpV)ZWtOhir`cSXZmtaw^>Q@)kGyyCFunfU60?Sw|6R=FeG7ZZtER9$eV2QEZfMq$B65X)vPKgIHMEZec{!16qn|G=^b%kQzggXIG(A7j~%1$8KHj^#KkCt+!a zr3_027JNm%xE2fE5{l8^Vtl1siCn6+)32=+>$g9P^_7x@c@-yNUfi?IHOIV)=$MzO zTy3PpHC8;+!ZX)=b1g7d0%IjKRzlMv(k)68b-D>2>Nceb^M)rL=C9h?RB6K2wn`ID z-k6&==IZyMN)w)bT@(-V#{9f7KW{A1Ib50uv`nRmFmEi%8;kUdbftEkF=p2pW44jJ z)V7UhwrzZ{oqRJV-^?`wvb}sW&-h^b#s}Na`;d3t&bw}hd1F!DSY&)~@~%61*PXoU Y4yFqwnVF#a_YRxQnt7R;3}2}7-=y1d>Hq)$ literal 0 HcmV?d00001 diff --git a/cases/case8.Rmd b/cases/case8.Rmd new file mode 100644 index 0000000..ee24ea5 --- /dev/null +++ b/cases/case8.Rmd @@ -0,0 +1,32 @@ +```{r} +library(tidyverse) +``` + + +```{r} +assets <- readRDS("acoes.rds") +tratamento <- readRDS("tratamento.rds") +``` + +```{r} +t.test(assets$ITUB3, assets$PRIO3, alternative = "two.sided") +``` + +Como o p-value é de 0.13, não podemos afirmar com 5% de significância que as duas médias são diferentes + +```{r} +df_acoes1 <- assets %>% select(ITUB3) +df_acoes2 <- assets %>% select(PRIO3) + +df_acoes1$acao = "ITUB3" +df_acoes2$acao = "PRIO3" + +colnames(df_acoes1)[1] <- c("valor") +colnames(df_acoes2)[1] <- c("valor") + +df_acoes_bartlett <- rbind(df_acoes1, df_acoes2) + +bartlett.test(df_acoes_bartlett$valor, df_acoes_bartlett$acao) +``` + +p-valor = 2.2e-16 muito baixo. Para significancia de 0.05, rejeita-se a hipótese nula de que as variâncias são iguais. diff --git a/cases/tratamento.rds b/cases/tratamento.rds new file mode 100644 index 0000000000000000000000000000000000000000..ef64be3ce09be1b875e028bfa4e48c128ab322c2 GIT binary patch literal 14386 zcmeI3KWh|07{=!|7h@ud;P*%)*k0tggosgySEN0ng5V#x2$oukg|=2A`4EB#BKCd) zdkYH@Y%DZ!_T1la_k`Eoh0Cslx43)eedl@q%saa?bI0z^N(dnf-A)#=h1guU5Wh~v z&-oBK7ehBJ=lvV&-trpwb#OxOg?_rby_Icv4ZH^Vo_B(;gR57#>DX=0M;@P=w2jksX{-G|%*VfS zIG3+!YuU$NcgD{~y&o^1UwUzRz4ztytIt2*zU%$|_I3Bo)AtFBe)wSOhmSpo9xU|O zgTzIyizyGrK|Ey52N{G9R?IWS#m+#+qjgSt?2I~FJnD8N4;>eE0Eq|B8ZSH$`w~9+ zmZ6!q_)p_hz2u`jWb&};f21G3U=cUjm+9%JZrFq96|tK)5?B4AubT&a^@kq6pzNvey|7CPW8xO8DINV#t-$;eoMx#Dq4QftDiEx_G|v?uPIscD&nU5Sn{y+tPhHH z`D#CR*%+@Ghk24ZnEbYQj0F6M>!ApHf#v$UVj@^dJ4p>ANI=RO7DCmDVT zCcex^(qmurqgPDl8S#_!_|b8}2bE`y7aoXx319QJWHWE^Pu)TMrSlTwHPGUt2l4m# zd%Q!!(*D}chrAJx9rJ1|?Ry=(4t^c@ec*RdKew2{?jeQuj^z^fT!voPP zVmEIjuKGn^HxKyg4?TWCXE@RzV@q(AL^t1mW*9hwEUn~KV^FD zm;8MlI-YgN>*{s&bDp2`d>xow2h#aW_pzpA-4Bbn>39+Rt4!#%spm zd?0l&`EBtS7uZxDO~+$g%nR{B`U~{+W_G>tdU!qj9OmaRUk9qK10i(t=khwm^Y@GQ zNB3^+MMZqwF1~j6_jSAO)?o8G?cw(2VbMO*-yYoPZ*C2)4e6eKGcUcb5T9e7jj}v` q@Mx7t@sZw;J&9k3hXv!aI|`R95anp2Y&#w%xU5P literal 0 HcmV?d00001 diff --git a/exercises/ex3.Rmd b/exercises/ex3.Rmd new file mode 100644 index 0000000..e69de29 From f8fad24a2da564be6bdba4f00cb726537f903632 Mon Sep 17 00:00:00 2001 From: Henrique Duran Date: Sun, 9 Jun 2024 19:46:48 -0300 Subject: [PATCH 2/2] case 8 part 1 --- cases/{case8.Rmd => case8-p1.Rmd} | 0 1 file changed, 0 insertions(+), 0 deletions(-) rename cases/{case8.Rmd => case8-p1.Rmd} (100%) diff --git a/cases/case8.Rmd b/cases/case8-p1.Rmd similarity index 100% rename from cases/case8.Rmd rename to cases/case8-p1.Rmd