From bde368c55a62e91bb006bcadd6e2edb15c4ebde1 Mon Sep 17 00:00:00 2001 From: rafapereirabr Date: Thu, 23 Jan 2025 11:44:32 -0300 Subject: [PATCH] cleaning code --- tests/tests_rafa/Thumbs.db | Bin 9728 -> 0 bytes tests/tests_rafa/benchmark_LIKE.R | 1 - .../tests_rafa/fig_benchmark_achitecture.png | Bin 12408 -> 0 bytes tests/tests_rafa/rua_ipe_roxo.R | 108 ++++++++++++++++++ 4 files changed, 108 insertions(+), 1 deletion(-) delete mode 100644 tests/tests_rafa/Thumbs.db delete mode 100644 tests/tests_rafa/fig_benchmark_achitecture.png create mode 100644 tests/tests_rafa/rua_ipe_roxo.R diff --git a/tests/tests_rafa/Thumbs.db b/tests/tests_rafa/Thumbs.db deleted file mode 100644 index 2701deb8770e3c55ad7bb9f2bdb3eacf6e45e714..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 9728 zcmeHsc|4R|`}i3%Oc*n%K@yXtEcIl~l4Zzi8O0b|}su zBq7R@vR1N0WfzJOGiLeTW7OO4{r;ZM=l%WOf4<9m=5yWW+~+>awVmr+*EQ{J!b4dl z8$W`7C{gmclmF`0VaeiM}8dO6kbS> z9GN2_SOWn+1OgBULV$um2m&+&7ziL00KyRbn9E(^-_QR}9Iyet&@T{d1}5MHR0n_% zNTUCI5e2+I&-_o@@E6k~3*QIwxb?w)wHIn&C(s1W5O_d8cc2B-fGhN-1$2NL^i2z> z0}ZJ4S49c%z<%ZTUyb{<9|67G*!XMDzt;YL-Tz@bnOaTnGYS`I*z!)Ila0DEIL?Dp- zNM0nrAU{+D(I`$q3$IkD)r$M_k5A4bFa#eTY7I&hg%ZW0(P%8^fyQ#D3I9`z)B@o( zU={}8Fd4uj41){9*bM*&xud)gwm%Vu-g)2%UOwa+egQ#fz@xR$Z2^b#AmF^b2` zsi~!{v&;BzCZ=ZQ1Pfa`dxw4d4>-De96oZ?)64s0;HjYC(;=ZTXU@jPojV_&l6pDq z%GGPvZ)E4>=H(Yq3X2~8S^B7~yrS~)v-*bTFB+SgTROYC-@JX-^S<}vr_aM9qhsR} zli%j%sSDp1muPejT^u@p6s{8f16{%pT|5YmTsU;Wc!D{E3nO@?Rr%H#k&v$b>t)oU z)?jxhXO-0P%c|Ra6>$sb5D=Bq__*a8hqM*S{yD;;|Gy~vN!Z`%>IEn`3=$q(7~sJ& zJ-ad}QS|U6Qsg(I5H^sSrE0)ZnRzFfv+Xt)O^4V(Y+UKK5*t{6N8DZ#x3afT;Q8dO z#Tz*=*lt7ia$%f1`e<~D_M)<3fxL54-4~~)Y^d48dqFh zvM5x*0+g@f$p)VNKJvl-J@&i&mJ25F_x>;Q{ZC0mV_vm~VjNd7DCGB-zsyH)%5c4e z91RT}qT5nLUR~TZ`FpIZbQ8R@bep{S@+?*4p5e22g-o6wko9B~N#A%Q^9dUy1=BZz z+MW-wX{2h5#o-km9lSX13H97G0fdd3AL}L+t0dYxa363a%S_~PUt`l3RE=H*9)fVW z6voyP8hGB|8~uh4&~*>p=wRAr+)h?Htn-)!r&+^Fs)ZyZ+Pge6k(ZC7g|E61&NcKvOF#zjCg->T40dd^@_-KBOjGsh+Vdj@&kaJCDd%^fTQU z?J+&o^^X3Aw$9Obv%?h=8M8XscK@>s{*w=Ws(WlwW0!6NwXMAeml$r zYYop`Zk+Tgo#0Z69i3Xjj93De3l@1NBc{aG~URg33hH+8J=|Oc#EY44});u6q3D>egWK6~K zW!by~nXkNO`%LIHU9&Sfp;}$^c%RjZFZN3E;^6o;$A^JQPual8vHK@o9Qqva-)Azy zu_g5i{ROTlarBquQeVLeFBZ?1H583TV(PQ|B5{Z7ZV zK)PZ+-j{?doVHwelU%0 z!WNkWhSmimhjQ1gY1UUyNI*rUzVvXBetLoY@)hesp`7R|l&c?MI5jc%R_b&Lq0y+_ z-)3cZA1pTQyoiKQ-NeL<;!_TitEz+Q>avp8RMNMZ)8aWSafs_Ef!j`U_<$6d7SA@dVmtDjs5&1U_c~=gFolT33Q#xS? z)}3L*^5Y}aBD!~6Z5V4k=chf_^EvVQ2la*8w#*45w8K2Le9G;Wh`sxhwpZIve@}>^ zU6rNol)tLQpt3=u39NM)U(aZ6GqQj3J>vqoiaDnZX-}e7_-W_e{_!UrX^|nV2gy|l z%Ab(VSxw*DcJ74TnR8BJVA|T_6-2j}Zy&oORX}qI1K^92|H>is(GKrgz`c!5dC;qn z9hG?KB9)bW(~4UeZgeyoBxnBpKygmRPq6-Q63!H|v_3>`tYQiQ7axPcYkBqt1NtUv z9Omrknx@5TX85++dS>#=+ExTk>c*eo^vQBrHC@m*kLAqC?=W0vUf@5`y(ofBkU98@ zL6dI}>wG;We&htezoVr`2J6|W=BS4}^b1p7G+S`*r%EElx33#CsTmn#9b_%soNbLVxg@(FF@`vn*GmRsnIYq`DQHLB(uQyj$kW?kSl z(H$&BZCSO#62$UR1_|C#?Gv~4%_#ZP5VBd^V+p*xWYL^+_$DOBKY9kiOLB4U={%NFx)MCGzuL-}AXww($%YlP>wW>t4 z!S0@gakP5lJE?9jTsSK_=k2gZvStn*nXk=gVk+XNiib5ESp8jky7^}Q0SM7ilPDfj zLj+aAkY@KsLka-v7cxx0MI?RVKeI6~-%OR3Gkl6yO>A?86Qgm{(M$D|oepCM%iBw9 z$_^RJHda5R6gBu5Z#9=gxuR7F{dU2h$f%{1cMUxD<5t^&#eb^zKyWRq3r3GHX@HMULDJ>ek+*M=WQJ#r@!oOHvH zp%jG|3j8apg2`)-+k>$>Zu5Y5B~2 zi32A#Rbh6h>_JJpShe@B%i@F4ZlC<{=ex#}_wG*nyKWC2FKX{w*Ec5AJXdG<#eGxD zI<1~vqW8p}cHa%`*qN63I3tYjqK9B4_L8xR_)A_V7u-#~>ALK6xo-l!R$DuJyakF} z4Bsd24sq!OFL75?Z-3FNf97(Fmr1S+7o>ShD9lK~b_gfE6%~@m9+RW(nvo2-(kfWQV zT9HIU-c?t4r~Xf$xD8UeT+ZFjZ-RaAvHwz4ATFaFJxqlc>RBUvmuV@Oj|g=pjAq7I z6HO$Y-Mmm(q^s~=rHxh6cQX9+1_lsJUuqt{krFLCSTpokd4B#lWTylrsvcEczSkQTFbI1#)v?=dF?CYQEkHwE8Ypf&1}mk zN@IievazoW&x(MD-dqFhFhBfSuYf+{zr=XYh$>*wx)Tsii6>K+Q10L4m_lMW<%Lsp zM9Q?T-HDSuWc6`@d}RI-4-gfB0b#WAUf>`&0LDoM-I75uMvzEse&v3h_mZ5 z+}k^Po~1uH?g@wcR^-_)N-AEy!&HC;Eyv%T8f%qpdM_nj-B*;fg!!Pa5+wW~L+|O{ z!{1WdF*c{+-{b`LoPKgyz-s?oV|RK11L+#6jTNsx_|%u`thJ=9)}q|1BWa@LTanH2 zsI$V(x$7Q$L(JN2?VZ+Kwj8gy9AEsMLciD$T2z9I0x?V0MWd|M*-}V*sSJyhTLWYmgYw{{!HrPQo$mIq zeb65h*y*RAZknhe(}n^RA=Hf9?J%bhM~|6jCO(hM?fpH<9b%8*T)G*F>0R6>jSsvc zRg@Punwj+WvejJHoZSLWJvuW2iHf)esQpSI?~3zlF0E^tTKiJ!2~bZ72eYhARLYYp z8Q0DEnQbhE#G0AJUBeIbc4^zAKhNt-HWovHooiJ8{40VZAGoxS8bL*M&!N6AL+bClLU9_W|xS)&@SP(`-8g8X7-AJ>y_OS+%XSE@3sN1H`P=IT>G`UWZ9pnvV9=q6TBU~Ma zU;_arv3OZlKHm_j(OLOh&%H>A3EUTBbBp|XD^jgP|bD6 zJ0|gti3CwS)JT$vB$2kD4X+dtyV2#38DP;S*Z_umzOejs3}O5EyxVIX_wIB89rAD6 zgLtwR`)1i-2OC_yU(4@1_F%qgTSnz;JZ?5ZFU;de?*0xwF%X6#TX4P38}ZI#-AK;f zIi3r+dz$f?a>=Hjn~=%Pp(e_FH0iPJ0B)2NFs~#OwCEDwIYJfzo(PR6Agxx z`0?}*0=%rDju9+|yM&E?bDlPm9GAbFMZvO; zVh;o}>aTw%$BhpTJND|EOfxus3@Eftce;w3LN~C+<^98sHVJk-&FHrEw$La|j*B>1`&R)MH`4m$m}3vX z_KDl*@WmU;GzjVlWS)}ex!}Z`eTVt@9V@heNmU#?9^>U#OPMs2o!?|10NqV)D@hLf zebx?s(hd=E+R`Dzl0CyXdm$>NwG02jEv7^Ei0pWS3&d4PeOl3QM8>mXnT0E+8zz{upuoZ0- zus`O@@7fGihm|bczPVA~Cqv}N75JrZu5{ZQVr}$y&=qo84KiQ^3n|l)+08Mxi>~*gJhj?MI~kF2U_OCp?-LKz%rxeE~`mR zvq5z9X@}Eg1531{q##;1QXHiVu-AB}U{9XB0w;!rG+4 zs`=P(?3#Vq)q@|dkIhXHz9%pnf*6`?F#fx@y>*Uv0<6cTqhNsq3 z2o$&xfB!^pC^?-C&S%I>6&KTdmM{rI_358(MosNmNe>okh{4|`U>q$JU~{mF`Tj0H zeJ_ud#2KiNDjkLEhhawcu4c{lVjNZUy%aK$YgKe|YZo#h)5#e$#Mjm4|M#@u&ry^O zC&HlHuXZ8tXFkGIi<6)6nBYW@k0<~NdVfM@TpT8p*dC z9vbpE{IC(3P|`g6%5lz}HO@F|P?;pUiG91Tb3akQ{DPcI>hg<==W9L0r5tpG z=Ke&(bijn(HRx>NrR@UKLVU`dey6Pym!oZn-R$dAu=xS)s!*g~Wv>dje+UDcBoPG5 ziv8@x9bHhFFC&YLwjSxL*kJ{$SI73KWL;tLzV(^5QFwGd#Xjbx-0Z1=rXAR(%s+Ag zuo1VfM>XAt_0za~N?IXr-}+-imZtAWu?vrM3ihXAx97b?>G^I`R8z~)ZfG&GY)Rb} z*KuGRfkV7Y7@#)cN`d8&JeRBH&O~04RJOB6CQ4ppKp^-2XIb0 zPEI;_CnxZm>6A&uGgjht@OX4K6JJdamtzTMU=O!p2@jV8OT+WS!zuaU6#DZtmP{v| zOmrna6R(q5ota6cW>V?-HZ1uza`}|-d2ylC9EDD&W;#*n^a1HOO(6X7^b- zU6eK)m+Wh3Wv#Am)%l`yAo9+K{R5KnhuL%X8D6y2Qqe?mJ9qA9<;SX2vqn7#-z>cO zz)pQmm4i>92ip3=WVHho%I{?gifeI7%M@1Z+Pxc<6tRNcW^m;~-&szvC{`(UZ_g;z zk0c~yy5>1#BD~pwZ+=EN=z$w%&p?a@oTtzELuO*=Ea&ENtYq!cFyz`(C=2&j<8z3! zGukTALI6{*0$=WZpP>Om#iC@HG6n22f8>4TUA-_w)7==s`FcdDvSIFqu1gWXL`)E% z-lZwwpk4nr7zyd!l}2A6qFWpt5+fp-QI9!)$=t8H0+CcO{-v4s-3{SZ@eVj>sS%8KJ!AdpW<0vOo9ME6H8-+p#iPd39uJ-XCgAi58_VMwaTn?u7m{Emlm zCH~^I8GZ?;fRImR6v!^d04|NVre&%E*8v1^&+?wdR>`XK_0Kqo3q6H6(=h%DwWoWI zf%7;hA|^t`v2$*eEg72)j8c7;mmXLpi{+!v2$N5wom5k(J=?P*qu}Nhc}#?`*x|o$ z>^mRIC}NS*c4yaw-HeraKQu-QSAijHX0TggZ}}R)7FFNGu(+4+5WBOd*CofZoIwpa zANdDP;chfiy6||wSu^*Tj7ISN1OW{Bc^=_fm8=0@+YI~9lWBl6|Ml{f8tT+&cQ9l;4D*zLfiL8hyt{@yZD<# znI}V`9jZ~N+;|3Lsvdoc>l_SqMX7pR!QXr@lL)8^Vr$rLCa$aepzXYbA492@3RlTm z@_hkRTPGTRJ>we)#0fXaaG*Ya(YP^{;`3L2PPebCEylKqNjj!=|pYF;%;T7|NIVfTbo zIsQ2$j8b)Kta14d%9fd_Kd9<9*8G=h-HgkBsY;eO{D-Qi_R+5YP-Slv{qJ6vXR!ZJ zUEPSiQiD{*G@vjvn5hTboWu_W#$`5-BsQwR6u1B?D&8yx+dwN&L zzBj8rW>3G^u5_IJs-F)pxDZ=uc82M}7mL5LxiX!2D^<*?^ZPSKRFDXF)-IMZefja~ zOQXJ0DvaQOI9yz@QuUDeA@i&J(t{*sjBwlI(eqq=rs^0+OS?SV#S9e=PvK)CUJ=hS zY1>9f`<5PMe#!HAUK6OKdyg47yz@W=|6%y$6sNHfGhoq;ICNC#6%k@aEtzC3izix4 zRvL<_k_H0O>zRSZcaO+L1${=0LlAbpzDFda<_;6}tKzL{Mam|tj<}|-hH~~1lj%Z_ zi#3|Qrs7Q8qO~=hu@THK7d;AVG;K`RtbX|{s-L>}e0HeoAZp)+igU!WL>OU>bhL3^ zh;~&paGXE|h@-_l@*+$o#N&*MLbS_8o-jfuQ}g8h00pMlBB!}(G!N@;Wb&OpeJl8u zU*2lGc8L1Y*+-MPzj}o+Nx^c%Q%uyi%)j#AViI*rG|mnQsc1UQ{Gw{!7y4uMOSo}C z2w#Qa>fs)EYZ5{GTP0klhq;GVuK6${6{iH-tPs;Moh#v$P}rgQ`KvDMBk{NVZ~O#(Af35Px$?*zz?IG{h9D5^FQn z<2=cXa9&@?E0UDB#*Bk@XJ2zsg#ThjOW9Yh>@CeDu1;4pAhdo;R# zkJNxKW6quF`#m~6fR6SJe2UD?)k{8V(e7E~JvXtEP`Bdl`g5qJFTsm0>CLm6GVO(x z6begBOE1_>j{ck|lXg?~Q1Tx6+CiBuaom8BRWA%j_i)yH+eiiJVc275rNzdQ0Z~~2 zF=GoQGdlY^jI0W<%79#7MQi-xCu3vZ*GU%{^QvQvd29Fd+ZDOFl&JE18*rZJ{+5K_ zI+;->h9k?i>J>HX70?tjAkU><)Kd>lKKFLdF~J(8Z#}AI^j6QwoOq7&Bn@|xAt78q z!5!mFa&EM!sC={Y8s}u!52s+)mmmO3ts1z4soH?eIg`YY+eWNGn6qix-(!1I5IQi= z=ghm+5jCE{4LDLV_lDnRadH=9gao{DcF+eAMp6ugd%f z|Kx%>T8Z^4DsV%u7VoRlY_X@1&7VkufTR441Br|&2aXXDuxQYq4Rs{H)Uq5zrNl%@ zEyrYos3)~5=EV2f!0meMQo0^D-_8b@W{3qb^Z_v9s?G;DBu73jZ(c={Q06-~F^X}tm?3wGD71bxH?{US?UA7wT6DOclD?QPo>eWV}9Mj^5-f}HuJ zDctO}zUw*krgv99j)xs&&Gu6tmxoW1+wgVC21q^wG7N=`pni&+C0#mN8_*>THxhw$ z^Vb4t_tWc%J%YP=w3x9Tp$@93zGy8R0P7C{TTxM@nLAwvss*|lNCaEkU7MEu zpfDi22dmdwgJIW zzxvTf^pfAs?eqkv)7+Su@d%Ej1=H;8q-QUbZgnruq-pS1bV5Hy;w)EHrIz;f9@>$ z_3BlZVY}uOt-Cd#yisW!8()Qy#*ZtJ(mmE-)?Bg0ctlLbSCf!t+)#q(OtKjT2-13P zs5w{9LU-F7Ar;qNzD+ZWw8Pu;&|wgLM(2el6v5kFdG0Z*BMm2!tM55>Y#zn469IqvEV7 zop#t9Q$MH3(wqts(8`O_%@s72iJ_#|&`2LNtDfbCdDAoHq!ilW|5u~@71*dam>%TS zzpX8s!PybAwhgxjNncx!kT==6e<4>3n% z1j(7*$8ksDsR@FWkLg_oUh`8ha%sz((vzn5W=Eaf$`(eOQvyc3>j-`h9uqBc{RiP7 zCjA%CBcc5Jk(ah8lFCe^1h(09=5vQ4%2$d&4D3;S@42c6^`<4o_Sgmo#HuS{eHRaqI4KNBUH zTxTI6&LX#FLp5rYmARopUhnyqe56?5%RFszvCFT_dyz7JM$=%BDT(u(c3Mx9qOIn~ z^pUTBeJab3wz~W-zIb`6YW7)<>579|hu@btweij2mgyLd0>H_*Mj(O6r8w!@af=NRsqGP+j*T)$pFsPet`5)QUnf7?bNVxc*QpKdQKDbSE>j5cZQObh z5!GncD_mPlO2aV@Iw1(+563KYe|X=!J03~n3qgaK&S3$8T2tk25O7tk5g-ZBi$?p zr~Otn&Wi|>0MHyOXOR;+ljesbFmWDyGc)2x_i7=eH2n=35In20w!{CY$75WKqY=^r z6mh9L%+_|!;*Hx#3GZ_M09|3}r^EbkU;n@sX}(}lxJ0PhY%tuG$IatqU?lHwEeGX8 z#icDi?k--lXA0bYa(Ui#J2~1I^VX=$DVf0SEW>5QxlZE-=^Li*2+e@o_`5#E)tsJO zlJ@PPvVs}iFZ}Z2&HLPb(^GYNbLXZ3g~LJqLRn^mk+xib!lOnlgRHb~$&j>i!7utl z<)x9YN~INh+1E#xmvej*pZS~{MEYK7hYG95GCc3z|!T(fHMa$5-zMcY|B$yd&CRyd0s_^IceW$jc))Bw>`fs z>I#%E5WDqN;n#d?Mpf#He-Udslvx+cm%myJ`AIziUiYutPwmYe+xwD*I-q(-kr~Tb z<6)nNJ+S4#CKDdH0mDi&fhE}=Sc5Y%@K*jcBP!#?uZT5g(CUYsVqBOzlr^UHZUnKBQC;F>@|!V6|V0gBeg6fc6B z!nq5(8+(gST}uc6^{*IaMJWJb>5Hz!Bwx4d31-9vHS9T;d1K6l@ zm$q~`?3uZy=-_j5JOjj)7Nr+%FFg8s?s%kPz&*{JtWZ+mjutylG|_B#^@h(llIF01 z5n}$XrDdH*EoXT?MUN@_Eet4k3K0G(d0cK8b^tB^*?PtW=S5k0Ydu{SyH6lorGIJ! z=Ca0lrMJ_<_ju0n2fkrXcOwq9D;2ciJ(>t9#Hw;E)EF!1B$8KV{cRSTBL{P2Aug5&AN}mm-jw1TCdyxb^(T{y^f z4@VCpg}dC#tF8AIsMaKbdSK&XJmBmEeE4xhHt{8z_hsQa8#4_aAl2^1Q+GfiI-4XH z1>LTxK5JSD(h*QdZW(GitO8pVix$?^C+z~P;Gw3PYEWJP_>`i`57nLmO4(~hR>V8E z-tTBS3rR2wcrGy!6q74%x3|JalCO`I_o3Oy-O%Z{b71thbr3jW3YI^ zh4QhRzPg}DZx6$5{bmC3XL$~})JChO=f$?IJ5Jl=ZajxT2LcW{#ZTW<``uwko0j}q z9V*&w%E+JJN2%UmEzaz~z>0AO?VWCpx2Lsx-qiNJ!J*+O*`$F!`?Kb!d+v zv;TcH{;zjBMy3R=LJ#cq-r6|^4u3@$&NI;TP(NRpv~MX6t<)RgE_34Vy!*PQ|LD62 zfw2X&8kU-upCLs4yzNe-L2(ZrH7aQpV#>!vG{W0#Qf8+lF2Sh%SuG#@g^PdVlPu?? zjoJ;9uAY6Ga%&r#zEp zc6-j2qa}+hDDDR9Q%6@>_X0Oxq#89U4TtM4BG0$0+8lz>I<0|8f6l&GmsCHB!=8mN zH*63HwMUHVgKEWK)$lX|yES)aAJrvUnXjPP^f4dI}=nObvs^q$#uHgkVwhnsDv1*?@43j_fc& za;&W+ovge~k3r;HsU?uwr4-f2sprw#a30o&x43QGas)0!3z!*5AwDlU)qUNYEQCwB z30t)pt*x+fd3{lfR(%d+f_rI|FEj?7b^NsZ9A}fHU=dn{#9dQ;q5bkE3HXtC3k5<4 z3o?R*;8{tR)3DWR(Tn|o#+2P1AH+hS4d8(Gj9>*dEnOo&2_vzfsH_?ydT}sNgYu(e z*=?NDIty6b~DH5xjHFW2*OiaVJp7ykOK| z!3nclw{y88iOyL;l>3P0ZX<(k&7XJUa-JU(-^mBNb{q@b>yJ)1s3F?&F1?=z#mNgV z_=brmKpB&O@M>`4tX;J$Uk+m6w$L7;HmJ#(VL~Aei>Q&FSJ#ff>3a)tY5JU-bFr`Z zT0=7!j0366{aL^IaV;AoIPzdSBr9{cR}nZQgicfrtLAaFJg;(*Q`rw^exd`PioiZNyM=F(c$>z+-F=C(fkpdcH- zN^g4m?QFX3PSjov?kA@TO)VBrUr#t0Y17O zFjr@9Qxh$hQBCsDg=|Xt%#p|+VLz_{^~4%@eza`Q-|X&0!l4G~X*MK}zg9aK+A7r+ zYnEck!m@n_`W9fC>#C9o&f8QDex}f;Xi7PsRK1s0pAJfJZyuH%T=eDthRd z*Vx5X^r=K%ua`*Xr#&}hoJ1m~ z)rZ4i8~`fRe%+#imiroL{v?pEg-uI%>18wPhC#gJj+ATx$J>nE#X-C9GfK6W)Gboa zF-wJ(CLI)(-uf-=g`o0`wfC4_cMw10oIs@%g8~9S0X5x;kx*pH{lpN+jmGSjheFx7 zR11ogkG{Jg@*4H(Y3q~jL#-*PDFKjM6ne-Hq>$aR4W*93x+g)lPjg_ppwJ`mWZ{KF z`^iaTF=+4hg|YJGK21{o*`(JpUNCJGy`|WiqLnqrHQMq*e>rr&PLH2E+9Ci0klA+U@;r-++T; z&DFUWeC>>3U5LN68)n41X|rbW=!LJ8zEc{T`M0;Z;R!CPb2z@<|IO5S9DzIc$W3UNE?lyaNfjd@skuCP7n@&jQhtzEv1TibseK_~MCMK~{`qc(noc zD%mr5gt)dJ1H0@I340FNM86Ic4Hr73`{6Ydr_Zq2=@mGm>WJXX%j$@>n2@I^UtSMV`<%gN=y@BGymhKEyz^>-Xa@ zBF4-}EpU1Jc7Wp*6l@J~9|{d)BSITf-d=UPtqtEojV%bKZr)AyYB-q;Oh|_g%Q%=Nt?vbCx8))2*zT6a?1H!t!ZSAbQ^0i)` zhQa#Cw)=d}WlOk)6}K+J%1kbIsLk!p!Lpkl+Y1}LHsE5TsIvomL6?wTcu~mWg8#Cf z-;?N6T3qv4)8=_1*K259XEdLtsaIe}6ApR_cJAO#={^bn)j@rxX$iVC4E+1b7GCv{ zE)8k@0P+A%3#Iy1`A}S2{~A)}8BNPvMsV4M)ulbS*U_{Fk~oJ-&`9!X!TwP~WlXs) z>aQ=5=jBbGYgvMR4G>-dw%<|iVMo(@q*lJALSWs{0xAUo;cUeI9S z{285C|K=sH7BZynWGVtYP%&cdX7HXi{Eti7ZJaaXB=o~|}=3#w?kxXMQ^I}D)`ml8Xx5L{WRvpUd7%4*aUDlpPj>i{1 zdK-m3MxxH=^y`jJUrT78d(%I8%^8FZg%Ee}E#=xKob~vyx?kQ#U?VRe@zz!l0o04* zw=4E2wE@+&6NQrmJHm1g>(b*cmun>K-WT&2IWI2s5H~AR)#Pg>FjB9J57RmWzv3S9 zP0a0es1**Hx^^5`|2SwCZMO9$a@cx& zeYgD%MnA|I-Wr4A@ra4w8DcD|MPd&FQqDU%D;d3^p^`NHVwnXW^VR;5%CAV~QY@l1 z?V~zyzL*VbX$*fSzOHK!Vf2;AP^)c%KGPSRz+_xyP(}miox4^6WLPNqRbrjD{G_L{gojgtuR*F6rYUR|Q zVYu@r&^jre&e{uzqT(&)J2!&`z7gSC_Q0Oy6FmUjcZ zeuDYRR0Q{-kgyuCnVG}<*Ij8IS8<0GsYD>(#9-*T^VJVu2yo}=MDwtE;?N`xIIDY| zg^iA$+%;7fOlkAPFJ=gJsRW}L-Goy+bk#p1^+MpS#LbKuLtKTesO$BF z?8kbIw>)(j4ysV|nOsuK4OaoNu##_#>i?^r?*pWkI;Xdji)A-781aN^OzQBx9m}KY zJnPYuj;Th@TSyoxkYXCi8VF2u!N-?6z9RNRZ)e%5DJrG&4xrB8K18qCy2sk z%ax*NV^B*N_CAVzyP|&&Z7E{HAzhv{ijSoR8c=YmA(?9BhijJ_M^7>oP6BFG_}Wmp zImP2DTKQ(Y4XFCzfqAAVkKG-B)~y*24izlv?~1rG6y&#%*gi0y9D2O(CS6RB856m` z@$%|YW6XAv@4W`Q^R)y$#$!fRJIt(^@~;RG@i9u-YjY639XGe{XK1r3Os#7gXkyen zcges=M)H?TP&Ec+%ge}vPT@x=_v>L~Xqx9Y5FhMPJCS6}tdWB}Nnx|EIVin?%IN8E zh%Oo7@lK}~lt$CaAPkSe*HvUm7?I-U8>?_bhvCU4A}~*tpxL6O49ksc1@B|L%)DX* zcRXhQ{e=hqPWqc2erPDi!}&d&Pt`(?Q@(1Dn*D6p~nMAhEDL5hGB z=PP^}_nRA=8dHwtANvGgsGZ-f@5?M$aUc>(hWnMqc;>gu2}F z7=J`3Z06NEM+@TiABu&1tP*1*J3ZAvlfT>I%+=ANiQ#2|t3hMwb1Nw!n1$N;rz$%& zIIn61_-%1aIUY-ZKFuhtIFp8bY!`3U%=@gr(W7a(+_`kP?q}NTg#qYsqZj?%P=?B( zS>!u!c!k<7piwnJ6UA>k^T9>=wrhdJ- zw`Jy~g>y%3QxyENP4*E=+q}IduFckfrvZ7q%hxVM)H*HWFq>nL8~TVyfRlxCpQps8 z8(zz^6D8dv-E?PKrvSCEtlj(e@>nS3W~}?#cc$ahV&*=6XwRkiO_Jd8!_y4xz|-2*lgz5A_^UV)R@?O(HV z&2{loJ>Xr2_q(~Vq%MosWq#uev#-vq1sfxJ7Tq2h`s$LE3LV;jiR)1hG%om=;$1;G_%ktI@6cC*n&7b+&b>pQ4~S#_(bvU z7T^N3i!xH)m`5y)w1vzrk}{RM%xR@9By)Qpm92X^53MX(bZO@Ju+6XUTFbrxlYM~h zu+ukoH#^o+wb@Q&-O>>WzNqrR_VxD;$yDC|^Gf{hX+F@Nu(e<10xrwIB#2w*i` KRf5Xpd;bsVSH)!j diff --git a/tests/tests_rafa/rua_ipe_roxo.R b/tests/tests_rafa/rua_ipe_roxo.R new file mode 100644 index 0000000..719ece4 --- /dev/null +++ b/tests/tests_rafa/rua_ipe_roxo.R @@ -0,0 +1,108 @@ +# # open input data +# data_path <- system.file("extdata/small_sample.csv", package = "geocodebr") +# input_df <- read.csv(data_path, encoding = 'Latin-1') +# +# campos <- geocodebr::listar_campos( +# logradouro = 'nm_logradouro', +# numero = 'Numero', +# cep = 'Cep', +# localidade = 'Bairro', +# municipio = 'nm_municipio', +# estado = 'nm_uf' +# ) +# +# df_geo <- geocodebr::geocode( +# enderecos = input_df, +# campos_endereco = campos, +# n_cores = 7, +# resultado_completo = T, +# verboso = T +# ) +# +# +# df_rafaF$lat |> nchar() |> summary() +# +# lapply(X=df_rafaF$lat, FUN=decimalplaces) |> unlist() |> summary() +# +# a <- subset(df_rafaF, nchar(lat) <= 6 ) +# +# +# filtered_cnefedf$lat |> nchar() |> summary() +# lapply(X=filtered_cnefedf$lat, FUN=decimalplaces) |> unlist() |> as.numeric() |> summary() +# +# +# +# +# +library(mapview) +library(sfheaders) + +sp_muni <- geobr::read_municipality(code_muni = 3550308) + + +filtered_cnefe_sp <- arrow::open_dataset( geocodebr::listar_dados_cache()[11] ) |> + dplyr::filter(estado == 'SP') |> + dplyr::filter(municipio == "SAO PAULO") |> + dplyr::filter(logradouro_sem_numero == "RUA IPE ROXO") |> + dplyr::collect() + +a <- subset(filtered_cnefe_sp, cep == "04896-360") +a <- subset(filtered_cnefe_sp, cep == "04896-360") + +table(a$logradouro_sem_numero) +#> RUA IPE ROXO +#> 243 + +a <- sfheaders::sf_point( + obj = a, + x = 'lon', + y = 'lat', + keep = TRUE +) +sf::st_crs(a) <- 4674 + +mapview::mapview(a, zcol='localidade') + sp_muni + +# table(a$localidade) +# table(a$logradouro_sem_numero) +# table(a$cep) +# +# a <- subset(filtered_cnefe_sp, localidade %like% "COLONIA") +# + +library(geocodebr) +library(mapview) + +df <- data.frame( + estado = 'sp', + municipio = 'sao paulo', + logradouro = 'rua ipe roxo', + numero = 1:150, + bairro = 'vargem grande', + cep = '04896-360' + ) + +sp_muni <- geobr::read_municipality(code_muni = 3550308) + +campos <- geocodebr::listar_campos( + logradouro = 'logradouro', + numero = 'numero', + cep = 'cep', + localidade = 'bairro', + municipio = 'municipio', + estado = 'estado' +) + +df_geo <- geocodebr::geocode( + enderecos = df, + campos_endereco = campos, + resultado_completo = T, + verboso = T, + resultado_sf = T +) +# nchar(df_geo$lat) +# df_geo + +mapview::mapview(df_geo, zcol='tipo_resultado') + sp_muni + +df_geo$lat