From c86c278aae53261e8d828f19e71fb890228f00e6 Mon Sep 17 00:00:00 2001 From: Adenor Date: Tue, 23 Nov 2021 22:27:13 -0300 Subject: [PATCH] A5da env5and6 arq45v6s --- my-styles.odt | Bin 0 -> 31284 bytes template_word.docx | Bin 0 -> 23305 bytes .../Tutorial_1_OrganizarDadosColetaKobo.Rmd | 420 ++++ .../Tutorial_2_Baixar _Inserir _Camadas.Rmd | 372 +++ .../Tutorial_4_Calculos de Porcentagem.Rmd | 352 +++ tutoriais/Tutorial_5_interpolaçao.Rmd | 53 + tutoriais/Tutorial_6_Macieira.Rmd | 301 +++ ...utorial_7_produzir arquivo formato TCC.Rmd | 105 + tutoriais/imagens sentinel.Rmd | 44 + tutoriais/teste_WRITE.Rmd | 181 ++ tutoriais/teste_WRITE.html | 2225 +++++++++++++++++ tutoriais/teste_WRITE.odt | Bin 0 -> 17087 bytes 12 files changed, 4053 insertions(+) create mode 100644 my-styles.odt create mode 100644 template_word.docx create mode 100644 tutoriais/Tutorial_1_OrganizarDadosColetaKobo.Rmd create mode 100644 tutoriais/Tutorial_2_Baixar _Inserir _Camadas.Rmd create mode 100644 tutoriais/Tutorial_4_Calculos de Porcentagem.Rmd create mode 100644 tutoriais/Tutorial_5_interpolaçao.Rmd create mode 100644 tutoriais/Tutorial_6_Macieira.Rmd create mode 100644 tutoriais/Tutorial_7_produzir arquivo formato TCC.Rmd create mode 100644 tutoriais/imagens sentinel.Rmd create mode 100644 tutoriais/teste_WRITE.Rmd create mode 100644 tutoriais/teste_WRITE.html create mode 100644 tutoriais/teste_WRITE.odt diff --git a/my-styles.odt b/my-styles.odt new file mode 100644 index 0000000000000000000000000000000000000000..1dd69c8e53ee23a57e19e480bab4d77804103f2c GIT binary patch literal 31284 zcmd>lbyOWsv*3l`39fEm-b&Zb#E#y|+Q3rZO3%T*Gx-Z;+!=bg6wS)CL>VLuGmw$t& ztEXpRZU7e4>c8Ui-}U%DCf2%^2Il|G9<6PyjBE|;?Ed>Q+S%*cJN#ep2>*?YCKkFz z26hYrCiWJ()^`8FE*u=(KY9d)|DV?@-*7B;%+i+;#qXTk-(Y<4 z2Lm*;E#+{tX=WE&fC@CjRSMdAM?|cWd|t^>=InNb2n#TxF7;IR%iqwNqV8X;dQ@b? zV#f7{G~Zh3oAXz`EiX3E5T@W?n)>EvQnxr+Qgdl1_|tKGGM}i;p>$3Gam%)mbkA|x zhT6^8sCC9RF=0t&WdumBjO2N`&OJ)gP_~+vpukZDEiNjaCoU< zKYQOVEi#h*ED0cauI}v9twEjk8Q&akoeP?XiN*DxPX)VL8|_tR8oogHcw^TyJy(aB z{!1WfoK70^ne0*PcbB*QSNe&!&s&vsjzZ=?#&eAxqxS2r2o*&uh6rEp&U<0?#hs5mc27d!GGXJl)NQSVf4Da1ta}@ z{5Ay0XS#D^5Jtt-1}uhz1v54be6& zd7zM}+&=W`Jl#T2do|ioTA1sF&>QMrxZ~~~Ncfrs7Z@9eUI}sVJWs^mTD=+^AE0gd zffIg<2tFtDJ8|m5Zl-vR)bDdR6{S;|q;4DM%W_mQQTfb0l*&*(4G9bL^`p0Vh1&tP0B7WSOZ;#iQ+x!GZ=?B>$)`H!C+7mbdi`@Aevw^HxU7y>(v~8eQ?{ z=L1V%JYwl;@LYNGKsd%3Bj>I+!iHlO*%pFHwmIE)!~RFq>{0TaTME%Y+)h)CNC zWWQs+iKJ4Ah$B&3b{Mt(?yHX)o>(jON_(f+a)2UfD-hHH8yqL440r7tMrDugLEz-||`c zb2}sea0~rksrZRwqS2pH?h`KjE6wR$I#N4e7Kd7g<-Xa|F@^&_GQ{-)X5uEMgv(B3_+aOIl2 z@5i~G>^K&b#$}EeKE1r&yv{q&e_IMq<*+gwn>j2^1BGJOpIrVO9Z5YtURk<44{aQ) zG=ODK&i}l)^T;-1Zg^Yhm?Y!%Hm^^=&1aV3lhH6%KV(sU;s_I%=C;HC)?=FN0(`kh z4ZQc%0+`tHv3TUb@bYG-IWRxrrKYx~;x*PJ?$R=}LRzpX-@ATm9?U3hv4gg<05(;} z%G~o@d|P|yU0+;R1xk~*Pwl>ZYdSENJ3*U=;L6SJ=YsBGev*KSk`hhEggTex+@Yt9 zSttKRPv==K`pg#DY>jYcpf`5M3_^5m!=W|0s`<|HtJtqFyd2+^<>4p&b$k2Tnx9!w zKRr_7+UZSS21PrT|D0$jsu@LB_`ze3*p!VkY5WPKa>(6Yq`R4u8B2CKaIP{Y9`)Ytt^Z&jBEZr%=5xSS}==OjNZ z!Np%}-T9I84LXLTok%H_U9^UkQl1|uBsY1j=%gY|*o@=KQE46){#v0yF{t;1ep!oB zP~WQ8MCju>gd?c(H%t3D^oPh}d)l!Nn^Gpr&#`8Y-({eQd6Nq^bcQUZ8kRU>&KhfS zch+B(TdSY-?AD!)(>R_x>x^dtT9wqN%##O+yVy5-+0tyV#OBZ>*TlB*k&4YH0WGOh z!k(xQp4iG$)#k&Qa?}uq`__g%uBJu9b&Tj!6(@W(h7RgFGb8jF+r>sNHxrnjO?Nv%?NvNbQ++g zo?kHqxrGvU@dYnH@U~DgO0bq0izvBHAD3hs#ZhX07v03G@9%?bOzowe_^A5X&(bkhN$`OtEg^x_gRAIiP{ z%s$ooX&RDDzF~JQqfMy;^ttUyfQL<Xo- z`OWS1b(_+i0bwHN!k6-y5`izGM>h9jLjGPDM!-mw}$?GAAcQo0mIOokicibZucgJ`fJ}A?58D zidi4eSiSOx{R^TKkTD2n3g=R@a4FmEH2#SG@XC!BPu<~`ZAa?Ox1cctZjD$6G{PB=;w*gS8StHYz@^s?i~b5P1S zGC1PM8`D^Kk)zwN&q1Y6e|~AXWfc-f^33skr6rnG3Vj35b8Za#6A)^L3`{P=myU?K zuZ2Jo@WGbhW|dFFjuP|=FG?#GvnFGy4sJ{nt4t^xes!W4@D7ls#UvHhTl3WcJ7MHp zW!1CHn8B59m#!l)#ip__DB9*3z7a30H`74vfF z6U!eYERyf!XLEL~-ThM&ztz7(1V^hQ!a z#iZlYtYpRIU@=ljH4dGoO(dBs9fEAJTB6JH;r*71(`-rb);!Bd;>V_2vtclHQ2D&s z;f-T-w4J{)x*b+|IZk!*pS=Aur2veaJ$(jGlEs+*b4u}_i`m5Kg8j6Q0KohGzW)4W z>|pWRQrE=Xj=}yvv-H-MM!|A2qKF8%2w)IIaWSEv;Itk9fB?XO=jDK&m%&2--~&KT z>X$GX8MzRTfUvNHgo>8Dn1HgZn7V?rnyQ+Jy0x0-Z;jtZYKFFY>WX?=>bBadx>`E= zIvS>WnjR*qdV2bXCgv7~y2eIk7RH7qre=ob4yLy63u`+QeLD+NcMAjXLetg8)Yitq z*1^@**~`_z&coTk)zwwa;*W__powR!y?daIR}@z-3 z1(%f7fOhtNe>}qeI0pZ54-fK6@ORD*cg>6T^z-%c@elS74h`}D6CUIr5*q3s78eqe z5*-o{8y=Dz5u6Ymo*Lzw79E_K6d4;6laP=cpPZH&ACsOMpPrT)m{1U!Q5}<35T4zT zo?VcdTbfkZkQ44*5FePG7N4D#T$UMIn;DvwnVpxFR+1B6oR!j$9oAT!oSl`GlV6fw zmS0$0UXq_(R-9K>R+?K{S6W_OR@+=xnpIt1+EkWPS6$XpSK8WKR##h7*Vxw3R8!y5 z-dtbP)?C-t+LBz}lV07QQ`eu}Fp}3iR?^U2-r8H*I#SX()6~`-GZ+~=7?m`fP%xEO zK3iJ7P+7ZJ-MrG+x!zvcHBs6%Th}#E-#y&c-PhhX)Ht-*F}dC{vDH4g)l;6-Tb({w zpWD+`*VEoQ)LFZkoqk$VJJM6p*VEY7-9Fq^HQd`eG2AixxA~yAV}GWjx2LyI_P=D{p-~N%2;lE?k-N3Hlsrl)V-l?&XrSa~Wsj=nB-sRcR*_oM{xy9L~)us8_ z)up+WmF51${bAt6?CMV6M(^M4!SUU(>4T}2)8)mjqou=}{iVU}mD$bp)kEOSWncgH z#@g}L%<1mh*#Yo!d;I!fWoLVPd-rhXczgfo^k8rI_;B~+_;}~!>geoh=W^!|bZ`iI z0G;eyoS)wB?A~5%fi6#0y$zDi?WoPhU*l*NVk ze>pFou6aq}E#Lz#XiIwpbg3X1k_h3mH(XGrsZJTyQ3#&=qr?Te;vmeF1t^Dt(4s%p z_&jV1r0e3b(R`k{%AKO*o9~OVu!(Ne+W?slZrFSMu86Sn@q8iBNYmzYc&VbNLTP@9v()Zb#f;$8eqG&V)~n7T@-dZ( zNjd%Is`2-4&(J9CWaQN3u zqN=lNdJxKVDQVY+?C~E<=e-GcS{4G*a6Q3#nKuj0KN^Vl2Kb7 z9~x`UepmOpwD`&{_s4zEJCRBFTii4?@6dX*>kaRmyHhKZ7EO@IWuCIfFwv&rjj^JL zw-BZU5yEkaLJqcqhk9 zL&(D3(l}x;ew&zvkw^PFT#v_=`6mfT>LH83<5mZe2ANnIcg3k>=WpCU++R({^0($w^0zVz7SztwO4Vctzh{S&E$8h?G`E-i&{`)> ziIQnZiQG7}&|Ln=Os`;Rp*MTq_GugA<1|S{5ApG9ew})V0oL3O2i0`TbbUHZdU?B< z@cgUVh`tsi=?`p}3@;j3tCQ!d`VZQVHt3+XGCJVoj7f1hr%`%Q`43TpUj}TT;#n-O zAz|^giJvZm@-}fMft;G0(KH$urdqELm8=dNezAYz-O&j>5Fe~Wjpz&NV2*{B2FYxU zJi|{s{W!dOD!(DoU17Jwyxjg0e^GZ{rDy2F46Vs!Wyr+Do8WA2bVZD9P9e%TtY7v&*3uz3aHv{q8OTQ zD82*_O46ssa3%^A)Qs(BHXJHkFdS5oB8iqNBrlE=EBp7eO{}7ZQu@^7R6!B#kO^%m z_kb|g4QAYUm-(|mDRu#Se##F+v<2-h?PSJbL_4LmEEx}oN*oG(m@oUZ9VN5b(oIFhIvbZeOrSYTBJ4lu;$cJZ71qIcSS}XcDRXbJ|cshbFJPy zsqT`p9oQiN9Rj<3ekyQzhvd2B=_nb>Cqsbdj(=L`5pQFr!9Y65{9BWBzbs-7U(!t5 z7gTo8Qe8@ORC(J}-|v(7eah$o1pSxzziWW+-`4-o?@qC!L0Rj|($YMxoLq{-{2F|g4tT|d265fJvn^u$nwv9_sYbqdSr?X!mL3ecMIW`&zFIn+?F1v5LrWEm{XoLLgDenlW#Th^Xd7yXq{B#rXIIMF$Vzs2p{PTC8+Iy9-xl1)<2GK zA#UxENZO&NDNZ1Sd|coFUwoEj0r%VLu=iO~ZQsmF_fv{eLES@3WCyl;$#ikE3av;PE7@9~y0(mjB=jKy+wMNo z)eUCM0djdt2TZvb56xU_Y|ZDhs);1~bku9&aB1X{frMNTq1k$D49-0I-&%a%1a5e;&S zPJK+mD5XmzksotlsZ11Wck&3w#p`9SN!uv+|bG5~Z zpSBk`lB>5Z6oP*)`)u1)VY54?!aG2W8q-v3+6htG-~T}L%(^7lhmkhB$i*R64hoB) z+4!;MA3^wXFPHI{iQzPMU835ke#azCC)*3LrH}{ z$8iPwIrzYuK(Q{GVMGhnwOX+57EqPgl`9FFepS4tqnch|B)TUN8#MmtGgEzwa9Rah zeT#KQbN{4_l5+sGWgYTW3uyf7&&fG|hF5p_`?T@`0!l~P^|ypNgMw0(T!Pq0LwSOQ zS0$O(o6HGc&d;fJ1u_St6S|P-TL`G=+atbLg{KRNVddm1w;2ZbWbJ$?rAgH6!RyUv zCOx*u2_4J-2Wxs)PuH)q=%bP${1U}=*`DgDftw{mK0=sDgT+d2b} z(~&PsT(HTf)_>)+W6wph46d?Ww3FRZ<4#D(EV{1)g71oLmW6v@1|~VIPF0??zWZMB zcCq;^1HGba$l=C`>F0seR`WklWaU3KdPH<-!o0mU(?nL-CUM{d%JviBzoq!Ya}BTG z;|&RTymBYwp}$yfBAmGM>XEOHa%t+JSaKT?89!L@eC1;3s}@b;JJrO{yM{kPx+ez>|W(l`a#PIe9V}8dWR%f+kQlxt7r;A*wsd90xeO=BPxo_*+!H0N?mkZJzKP zcEI|?oaSSugg;YP^_d&QY%U7tSDQ%=IJZpHF(|5Hwn{S3taMu>adF%E>vGsU%<~-u+%Fvh-Vm`){L5uQ)5kj4q{}c6>H7k4QILGAfGL2UUNG^!P!u{k zpg+gY@HCDi1!)!8y=-svxJKeqAAX3Zw62h3Zh z0p6x;;<0E|ea^~KnfjNM5a=|KZ4-H`bv;QuApWZLKWr|2gq+6MeMv-ng?Gh%I$s3K zyhylEk2MWazlqQB%ULXcCbQ6#OBt9%QqcVf>E?=GsRLRflS4JjTpYUK2mnPx81TWI^ytjHKbvDq2o6N37(yusN4k||1 zFKdV*T*2PSLS@ic+cb@vO7)lmPLM~$49DugoVk8L4{;xFXOpd(4qL~G$N^WNoi`{* zr&t&NhE&}bHz=o_bNq`DL0lHbBQo|$b*rE) z>6zCE9^oYC6e2X^CAYqcTuv?4XSI%|P?HwF0gq4_Q*7OVR;O2}nJF61cFs(scy#`IGw~pRnJEVC@ zq3AP;jqc?1sV#81|FmXJYG@pRoed3B5~r(g;G^JK2pN^uRoFaHv!#>(l;~M#Sqy`O z{(vM6wKjc73YmYiOu=qjYPjybBmW> zTw@vi8e?ph{QHYP1uL=R+w;~nNq<+77)<#bKMy$3LALk$Umb~^V;t|)cUVq5)e3dE z9h5h*l&b7iB0n!X3eG0j7r3~qI4XEK%u z1bRMnI`5N$uCcr%=Piep$-+}T3~bKP7p7#dvu2a;x=Jpf7!5&p#{iR z%#4+IHTsvRC2zk_2=Y@+9CNm&N+raUjCOE06bu0q8722?Zv=ElR15DWm&mRHu4Q32 z8Si2{l3(gZP06Z`Qa-XNMZfwgPL)}DR>jjBf2ldB2*X;hLK#(IO_HCT!i4>?H0t6F zsgm|xHiNs>`G5!A8VC*6_Nl_2FL)iJFdr3>={PQ-U z^~02!d)d6UK*>um%1blyngzd*Q-Pm-JbAWpanJaXf~4eW8wG4fBe~W_r<43i`80Rx z+w36%`{5gbt}+6&9cN?twzb%9%lO{U#cwy=BKcPz2 zI_HZhD*Q_(U$|=;%w|79&-trz>eSiPGvo&4aRrOXkw#zOri8X2>^3n|8|{!OMu;o5 znA+>N=dU~pSx)_APNcx1i!V5nXkBP2Q%xaL?k)g)GfH@&3k=$eC@|9;kN*pzzp10C zjP#7yDk+b^a{rsOw>lP{we$OHed|h)q7~`9as%pd9Q*I_{Et|*!W8K88CM;+leMl( zNCh=?Q04{FmWbvn9W`uXrZj3FRxE`sReCI@NO0okbwReprl5B5Q$xfRnduDU%GJ8| zz_f;y1o|;Kv{OsB zxf10~?LpZNmJHB2NEnWZUFeP7Epm~T*vkGDD*+*|oxhj=vVnbYEFxkn{x&HdBt0g5-o&aZ$CTs`i(z5!eQP`lsh3e3!&@)KlzaQG)JL!35|j0>Ts_82^_- zG$8ANp1>2)j%$Le_h!_bK8%kX&Cc?ZZ;$5U99QME;-YOc zmK88Tve9E(b?t=r%(17;(I(tKxmBs1c9_>vBXOke@zfxA{=!;67k8g5cUZfAU8Zl& zw_CBL+}tX=?h@uJkA?H8v~Yu|v2JMq*8eGC@{q~y2h~j-S}dMhEoQC#|?zegqbn|8FLRI*to$s(&nxpf9zYV#y9 zvl0@17m!bJn_Ks<^$s2Cb8W_W4#uS6?>JJsbe{^Y2w)UkB>xn*6?Xkv{{?QQW{hvd zOd5VdkXjn>A!k!ORcN?a&MTlsBOew^q9oPL3G)kPelN&r!Lfd?BwE{}h!}1pGPt(9>>rvhwt3u(<%*faPA=H7}&rpLrZ>m{Xl{+dMn$Uxh%UWf{IqkFNH; zOAuR3220GUXP0RlGH!iCQvvo}?MxsZQFHB2SFg^5%G`jI6_4)5Cm**qh9=^T6}@)0 zX~{+A<163cp4D*aa!V;0UZ%c|?@B;LnPTaT+|R&{jvEd0&Yaee{XV`v95N^M=QczR zA;Xx`PiWuDrSdR5Gw;4WGhDBF0haJ_-&bO1nOW0UU!~m!J11XzstWZe5XEr7vo2yo zWtghKJ72hm3>xAkH_Nt7j#ov6i-Z`Qu-De+FP{G0iC!_@!NZ&Q`i-|;rmAofwc3{)*1V=YndW2#0%QkEPh^-7)E{9P8&JL z!;tp*QS0F%NrQk6AKk2g&ujU?llh+fqjQWq1M!Rmt0~NdI^2gPYNHNXSmMLSU7I2xVhQM&_O{B6Jl=dOKEOx*6=l!`a9t8h}Im&#jx)O-vlBevPpdYhx z2Po@*taayi;JLwzN^r1yl9s&_!mWk{{;#KvHFd+XcGsYlR#`biLpp_&c-G>TwaV4C zAl}07?cd`IDOK6P-NYJo-SZ^1PHBpDem4@IP{N^|nS~vZAvqez0a6>vZvrO-2|=ab zM<(pF5B>tHQYmAZg{4;CT9#)Y{44P5Q`!Trd7&ys&Pdq;h6aNVu0Qn9w^rI1OZBSg zb$8tM=)Bc8+;A`HF8K70Hq>H|Astu&sc`}xrZU6csPw{uvXmD-}$4}~G zN5MZT9DgvNnLFU~D5Kyz&En&O>aVZZva#vQ0R4EbPp3ov2HL?t#se}ArHO?9j9Nlc zA?SOei^&s(rv8xNPrXDG&r^xRMt57#g&G~);?JPI6Y=D6tzI&t8tYT%X5mguPrQV!RM@mZoV8 z!p+u{l(2WqrZe?(q%)aW@>d$g%2_kr<(ZzCQVbet`{5G&g=C@W-d$^%*Jic1f3@O~ zKFjh`p%Vr|-dWl}7Vf8{ z@I@)p&6Y_yI==Rxw{?{IoXh^Drz@W6K#_%0qWW`Jm~V+;9xzd)6m#Xl{1Zi}aD!Q` z#J6X%WQ-zPmt<^C9Lvw2PR#k5?yb2ovH3UAm-}-l?+&av?g(PB#AG>pstFisEndoo zaozep-R}=`;iu{i5h*R*2VF1N-Oo!xa=yl9)RTDJe9^@Cdd``4`f#(>jY%Zk!6?Hg zgLFA18-(4kINY!hamqw@g_>!VgRlsZ=>pBZ)OVx)_?4?SLZ^B!bf@@MW%r9$a2bjK z*R9PC_&2idDE9cUr49G}S~sE)PY4sx;ZgB03 zR_W71CTvP*_v<*&q8$K*bfXKrG{P9f5wbZ$4X`|0z!k*V@nk?JOv3U##hOIryb~eR zW#)|T5FORDsnzjcPjH16q9gY#DN1n0*woR#_}iR7BGyyR#kqBubg*z}B0KVx8LgOs zX7S>K()@4E*l&jGP?t~D5mlnru=jBOjM0VIgx>vM)Ee~nI~0?(m3tVWhd243FrTa@ z$KykXBlzDcb2juA`pT#^d??XXa09+fZ?0WY<(3wRbB>X|Z6JQN6?mFf_2WjJ5tZiR zd;TTZ{jD#XpZnEaYs?J8JE|x?(gWUGIpe$#Hf)9h_DGkk7((veu5h3i-{T{}#~d_g z8F&&L1hS7Jh%AGYhXzvRX+fbx2~)KSXb&^QRER45UmJ=@q6t!A=p7EkC!_sHhU}!a zM06D$mn*O5!>*{pOrJ2?*Q!uO8IpLsM4X#5c}hD1d02dj_zU&@DK46|c?(({?L62iFMS{RFcpFKz&EJBP7qZ|NE3d7n-2*Y zd&Y#|ZX0>%LM&2?d|UUAkMQFO6JO3yjA=9?_PB;mP`Dr+^l|NFzD`!HSJqFyH{P8jx*S&r!8(_;%W?|bMmtZ^E2`b z{QKA!C>1cReK;8KlX`Ls+%o{)T1?dr0H7y*zagCS`5eKOpY4TJ>=mpG?VWUO4FLT5 zR=*91#NUqu{4~(jcd;2V;06Hbi2oHSaI)5Fg)f>xxzVsOi(}&pKiFZ<8cjDT_pJqh zxq>HG%m)8Cf}Nyx&QQN@IVx=D*QW~hJ$Tk)q8>-qXn40Cc&X2?AM9K6Ok0<}MIOy~ zJlc%kK_E)(xcpM=Eb-KgL|$)miLKw<6>a33@LC;dya2_zKaHd%dSzPi?X5UH+&-UG zR(6hnnFfd)`I18rvGhkX9}*itWYzc%w-wssE6Uun0J0lCA2+6xTNXg>5W_;wNjy?bQ* z0)|ic2<@sFtS?!ug-!yGZ$P-asW<7vp_u)1o7ZhV(WK6|TncbJ6F|?2W>=VjuLU3S z3o++qV8je|$9X5{+>5|%g7wlk?}?Ia4S9k4pFUJRexLzZ2x(=(@VfU16x%96h{Lo#*}wj?)HAwj@I&EZP|uxAQ`&g3I3B z$+$Yfb`_r-*iumRT`U*C=NABims;Lr6MPqK? zMrX`?et|2qoaP86Wp%cL103_8-Wgbue#1T=)SVvd2lvX{s%%e5ipWy1N{};yV67yvKe`7OR^j5YoWE%b4Dp|4s>zf~xagG#2v)hp+>(h#}rB#5>?0s{!C5KqQ8%sVzRao3f*^wm|*zu2-q1}m!I zM5OjS5yQmkzaaXl1@w?*+`aA=7WkIa!AL&{LjWVO(fixMn(*M_^{$0C84~*AlNbmk zfa5d4yL{JsN{7Hm(Ud@ncSe>g{*n1g-Fp{IUR!_rxc^GQ&=~~`I9aP6|Hd~uP@gkN z+O7<)@a|XxzqEK~g2=C@z@0<3yZ66rldY!62`KvTf|jpN8;7sFK!T29dE-k zPgNr8A)6X{f3@MDUfePaB`v^8QH90p4B8u;w(@+KI<2g6lKkei^fUKKyo09^isfB4 z@^DC6f3Sz?NPmOtPH=m`at(G*xM-LhAsH>bB5}k1^)Ph?h64-~#REoI|FK}Y#=@7= z_jg0-3U1KRETipuAId5!ORD$O+wecM3+>;k9&g#}7T7-pzWb-!CGVLRg$^DMmy6Tw z7OPPZ_Bv>;3v}nv!7~K9nZ2xDx0XHhb?;h=ccVYit$^JtFALUR1U9L}{%-5#xy9*0%_xqjn z@koFl-~Ta+aP3u|b`U4{%L?Qrux{}hYTSRgJ=pDTtW*HT?Vmb2%dWmMUOau39QEi;a#<( zds)hk=ur;3x6(FnBQ693t25sgasTR~PxGkmUa|%}4-7oX^gK;~?z9~oG%5v`*g0WC zK~@|$EehWVDT?>EyDI0>PZA?$YA;@Ae!KQCS;ya?1gUQ`w};)W4*eL zP0R_;{u^svfp|h0oq-=Dl$*K}%U%h~RL-n6_?OaGT*2i0kOr~Ii z)*{pn<=m+zQ&Fa|Qtpg_C}4VDo7Mn~y7J)7w>XOi9#K1^zLdFrM;<1`zo|am2Cq z@rkfGji2L+a>$2(U8Ukbuhw6?<7-f)oa647MM>d#<6g+l5;0^&k~%8|QHD(JJ@wdl z6>-}xW~qSmS6*8BW0_~C0|@iT4@SIrlAnJ}>~CmwyhOc$ROipo->hFX{XpM=j&ZC@ ztv^f;xUecF`1V&!PF%XK`2DTN1BeDEE;|+sx}1`a`?WrePFCh5K3WJv^eSZRIF_MK z&I0;c_Ro*mCV&N81g>P{yi8v4{qHJHqq@uv!jsw7=Qt&z8*f~fR zS}(t{wEA*Dt@mkP`(SBqu%4Lv5=&oqooD27Dx%!EqMZ8g^jEQ(+(EQ1b4Xgo3xs39 zjD3nj?bYy7lrr<5ihhwX;ra7nQDJY`0#rY<3Fg?zg5~3f7l4_hH*|nS<+k`a7Td*b zZQZW(inZlkFQVqB5lPex9l{m-(QmxW{0Zz6^-6(S{Xb4~p6+u3@xUIG#k~kl=b{I_ zOcpjK;ahix9REi_cY2!m`t(Jy)pUiS*0fsgliiSMkM=$zr>S1UnX8rjsW=OBeLD12 z+62Y+k_-hV=hj%o1Y;R{oCGDp1Lkr6--mYOKG?lIZc?t-GUdwU3!BAHjF6v-WXT_mMA)ZHa|)d6YgOq$MT}f+x={l z>*h{j>N8^AWpSd(D>k7845kqI=r=2xm59IS?y2hvP{oGa$w zKh-m{a>%5#9@LUwE>|Bs>L#IdVYpWPcoQ&ikiXEUVXujBl`=Agwkkebt`=~Lsb9gw z6`^C7Ifi12Na3DB?w)%7UW*HKNm4yEi}m?n^l*vlv*AFljx_l9&$L@5ZRGDR(tHX@ zb-T=bDB%#Tg8ilEjk5+_0egGG)nQMbbuL@W^<%4?lJuRLPqc@aC}8}XV5 z<;9@5`?mZ|G*Pzk?Ndy8vJu7)AF}y9_$1GVYAUfuq>8(T8ip%nyvYn+Nq81jg008k z1V4dJ6<>jwwNCtNjI=jRHR%JLFKL~(f$rbKdoQv$AZaH%k7+$f1{C_C@$zMatK$hQ zFR3=BLZ<)X2Jt6+YyZjGSD2`GWW6{5k$?lIdCe7@gZ(2dcgR%0o*G6;K=Ur}L=%uN z1L!=se4vF04vF>#avO*Sp*UDxj0$fucrOs7LD` z-uYfsPgyN|*wEe$*H~HoZd#lo+V%GBi{sZt1r%Tt3kxx2dJ_xT&WK6=Htq_Ce%14> z2y|_MIYLH(tj!3eua{3is-8i9NAKXW*Rp{56hH90GQLW>ln-kpGcY6mj%G#vSsfgJ zcq9m0)cduO@k@VAP^b^O2i-~TDx<*gE<#tI`tczNcO^;2Y z_OSxFDMLhb@Xyw%qE*%IX3kT$TeRD$xi~k+;k&clOfP*OdE76Vg-h33G@JL|gL~(& zGVm_lsT24cbs*cPe4!s3F=v2vVprJJ0-s7T$#3rP2*?*@CE_!HF+wsX;>QY{H;$PeQ3_tYI}|}9&W7& zE~Y4WRI6@ozxcKkRija}>K4f@NNNXICKaQfc1Y`u$~r^pQYjZvuyxf88~kLb zwM>lGG?ES+(m<@6vQA#?T30IIz)jdBa9Nz<(lWZqGU?R5eq9^2J)Px)ZK%BqY!A#@ z_x<(<69*Rp3nv4GwOPzrQ|0lBme=4+2rj0t5Yd5pc(cCn(gTuCF84BNSq!`b>(ba? zXIYcpXZA#^Tk(h3(M`4;)`DgRh?_vXRv5f5Ex{1u0*q(AzIT=JWp_xLOwbjWWj+0~ z7QKO>N6`iO0o{_;Mc5!_u?Rl;?FpZPi4DM7ZVNsIY!aUH4I)&L-Sj7)TM$G-)sb54 zUFNaj`q^dUQ22$j%=tk1I5iao;)r?iCV&37A;pYa6e0ClNxExW8*Pdk_r-Ku^Nbrs zjxhd-bZ3Ur0-7&xn_7&;Zn8m{>Z^pnVt5;KH0VkbLD9d{23nAJ%00W zdn+Rj-+f`#bOyV%l3Oti@Kz zMfY1Ud*~vo$EAm>BNM(Vs=`$xAmCU&5k83D=jCUX&U$;Evn(fegejC-gycCN)fLVM zoI$%Y`PNH^h3X1-=G|2!6TUP%i>1)Y^gh-F_`0~6TXoq^6~o%SF{(txqW#SN^Kx|K zVl6&Cl^R}K`R0x_S#E;8-P3kG4zCHtHr{oW`eCq%j3Sto8>G4=UEJpRhx|e{c2U$L zgVu2+(ouxMA<}G4lyFhsBhVZbp31wEINGU=4e;_>DXP}^juY$!Y_zKEFp^$R%AGIY_v;xH_v!&`SaFFgL-*&4RuP#mEtZFPSqoDnH&w(jL50b+>n zw2OIp&B}wDR`NxAy8QBK*Ir&+HhQo0XNpr{S|za@i|X%#V@IkY1^fZl;@N#Cqqw;j z`u#ACE$1|L!pS^aTK#+v1$=hWd$W3vqFTmMQW`&Xfp!roWA?kF1YQ5^C1hzTgT{nYlW6X`8u^s}WG zid)+kWk^^DLQ6}7PGn7&?_W*l86Q*#J(W!U5-NdXJ(tqN{}|l z%^V%&XG_lgkJjD-Dvqt|7HtUb5G=R_g1bwQ;0_4{Yuw#~OOOD;9fG?y?iM^qaJS%2 z2W_0&eD9wB$otNHZ@lp~V?Y;GYwg`tyVveobJm(*pQNYbh=5se*>SmtM0$9Rnk1Vg zE14iK(E1D3g}pTpKrMfmt8d;spb?Df)!{?L+N8+(ZQaOq;xdMguolm~liM4!#rDEy zQO(#H)bHMK*+MGeD_ee;=(<`<$@2wsugOXCqPX0ViLdpr;$?Q%%w> z^2z>$LinS>^#Rk8x5&0pI>((KF>hHsU(QUfY@-^H%UI2crgR`>$rQ1zwaNa<`#E%C zoXej8{9Gc-Xbj_D=uBrOI`|zRXbx131SKMrh-ayxB5{K&=9dN)O%EJaes$BUwG(8=T=T6JfcjM;!!#Xo2fS@65FN&%USXRaIxq>&64r36BH)uzj+Q{i!ayUC&BYoU^J#h}bi;ROWjj%vZ+F zeoxE-I%LS8SJ{Yn9USM!tNUhgV0)*>&p?Fd#I7G-6d{CFO1njYxxM|SS}ya8yjgXk z7xXuLCrpLQY(P(+nTrkM@p%XjT^$y> zz$SQ?T|7&43wM}K62u1|2(hbE^nU~5S*tFei)Mpi(MpRo;8!_uVuw+l1y zD%w7{+ad5M6#LKef#}k;mDmU4CXc;&m1Guru>y$=sT9TVrCgOUzyEMp4souk%h*|x ztTugk+jVpZY@L=!cqPw|S!zeF2_um1q!8i{!8|1_o;jEDhwuL&E3enU&qrp|LkF}0 z7Xize7uqyhFsi<`Yf5Gy>@yH?mLz6dpEKK(OAJ8oAbPDQ4SNu2B#>=BiFS_%!c85d zxg2L zIX^{psVlT}aTX3~PndCSFrv0k^{GilFAB{fW6DQB769$`Wiq@q2Yb@Wg7O%6L~5YeiX@P1dGtX~w9*SEN1Q3F-sQBo%JD&r zfbqM6zednxsUdO(5t7wSKioB) zG(FjTQr6OhV0#eMXglhq>JnysDBi3|4JucrFi4e>P-XY@;*_uGs*uQIx%${z z?pUeMglASNhMxB>dWgomrLO zZX|5JO$&%z08_OMl{2b3eyZe5hm!9y=RdXdbFbawzmLu;qrYrr35ov@-DkvyWa%1V zdO|L!e)UueM%F14u-gom&{yF1wTC+qacS$auveM82|lDbG|x=jpcmbXba=&RgW4J} zAa&*&$who9khys(wAQJqr47j6v&4>CJNHnI+F*alAn8gwZBu~Fo?Rmx@jZGP;eGLV z&?~Tn!4A`U+w!olK7CFUwerKkhglAFdw>A|bRdqEH1L>-HWwHqFGd2nniwcTe^fXy=bxyfm z8KrjI2$NOV<&GzTXb}297sFPo^%SkSkSA4*PIuWRo}+=TxtWBJ89Sy;)66SfGmQ|f z9c_<^-<;hdZEv$LM$oi_0OE)}10foPt|x2pgm8+;UxN-02v7qFOT>a3i1>E37JK4W zoO+B!2aZ$=5rJ9V)qWqFpGa6xXnE?mw*?ZJt`=9P0mF9k;6tjenlqsDx+i|r%#gb+ z!R1GZAcOmm*>*=>phJ}W(mD=-`Ah03g-AS(!VhT>9X_*~PtJlmJvHqkNm;{2f=Szs zrc0wqsFf}=pUl2>J36ji3O2`PIgthDhz~Gx`D%Mvup6gH+oO|7xhta%_;7c9xUgG! zWl@94`zhIW?pPRKU*BgeS775ZVXXK(V@b=sOl=g62(_x~+Fs2y$(BqVex+&NQDE>k zy^F~k{Mps^dH^tsmDxmQA;ekKP2U6!2B}1R!rx}+-=OCyOkDZ0W1=cXJ;l=xm|&Y| z^$l^(AUHZn2qF0J_$-{Zz!X}k@Lgo<;BIAbwYjmrN{~FHA5NbBM4-yAKMoYeo`tbABu0wzeV}EGCj7mZ}kc& zwfjBcRvg=eU(ZPV{+N#*Qny**X}c(Yb5D5GTvfJ;0TEPO#$0!usZsP0ecz6MQiQOy z;eIkB1iadOkE*o-`Ecg0<=do*QFYHZnepJWaro$-f8&*L-I67h)=5yQS;1{JXUcRc zR_?&Dy2<|Ds0FP?cOYbCAtb>bso0J5{Yo)MVUoj>2UfBGw~ft@JK)BlcwY4_E`Pn) zgs1Y{rwZkj-8(l<&I3^G0qS}R^2>(MW4=mYv(5s>CO$03+g%W5Sw@E0)UF(V)|oIt zEzvyXH4gD{-@W;Id%7oP8wNHb|vCI>ZZqk;o+UE1(~#d9-{SGhaB1&nw^|!r-YGP}kLZ^PVb7Q@2B_T!qY1 zh;uv5hiY$DiJJ3mR&-6>$#LJi?D({E^zwsM&rCugWb_(puk=@!!K_9;hKr|d@%3yV zDP5oQ;z>RhqWPjkXOl&r%Qrl$yzCzd0}Ujz>5n4J9StL#Vq9nQZ`QdHxvwU~gz$%k zBB*qeuk!; zQlWCkujsv*j`IQb9Cyc|P&#Q0y`TQ2r_(F2;vDk~zxyu9%iz5Evg;5`#>k5zcV%!8 z!b6_-op;wAKi5!JAp-f3*cTzcwe6>St6w*$mfmW-*D;-shMAp3H*d*zmgo+X-cB-D zlxa8c^B7?oUHGvA=dWtEy+(BVQNgMGON->mhHtY59P7MJrRqo6J@KMbozI2ZG!2C! zB9q&jYT;&^eMbAF#W;TEa1Rg{TVQSIQ0O$fXzZu_&3XynGAA?ILSmSvXCs zL=h}d#R(k-^3dxcvBG~K;XO@RV6m+w@*r|A<7WlQM`p+i4+28KP*^SZ^a=t+$X1v9 z@3basIFMIO0|E!{Nj8Ac}hKcX%Fd*@z{mS2;X=kEFaz%eE5 zEfh~-P4kt??DTrELI*m(_t_nX0=)jGP1pv_UY>Mt@1gVsC<4@@@-m}{^ZuH4jjUbh z`pPvD5)4IN8bP6L>PC-`bVm^aH_sUNttu(ih0xk#5;|X#8crb1T3_}L@l#jUngB#i zxkvn|XJ`&>*&ZediWrjZynW=Tx$yheei$3Kq1xfYQ*-Z=1WuO5P=_8R;E-w`Kj~H> zGnp8Q{NeIp(s>JPv8I;}%&qqkw8Kp(jh0GLkTC>LPyY0GNwEbj7sY-E(EeFY1H zpQ6l_;gQ*AOo^on1Na!*7KL}9jp#utSU&zqwe&NdE12_=?UuF+_MCMqcYkCNY^b(m zWDx_!*+qFT&xhN{t|(gh-8VGKBg)*T%5=g3Y5H5n%89IJ6^mUWUwdRezBTN~xa*^B zf(49gJqV7tf6O>{(EKsZ3r!}rqqbYznjM3U;GxiD3jr+CcJ`3l3g#E#33sE6cB1U& zudeNhAY7s;RiT9TQeP;MIHs{(O?%iB3+UJJ>pbG#R`bjwQ!&53%f7vVgZqS-=QKU@s0qA{9vs3MsT~Njmx#pbG{+7FE zTBr{aG{&mospnAzy>^Sd^A@+cd!M`&u}RlTyv-*iOF(r4#4?VmtVKQvu^!N=hPOK| z2;8X1iE2*oeDc+~{K4;Lqzy6FRxc#})LLVTB#Ikh(|dbhSpfXTjO5!kwB{b;*S|16 zRA=U4lGreBX!ElCKBp1-#_R_tE}Y=*i@jriytU>91~r;{@80-N0;7%yLWo8RDwHebko`0nZwJ-qag<+p^zSA7y4R=-W& z&bk*>)V<$2Eln6$p}$72>hNEJ$6 zxUqL`Xk6WWi=t$6;3|`r^%lJ?S0fN9ha+U!G*`emY}PsDR688fOR%gb^Tj{sVt(VS zW<__@e|w!@22T&|n(+2Zp?zP(Slur<57@cmSNn&Y$AX-Jj5BYpmiK%kU)K%%u6qG6 zh*uyk6xJ+`2&QB!K|fK^9MRXe{pDWm-=|To|I5t@Uho(JdUVtMGIl-bb#`VMxntkH859VjxDas8#Rwscz5RaZhQX zSCaICE4lS$lr8fsL7sK zYd9nlt}w6X{b_{|ATVsKY`TaHgKq%|TziuSJg53d8qrKj=UtK46f={?>`h^b8KpKw zI;GjJdK^U&4FDW0cnC9G)uiw|txkk@b{rb6x_*|_WcHStJBJ6drZ%=yk{5*_iFpw` z{LI^TY`=AiF)$B{*q4p}B{yaXN1{kayPSlcl;qqiLu|$vLhk_VW|Te@+*SRKrYMh_K2iPKksN zE6*tl0symm#jW_LoLrRy{lLAYh0#Q-!UsPE&kDLmy+Xr|zDbGWvpWgpq$&qVq?!!Z z@hfd;$llR`Slp)MZBpGqDUy^UJ?vqZo&A_d=Lk1TWLOKgB1nh#FbAc>TufZCe$spx zQH*{Ju&j5dV9IN^**OW5=W{L2(_nEc7l>e7SB=TjRl68W9 z|Lwi2+xhzDhs?^d>(z+z{)71R+-QzSFlM_})P{R##jQ&1-b@X_j%7*nmMb+hg^*=& zOH`x>ohLk0SZoyo5)(b^a>$V&h0V{$SbY3p=Vm90vdYD+q5RqnJy>}xL(rhMlhu^F zZ=L4m0SB1>A}Y#mlYdlRhS11yTt3PZR)&IC)|wQ2qeZJX5=-9&`vCkVMXb0ML`UIe+_viS(ay!_uXiAOH5`=WQOF*nmT_XZeW&UVf6KXJaZ4+N{2T-PB_!DvIgY($IsvE`<|7jqil1

)C8L&FDk(ubZxKo=NjIz3zk54;@k*)c2ia`Q7!$M5`j7<&gSy$fDUBf3Ga1+rSS zg${x_Et91IfF0C!{IlBy)q?MOT#G&6p_e%)N;hBfKC)i?E??tV2?wo3yPhz4`Qa?B zyaJ;$24uRc@@$haDW4rDW1p-IKr8ieOm0HL)IZrq{&^ZdM*DYZ*-R_f>MRb4>z(+1 z0_P&y4AnJqtYn<)1?RD7!aguVX`8>6$j`~6p)@V6$F!n5k0I3axppKFx$3HK*v;L~ z{niG8fL9%@6IGU zgd@drw9oE+aLyq&qUR8S9qMY)c(&K8@R-f;Jd^K zjmuW?M>lo-&L~Te_ine(vMKaKfL~`Sez&a(Ejw7wMKsgdLqcZwv+Y2aEcw8yhh>Uy zZe4@N$G4X)bmK#oa1@jSNA*@q;>D9}L!pGa(Rep}*moq=nR{_;7TC~*qe@%J9^rR( z(F~jh%J^-{i_n<&F}h*I+BQ|=z+H3U4wZ;4kb@as8Q~R@7YGq`Jd0g=ig#VszXD@xJ&w*Kdp1=@a_aoQBKQrv3&pn&wh_sc;3k^4t`gxUKBi5i!!Skh1& z08jbfcfo-~tn%iGA0vfs;Yxbs4cWI@1Cmf&9W`+^AWg7~;4Ft!bXCzRTz}w;q~|oyvR3x{S7Y z0Z=Y(Aw^=ttNaa5wLt}blEUT&7x$R(z#!YrPVn_C}H#6Bw_ zI~s4btHXSx6r`Z=E=P7K=)I+i=3cS*{m|;`u<2DZ{u1Rex5h>pAHP zo$*{Vw%LU0S0O*Vf8rLK%l9C?3m;DHLylo)m$M@ym0)lV3(e`po;`yhg# zA$wYGO5dG>H!`MgDui%?VD-u=eIeuiD}jK~_jzQWcjr8cDQVQkFdnc;JF-TpC+hq1 z*`vc71mj(~U+EHqHM)xJEi^4`Eyp)b)}6brA77;mKF-O!Vx@HMV$2sE9z2BLGjoTw zhA4LdP!+;b7VqqS1W_JQbGeJtZhxt z`?$aw9mnU?HKM91gp>~S^VBIXlcn$mqrx?ZrcdXb`{R1AweCTXlpR>Oama z8UzHxkC?^;yp;Je@$jo%`w0Q2frD7A)(~&C7sy{nf)0Ac&<)J2A4gji+mV!rVgHa` z$L~b4p^0o>p%h`_!IDcn;O#gox@-G#&~92Cz6E`yg(hMk+%3R|VhM%@e+T_na{aNz z0i*pU%BPsILA5|nO5T;B*wbLK$-&>%e!+|=f#c+ZRs)g(u(}B0YS_3%7+n~31xKXP zdYlxUL5oIVdU(~;-sBQ|8zF8mzwIs;1=RjEgDopSZ<3>U(%0UggmUg{SslYN78m!JG8s1S-W; z@B{O68AFFgJh&b0@nc&kWZfyxrJN^Js+c59>BdlxpG9%JFc;~Z&v?P`qYTev-~fO8BXUJ3{PNZQ2MLfy(ud|; z2W$}>i4Z1(PfQ3L3>#;vOzaQtT)_^XIVNLWC$5z~RJ+pj8VKO7;wi;^zccwlaRJ94 zM(MIMi#Yo!*TI{FIe$rMxp3W$QaUMWiLP*_ug>#fM_fH&#en?VrS4k#%5tTSOH}tH zHmb)IJFOhNR8X1d~l1GLU*z_|ytm*6DpIpvmQDJ|1^Yy)utkugEh zF%aec5M8286VHvLjlXmchM8ttrm}zH$w0N*JBpp+URCJ6LSWr*pKzz{10H5 z_*)l+IMmx5p#Uz~>731&+FBUVHV4`-xzWd=cvGHGkqCyu*B68@>Owmqr;g=l2=irO z$nBhAB5fNhXC&%BVUnl%j-x9hP=l{TtRw2-G2b*A?cNy??7zbeO!cOAmCOMyDOU#-OtP8dqBk1VPZvNm&rC(GaCe&Lt~&+#GXw ze1lH5W{TEPpA2{zNpj-OZ8RUYm_eY-ncX{Dggm`xzr8Ild6;8ask7>mDOPk}@ zuzhW4YE^k%K6ABVoqh=#2SAOqD`2h+SGmZAf=JumG##A)8@_cF(z(GkT-?{$5aV`) zSC~`OPMV8e$fT-eIq|q1bE+oQ(v)U%dn_T_M@J z=kOA%R39`nmxR_D)WHEo?4`Pg9))s|Sfd+9;15@(gJFJ&c_DYK`%PR=<%?hBP0Z&P zIa-n?bcV#7@V(K5ypngfiVll%nm12r_4v-W$32pUp+!>=b0^euCJJX7l`!|7GH09` zZIfv$fIX_#{~f!E%HXI>KE>!>h7Q*K&{$456Ngt-7w$5SX<DX zq!(I=20!aHI~9gn)GU%gY49PhF?2T1Y8r)asj-QwXJS3Yqnyr^zLDgNZ@IVI-_UQl z#hFJ{E1dyRG5U)amVybvy>aJ~GSP_1@gc;|_iT{&NB1WG$}y zbaa>=dODU$LZ24PX#qq}>+rLmV6UDQVc%@$ykqyDsHZ^r3a<$OscwaSfpyu~OSSfD z*6G#h%`IRn=~_EsYDr_7JejG@nA>!#BI3<@>h&ZiTz+XV!Ey;h@` zigp|N%%}+;f5pZV$K%hLKSAE<4A%IZut+8)s9r2s$aRy^uNyctMey;L$K*MrODR$g;LqMlVl5%<*;i{8A3couQSif(>GqG@S_zE0fve!(1X!>jrPc;5#Gb} zVp?XIP_VqH_P6Kes3KrtJkW)uV^MeD$4~N+))m=z)@B(9%m;@K8k~f!e;Iu&JO~@Tu`xT}q@UN_*n*?(wBox~p&qvp3uo{bLHgEQp&8Aj z)0zcbkS&aK1d(lHSTuh0G~o;#gf!Bib=J zCohPoBzee)PBtoV2ql>3@r0u+CkE%;QqC8{caj?nBkOwFCkgS@RO=`LYBH)uys^YG z`I{riFO_EACc#6u8BJkJzw&aw zXDmE^&;f}#b+6B`0>ehnVUY<;5Bax`Tp{mnV*-?5m4e{vsJK_;XjO3Mj(RoBuTkbm zv{3lr!2;^O#EhdgDk)M_$t@v*joC-{sO(zsHZ{H*HIKKS{UDn9Ag&jLTOOV`r%qFY z{5GibN;E$L<+iL1#Vp=+?A{7!`@v{1V(G&D)|rm&vqmUfag(rl+}Gn(*NMHRrlM^; zPgAiC#$9e9{l;II6h$vZO-s(B)Ju(&3icatC4SEp+9p%&Wkncm+0GFt&2^gf9gn>l zTUH04k582sd08hfGnI~g@_iexOMK%8Gs~`dOxeLYVyaSRry|ulj~XeM?28xr+SQA7 zLrc6e84e3;JWHVD*`?fR_t&B-6 zkLBGRE~VeG;ue2VbK5j3IZ|_xUm&rLZA}B#Ab@_hqARl*@a}zss)n!ML(q&U%P_T65`)yR6NAev3`D1#5nPeEO zqSAv7oh?p8H;GU3~~D}d>h@(m*#o= zmXni%G2K#*!gz~3-4BYtSiAg}lev477&q^6?-p`hx{fp|;l2dpPdrxc6waFZSTSdE z!nc;ldEfe*FKwAAaDJ{?U)pNPB#C~%+HPdSciP=iyH{^YiRg!uJSV8QRp`0B>dT9J zq#WD?Zum-CUH@7FG!$jKhQbhgSIpX$$KO=?LUSI|!N6PQyWp3t*cVUjpZg2eI-?cU zBrIQiKGDiNK5;`J1jO*5IHm(YlFMD7dDXr&3gCjzao}`YU$D5{JL_S21A%e5Au8ms z{iQjV49%C2tq_xL2}MHYv+Gfuj|7pmy}s0#Xf&p+@5CgK%|Bp#do7ymB$}+0t%>Q$ zhknX-}Wa!4uC-!SZw?1HLsP^ zlFi%Ij%DLLZ5v6VVtH*Tk6KC)2__?_Q$b&4_4fWo+01&8KVa86wSR?}LE~ksqttd! zhhz5{B@1|>wq9)Eh-v$VGM$b<2^(_`T@>;)Hl)?{7%VYcE%zu&DRSL=e=Qfv4lhfZ= zKD5VaL?rDyX~v&ETo0Rka_1YenqU=XO3RXtZ+vR&YRY!Oj;nz<5dQ)H4oKD_$< z$HJHVpFmpr>#ohn;L}^#{?l1|IXUJe@B2kprrDgbkRDdMC0XEOe#NI)XeEzL*{8OW96+Upys$ zI@QZIscRTi?-Qv_7%6)Ue zFXH87)B|z)^!E1rQyLq0&4o>`5lalSDLK1$=YmnOt?q7Azuu@AgBMlv%Ys+Up0zh; zq|#6FVrQQ4E0AKLxzi_@XMwWB@lWH*&?mubmj5WX@ZU7~o(0Nm3_a{!U6_pxjV(-# zO$;w@h&`~vr7-|A7)bM{0`on|nRg`=$#w@EO z#ri*jiO@7(MZ%h0HwA7#7=nx5D4#>LLQrxvisTA8zyF*FH^V_tPZaFzYQ<#v{w&H`d6y~?9v0m8x>P=gM$y2b+R`$xRWR-pG|19*h@dV2L64TcH7$*M4 z6*Gvpwta&Js;EDMJL>aL!OxXL6h zh+VOTK6R8}<(ti#d-{NkN%|=#>ge8L1e=>x9QR^t3a4)noxmjpE~jF| z$2dRC#RG!pYh@~{p>7GKW}rf!l~s|4fyD* z|1k}PvWTD}!T-@G{ioGmwVD3jpC^?0^H+(-KP>-EyXk+r1B_z)yOPr%Uj7*MUyJ8F zmp=HjWkIjWpVj04u=}I;f0owy)2{qkW$OP+p`Aav_+w~)U1*+Roj+SV^pSq!KS7>< z8vb=L`TIE~cK-XS^iRvbhPLO$=FjE;wfwJ3kBU6}GeryV68ZxRjfff&$91byouV9~bOD&j!wBwl0he|K4jB`lUgcks$Vb@{KcnJX+L5 zO&hx-=CURI0u!cgAhKm8%d~fQ6k$3P)%yup-cCu^kHLs1z6NGYOX{Cyk%l@ix;$u4FvDXtdo6)x9wZuM_NY7Zmhwl2WzTHx z{g&v)$Kot;x?d$hhJhOfT*f`G#3ToGTUW&tL2K>jL9~1d@BAgJ#Oh%4v46aXFMc*l zEIK)V-49q%1`_Jn`9<{XpYZ2EfPfVLp8_HO^M$E{iK4TEqYI;ngR>cfr=4wRl9IzF z5nAXjfR>JcmMd_vnML}~l3XH1jdGK>_A*D9g9@PLhNuB^CTTvNyWm256;vVG*=uhb$SSX%)+Y zogW8?wp?K_0UgAIMb7sl$t!=(786ZvPIrHIaPmrV#x`TW>7jjV_Vr0I+sy3w_H^s! zePwAqH4VHd141y=wGeTW7+A!4Tk(U-_nS;3NrN#ut(M+HhfysUFK`;Ko-XMOdq{q%zzh2&nAW3qS9vj8PB!(~T`N@>;f+9FPn5iVZd>?aHI{CJ5I z?rk>P0KT9R>ImH-Hk>QL5rq#hPBa^+fEJ2B2bb1-(>S#6+{zM}0!vb0qPo@M%2AD19-|bBA{M!~O##I&(pc7R zT}>+juQikuS%zXV!h8)Cd_%BM2N`kkWhF#-NalXTt+$ppdqyme_ubA=;mI z+@K?A-Q2rgMYH2$zy0nv_ry^x(BMmO5Q`@VTe_&8dCVdUIU6xYMuEh7Ap~U(i>FC&v2q92)SHkzhtJ#$c`nr= zzL-7m*G(w960ib780~Mda?c`L7uUMEiAhOkAB=IbHS1@hS72Ac_07{4l*E|{a(@2l zFpy9T2-GFi|HusSUpo-$|CHIp&BfKh?q8*wlVlt=|5f@69qiVI?=uN*T*!n{5D^?^ z>84pTStdJFl!nYqgZh0}hDQpN?2KF}ei9q57r&w7eVzSEa>mBSIxkjvW(o)dU62Lvej3VKUcok2X|~8woHJ>Zvoe@Lc54ek!;)ubm8|R#=$ruYe_D+o$p*B zB1YZ1m?NxQ?X8gJ_6=TMZtioP2bB++CGpJBt@kw}P9|R_D0gfi4{GHR_Fw6|N>2;w zLyb~izW!)#_P^yn!c1Obb!_i{DO;Y8)+pb8i^N(`QIPlRn!$`jxd$d!hjP7}QQOpMTy+Qs9RI;`PDB&NVO#ijt;Qj;D!@=2<@qgzHOEV)=GiT<1nf@n*#Kup< z4Ezh0Uu>;&dnGu6^;#@Mzm#84vc;2g%w6Mb3 z@Tf#%#0p{czKc(A*KPxro&-}SOHQ)dRQG`C6fZ79YQ|Ko(w9hsKRI6g$XPsAXe@g! zq_bnk<-|}5`yM%)h7(>h zY~NZ70P%0U?6ae=<^M#3^iRzH?+k$Vf5-bzGH|mqvv>Xf18z?K|Hce2n0kPAOLmwd z-6;x4I|cw4&Ff2~hOk7=YKQ-K2xpL?vtv9@(n)rxQvKT^=!Y1gw+)!76bxK!gPVgk z@b2=B9elR4lJ7ndwLY}oEl9M3EYciuyTVNHh2ms_W;jJ2>xzw((-Xai^4A!KS6&(I z%`IPn@15y~cHr(RcHPC%9lFCNYxh8nnnY|^9+79kVjwZM^ezc>+mzH3@HbxmY~-!t z%9+Hc*-Y8%?a%CN`RgRt+sPlqGn2#-C=M%{q0t;-9GgE$;lQIv|GrwUkdP?pzV}3F z9OD=%-GvjX=ly4V<(v#Hz4=F#jQ`qB{>_~KX(#_vv1`3)=L1QUo?8`F$F;>az)jv9` zkrUg)=g$bJlayVA=n>C7g(a3TsB-<*W-p=OL59*2-EV4@8{1B5=|pv3vBcgM2Xt&g zoIY!J7jp>J!2f-U+rbGy1=mvKH54`SO~BH4o~*J7F5c)`f(O5d22y+Vfri3tR6r6t z!Z4euBo$_^Lz-*ve5tb$sRQ5f8J0$1QToYJU#ZllcqXC{d)iQhW?>CsU%HsT=69u1 z7Nj9UPkj0O<|zUu&1jI&axtJc>=r?G}ly&BN0UDmlq@Z9~gqO;BYTC-Eh zhFcR&pC$|UV)@F|KPHp_#qT@yMt|BYHU1|g_}x~yKy#`$HG|YL(ycL^4{ZUT?c4U1 za4d$g)PpOG7vxcwaQAA-9XF6X40H)muM6cVn?k%C~}4GE?4;ll0># zC<98`*;`dBz}3syz|t-rx!2alD*PSaS>i|na8_X=QgGn z_cN<)&K3;t2H@T!7_#KpG)~vxfYTSS9m4wAftY@AE8oHSnfGs;Zkdmsd!^4-SISJ^ z?_OS#04@Mh1S-J*V*5pG|_-282+twsqcXf_zkUGV`MP_av$R!^LM>p&sCm? zMC5~WM0@W9i1FJP8ckpZN=P$(31I||18cOU@P!^jWrPx@-|^}Y_)=Mzz#?M&wEGkTP` z2*{sL0;NE~FIb152OI&QD4!xJW7s5$*avSvQRgP3Vn=3SjH21P;GBZcKkbzu zVnIcMN(EGkXjJDwxU1gEQxn!UCG;zIr?4L1=F1pbE!Wb;;E~d{ACe z13w6O`A&XZ-z!#4`PWX{_2j)&bAJB(sAoHbaL~zRU_AmsD$${Yz>yg2wM0hOJENHf zm~&1@?eQCzQ5>m2Taaoq2#|pgdSRipd>@aNAh@K(RA)S!uI^3^7CDA=~ zEOT}m{o(wtf&B&o@k}2&H)ou$ApCG*u~zff9lpQWqC^GL?uOw>;%jk=Oy$Gnz5pMQ7kx*Tv}U+KyF94zH&TWe^JrOlLCX-K*UOU86+ za~)u`4sTCmFJ@Rdv7>7& z$Lj*%cJy$!AuKdcQRWt>U4-M>fw-Rm@R=z}i$aa_#}v!mH+055IRq!D&hui9TDL7W z*XAEZ^$~~C-kkDderbZui}uZo-0x-+*z#kgsqOyxt2~DREtT+oiMTo=&JB-D`mWsI zuqBzf2GFLIHp!=v0#Q??kkON=I#^EWX&*XVH{Rquu7%63&}MSf+r~mFNvi)8*+Mev zUxSiUit-b0Kp{{Mvc$R+-OZuzjz@P=yj=D4{KXEM^HG7jaUGAZMPD!o!r_;Qa6((# zRut(zv^$-XI;XobsfW_4d&&r~!1C=4Y1u(E={yW$H2XA#)#FR5VP97B{3H7}NI(60 zY=bvV2ZlrDt#O}1Hb?HD#vcr*c$qJvMnl=bwNU1;Bk&`cmFpogV?!ZnWLYgwYrl-^Kuw-2$RJqFP0qdet=@&Q=xstk(o24{{rQfdskp+u-dT69GskwF~416|oqVDKWACh*th&A*w zntBeBQY80$H+5usYaJ}}cI?WF%~l;hkR&uzfYgre(9j!`f5zHGZ)j3O`(Y?eO+FCu zoNGHU-MWf~$bH*@Im-0ObPJJp*qOKLTc%{>^Tl#7)O?ql$cERl425#)6O9aGt7hsG zfJ2nR^-$>w$to7I3eTn%C2|Z45P9b!ukjJS9_}p9%uV1yum{j6EuNrRGbpEg5U6Io zPL8%jg8pUR*N^n0&mwO)16}K8yJ!gIRZE>mr(VuUU0(fn*nlMyzV?DSo`k7IRPR*R zwmo6s+S@NT?zQTcxpuBDl`pdVj&Cw(!1tj6^+W6OQ^Ifjp&?S!0*>!^6P33R zoC!+$+J!gDx4hINQ)G*Yc5Vb;LzgqwUrp<_L_30d`pk->P-^Lf2urkVoli{)IW8KA zDw(J$!-oW?mgmrI!Jm`@Q$JCgUg)TVI+~_h`>~ReVwkvQ{;BR^( zoj^c=x*}ig{6K<+zrVW0ghReg2=qz^2_(Ch<-UM`{1LVw8QUa@k!XGQYON0(_Kwd8 zO%E@D6dM2yZib6@bxzK69(DDI_vao7;6SfyYw$H}?i66G@PF_jt3tf<`-U^=c+*ReIczlmG!M{; z$dfCdtnu$)U7OJUe%@J@mH}~VJ0SUM}kk1@1kZ#GuvLBoWLTfiQ|K!R^GFenNon zpR+*%>djo0Uzo64COxn$)9BqZ4)oBr4}zyVgw^tFL|+OuS&FuD!!l9 zKwb|H*RSV7be3qVnFK7OLODti60I)VaU7(6r{>_X0z*Km@DdY_6VG&n!EI3%=YeUy z9n%iY9_|e!7H$#lFDz8#tZ*XYJr9+qCXRVnPE;)IOqVVGm7B zvXZu`h7jImrytzF{3fk`LL@4hxx5+50y;s=E|$klJ)Uf6crY&fGGS~jpcA6c6O$2? z>r0dj3Z&=eV3fLPZvT-+)hdw0`iDi0)sSiI+JwT{0Mdhv+~?G(?d9HSHDK#uXAnfq zjBNOVF}rW9KY-P{E%lnpZGiaf+$yvkuUayZ4VWq8-N=T1CkZV*6h3~85{)$-%MDGf zdI%IFr!ZNr7~gXux|&lyhtx&w2Sb^GEg zO*r{kf%FE1&uXRZ@IsnsOysqRnYWt`kQ7YI)-uqv z81B6_l2CsKo$=ZD>I(jpB_oR4ePaWn+OT*6S0JpUMa-XJnQ*S1<-kbV*77L!A4d#z zI`~f0jx5C2!1XMBJx7cV&-RK79}Xpqo@yCJkT|QK(#k*~#D1;~d&-h7L3Qo&LX9D- z>1jQAoGPkM9*zd^N%4Q8|9WRLEfvmQk@>VSxUC(Cp4Gv0*V@4xuo0$yv}8Hz$=_VCdTEdzpr z*md@q0>ibwlj(_(_k;Pd!}Olr!cDGtJg7SGU1TC++8LR)vd38Hpz?eU9Tz)6K2{O? zDk5pde*}$wSjN72JS$}2&)|j&9_+Ks*vrZtW?Q*m7pZ}we*LhEB`yEPgCmdZZX7t) z>e3ru*-xDN;N;qRQbjND= zDUnlsI<8xvR;&?sSN==qrAtDE4zfBI!ZBBr5og4Tq_9`8-Pm)dz9X*naPH|Tw{s15 z=zyE$#I+bpI=@!6qaP!WX$}_J0s~bSSUD9XgF;!V1xYPg|dDLBHaEo6v^%2ZxLMQm_iiW6}i zht?uCwwX(-MFf+U_Qy-1=h|a2Vq-LJ(}TEX1aEo(TZ4HrI)St7v>o5cLm!9Z$MhI2 zATD|&)lnc3A=TeE_BbqSm8lBEmt}skG2Kh}9-*dm>3Rg*Wcn{-$al)*$xBc8>8Ca5 zGfE~dAXmEF>q?q!vG`((t1FxCjG@KZ`_q>{DIQ8e0h{F48>ONdW9i_iLhwwls#ko*u`q+b|P&Dh$s%As--s>;NiXwW%lriAGB%W4Jn*wCp z{1g;rO&b%q8sRG{*M2!w(6|fA0Ex;*5f0se_kyErpbJgf#CcD5FzcvqHmdl+Uo}X$ zzOc(U2TPcYr}nF*ZuO25R;^+@ZQr_%o}%-1bwXy`&BFZQA;|D^p!@8ol(>$+FgWUi zU6wpBzOZaX-d~zOXzz};3CuPpGpdGkl>?QcboW%(=tbtey^g%0Xzk+oBb942%{|LY zM$cHCLd?Hlhz5C~#QPe?^@A}QLXMbtr;Ktr$dCm?bUzArp5NXfZA!EM$$JjZ#c~15 z1@Tp5aA6AIKpE+;GmsZD*^WaUeH1gXBDi_+Wrgj+4y(IuhY;?ssR+ZK;r@oh7O&nM z7-VkYIjc-TEK_UF-lkK;rY|V*G%2GiqLtOUzoP*5GySDVh`@N7n49Q|EDaN#FAsC> zU)6OrRN+WV1aeo>;NLA=Ha^oK^}(faIu|klpT+r^sjYGz@pCix1R<*1IJ0>GpQE%|&e>hI#g;sz_pdP8C zg;gHfUVoWt|CA6-$yW|Qm4vx=K*=HSWGSXi7Np(zqS*a0=f;y&CjN-rIcQ|;jjOS* zh|@R8vWgkzuv{=yBnCi^h~(6AMDMrX|B6!ERVlo>-U>MwZAEYe|y~c zs)5j2l6=?{J_T!=34Gu}7H}sj;Mo(5PiGAI{17X(hjTM^1)VN~Q`5sdFf(u-*oe`VTEGX4TS={p;XcNd_{Y<~AQ;Xn~F}_!kE!wa8 zlwmRk2Ms-l(mdmKAEf{G*DwpPCm}VHaoy@6FOYD>ZWz6S2*mX87ke5&jurWS?ZCCDFS|+4oEy! zwQAM%fHv46lcpg%sQT4akr#K^d{2ff2n!?`+Sx#3DU>{ zFgsGVFaQEM7ZJ-F;g>>iIM|i6j*2up(Jt!?K+|JbRO0jqQ%+{%x4nYjH$$bL1z0gF zB;h@Md1{}LMR*)jXJr#v6Pg;2WP+t`z@&%ZGFgSIcWTJ}1rBn;4ZhsnB`SUJ9nTKG z9ZljMN?O6l0_vU9N}y>r9xL)ph<4NK#K5%Brwcd9ai(}ncq_WHj}3RwmbSTZiQY)L zkhjqu_V%YK=CWLE!3BXh+;qfFcaCyfLEt=tUGg&buXA09yKE(@C4BtmU2Hd1rR&eA zA3*uVLILi~J?(K`$K9@l_rRB-N@QOxGTMLekiH|?TV`fBRBSRSQoz<39QRud?n_=XDtCd@}dFf*!idhS`0GY|? z@6kl*E&Wp7GlAmOdp+V+J&pD3E1!qMJ(ijeUX3P9yWMbdKiDn2KY~|sd*xJ-e&5F! zoT4U!K&p8<#vS&MdZ&m@x1_qMtVMdkU@Z1tr9;ncJ#7o&w7yW_hFcMOQAcobaY{n$ zNUxznmjd9P-noO5X<|V5W?S_1 z!R(?IA@Xb}I5?okgwp_RR&K?P_D`WYmt{-eNPX+eqd2sv%DI4jV)W)$=+YJmBMO}`~o~_f#qaS*J~~t2l$j2`;4y0q>dQBcKW~xa(K2{?W)1&*LqXDiFPsT z(BbMSzU!W`uWqIs`hos7N3OrwBOL-JBr^;*N4{IH^t~3Cx`jDUvYsWa@i#!XM#k+d zPnUXEr@qh@*!6~1$AU{KQE(?`l35X@al~iYGCF${Icp{Wmt9p2g>|4)Y@_nMf6R~z zIr&7%rKnNJ=463%&){6K``({mrQ4pk6jEQ{ObpGqe_$)-yasWb^a zOYgjNtEfjB^R(T~1&#Ja>6)N0k3*pQK1ZvSU# zdDc2OSkwusB)}~WF^29m6gl`eCiS)S>bv!%a<=a@N0o>f!2iIbytVz~>-zgFAklTK z>?Csl?Y`37O*LK_b*)=(z52FNq;0!g;zUD9)KHl6#-379l>omJ-WjgGAlZ>_-$WZm zFzt%(%+im8P%+K6;@T}veOeB1SutbohhVe30gr;MS~go?ysk%B%zaOO74YDG_P^~PSQ6Z(lWn;KmkiU*n71u@dL0GpKGa$#Rs26GP$ zQ0wr@_qn{g`_JtZj4Wc9r$WU>bw34`a=YKRrc_}DEzf*zQ&i6xU33%z)>A($TejC* z(gGW^*$t7Yi!0}k3Z$cx<#AoWY$Q+*Yqb>ZvJ=UVKGq{ur42kV zp>!YXWcb%$`zb7p{dy*O2pM{fvgu=jn50t5rTuf?%jQdF&jggCnf#H5_1XK6_RV`6 zU#+up&cCz2v<^|oHJ8HfT@%wL;u)VY9(0e)f|J`7^A(DL^~&Ss&`1)0YuCrR91Zw2 zoX#)g31oH5@;{&*p`o1BNP$NRAoIe+P?^ICzMX_TBF&jMefiPdrE*;iC&o_3vzsx> zZeOZwYAxnvS!fFXddc3tIw^|ZEY4_yvlX4+e_RJct9)Hn|Jmwbzw$@fd~bR@+*L^P z%ay<$AkZOtH7L(RC;z)T*T227AgY+hz(=hQArTpaWfGjb1Zz2Nx~sq3DLBckfXz<> z3hh?tuRszlJ1GEpbHC__62hl)ovseF&XbB4Zp-@5wvcWKr{r)w6(?7n4Pi2+MG8*m z{g@XD@zZqM2Mrxnc9OaPg2V1PktG4iU{A%QmcviaYVX2e3`@Db2Ctxz+#2tI7T^+_ zLotFL=&6{)+sm2#7r1#yZNxFnCuw@$!d_7!_inh82R-#VMmZXri{;@je%hUns(tPS zL(dU*mFNB2*(crvk2r3x=1%9+8zG}gA<;Z0H&6EqG;MqB^Uo7`XeHm}=swdDO-|FI zB!*DWShxdcOq-c(ul^?&fod$)7b|{v>+3`R-4uBCWwaL!GRE$q68( z2jD>kp<)HQaQXfH)Wcs2atl}xspU;kF$R#uGfDXhv#1Wrp}Gz}a>c5_AAKnMmaDnk?=&&n@H4WL)+pb-_M&*PM&(xNtTKBRK|X)BCr?RPXASD8=-Z!vz>KoRB&2+cTO z0=txX-Ey1F&GdA&Cgurn&It@Fl>=wpaQ5_rST#>dA3CnT!$3)t7HRc%Zb#2aDAY|7 zAF=-_=vs&lC2xeE1Egg2U?U<>Qy3G&d|4hH-Pyy>R-7`pxFcEj51VaHE%#@7B`XGh zwp;AN6iZ;su{A$e8_HddPi!AG2O>!BBLVI_6)NC6rb#C<4tiAynw_HMT;bITC;qpxi+N@5#1X2Q`ieyEU<7tpnt_kd`EU z`92r&{*IIk>8QthG+%<$=rF&n28@%(?{xk>c!y~TjFCRuar)Gp7C-&q7ZQ@jVSUvu z7%+@O$^sF`!h>%!W$kaUr}Zg_43%yE>JPVHacxXLT*pQx=+_>N_NjgXIC_> zY$lnv8aK`tP=#^#c;`Y36PD5NGg~I8XSa=~RZA>K<2g+^i=jk%y+r%!|q^>wBQ@ zytN|>oh6X1%0-c0rgi&z>xX&3eP@u@ytbl^3$v7)1q*6Kqqs0%{5Oq7GiP_npQYV} zjGyecL`|Uh4Ra!qvcGea!A^60tQsl3a#fcTl#AzUI()@(M6u@gUp+JD6-{f@3Oj7! zTP&~=#hQz9jS2N4i41S-p`XcxKIZd4W(PMtn#Bh|V7#e8g4s`cPdf~JT4*Af%Ce-z zM``D}fKjnsd!FGQziwk=MSTtUp`+1jk?&50;mcw6l0~oClQat8;JmD{Zi(FHQKH^d z#g3zjAR@$f71UJA%c`|rCPL^0kA{=a2|sU2oH)}OGVOiiLAs{)5)-?+{1`6}dRr<| zhdFf$lfhA=Zv_ag)F0Kl!*m8h!qYmdM{I%~8IE?+z-djILKbY@ za}3X~_a-uZJzV7B4`YW4?!>YKS9P=KYnvs;(M~_UCna8ZQl16pR&H{1&UBbYn7XLCm8kJ2MtqmFjd`aiR%T*c?z7tl)zgRB;s_BeM1!hf{R2m><*3BYl z2K{G9rmKo>PxJXV^U5ZYloUkrfM3#GFC}_s zJq>sXp3aYTX=cI7#R}`8+%u(cs5X6R&a6hs&yV0@nC8DKGZFhJUfRs)TW-; z-U0WSC%*;1HcS%4inUi_Ju0_!QgtCDkyjP3V<)F07O$MFg%UYQLp{y%gF??6HR6+E z={MwPUA1&g#n>DA;#+<$93!ZXN|#nh5xnzG%gqbNXx-C=U9e51#%;I;8VGYnpw@od zoy2V@8$vo_Q| zzDxk`YWGFqNR}o}v(U^TUXu%AU!Cd);hC5=>B2G5!H#(n6uckSWbo*(%RDDlLXW2dkUh64|SO73HTW`KWb@cqU6pmlP1_vFwQ0Dt0 zGTwr{IYvQYHju?fW(qF;-Bm#-Llv2qCuW_dEhWHK`AZ67Q&nIht<&OC+RPy$?-`;T zXb|oNAH$0hA`4)h6Q!NvvSyoo+^i9QB!`%(K}LTutq!uG89UJBW?epqn7Qc6vy-O| z?do-Ur30dZ05yNBg5S~y%@iO{sNSPT`~&$2$OW16Zg5p&{FpK@$CP=vck|UF_R(@w0u=OI9sIamB2TFGEr<#0a9h5mQcCjAi{`T8-H_m z4VxhgW1N;SmK{ZKi3yzEf(q}KBFGCwlr5*;xX$S&u7!{{VOAM+pa$*nkib6IA%Ag0 zC=c526yj^xkS(ko*bf8sIC8qAN?c-j25JzKTd?l84X5k+xwM`PfNbrQBc3)Y)cI4@ z1Nu^){?9fESOdwDGta;cowKl##$JsQ$d#DH^wNsJfG`)de!cCqN4QCco0YS)=--+A z0WHIZQww0JvkcnyZwgD@?4avu_*4I)Cvf}N59Ro``AE7?ieTLatsnm-6Hf*I-iLqA z#$DSOAEtA-qPCS5`M~OXV%Lxh(PhJM3^Y?FFxGV=5^6ke^dB^9?7^9yz`}r5r!@gA zYM1W&q@VAfI8o}>+H8%O&5!9}zAi8IfC`d7yya^K$(gS&Nc{Y^WUiQ0cn7eW|6x-U7s05rLKeH)Lk@H`IV{jvcH5WS)vgOH) z_=%6qe>ZOu?Rx{kbo1c^9XT?C0#P9O>h}d5@jR|0ws;0U4tH%P_sn-RJ9M9@F`nXY zG&|HqrRn0-ub~`;|JfJ|p=SLs@2d^8LIV;z6-?<%3Jg zT+_pAd=sSuf;aXr!>huQ;slUY=~+E%m>49YTcHCnWm4!8Pb1n-2D_!Wi*K>s|5@Ve z8!i3-Lz{*kzpghaZ|DQf@U@gF+h!w0FiNYyf?xUg4r2$RcBb)sYeFR?ulu&Mutcyb z7I3)y^nYUzR60OoTN`m6S)oC1vQ|yhBw$st&jT83&~61SgT>RBahvG9ROe8tvzqOH z;PoM+zzEt2gqn8P1YpO}&=maWTvry2fF(Ok%l9@8-#+n*jHwueZXCGA^E*$@SO+f zQkA~UnCoz12+O_ymvhM9`-IfgQD;Rt(|D!OWhTvBe^}@E(dsWBoyBsF_*EqifXEGT zkVh4*cGK0L2@D7hGmaEp&uj?V6@Ms{tfS!TgXr!i4-%}NuOqbRDuFl8mRrq$$2Kff zZakNH-OE&4$f-4-ZYlVP9C%AT--b>mAA?ehkdLNg!8@)i_=W0*N{3=buh_kzpV^}>{1eIhvz&RQI}0tMB~sLrA;PJg{Z#Pj+wz9jfpuM~MDC_zwEc4M0dqe;zRbGYM^+ z7s=iicnUe`i}&ufDTbj)CY`bP+o{vnw%c761nVoXVl(%J)91}+_VN;$tm@an zqSvi^%}UnoD~t~jXzw41sXB%%kXsdi*W_IqZ1c0t=qc)=Eo7U_<7@r~Q3H< z)Nh^u({H}mWJ-neXY%dpOU!CW{I)p{{jD7d!8vh>w@{KJPU_4T?t|17pIdfjhY02_ z73A7E+2?BHtpOsqyN00NY!@%e*3ebkQ^m>0{%hr|o)Hap5NW-ztS-8*&UdQbx>Gl4 zL8I}I_RbIOT^KnuZAVle%3v*2mbV!X=({Y1-vGt8?lO4^O>X7G-0hi=!WE8!Z~m-F z?Tuotuaa~f9H(a)T;H*e9ayhB_?NkegA`?(aEeo9@dt7AwBzPqaG8_8HXJ`8M^90S zoSX;ghFg_JdAbe0!_%bTDyclJII+Vt5G}=eA@>4OPi22oD&Fo7%>h-ss-4GqK4p&4 znxN+!fi9XeEK*i@&X2FQO}M7K(ZnWbF(@abU?_Y<(7`Clu_w^o83~&65p@0h0`3pr z9=$6?{Pu+8dx+yd#n*<#txqd~NoL!x7+tz(_JSg6r(UTIZc9HP|DMgoQf+$Fq6Gp< zq5p4ZbN_W5|Hl#czde(`{EAexQv3I_uO_)zpb9ot1A%%szld;PzH1 zW4mQuu6ZEbtx(OHrR|wsUVl#VnNQwNhR+XOf>Qq~wa~8DUJqXIObVm5 zAa7_h=t_LFf&lFVBc)0OJzW^)7F{##pIp7 z(P{G_rWx0WkdnyNPg0KOCi8%@pBO|R=)@I>kyRCH@Z(v1xV!QJRJsoM00V=< zm;4ewqOFe-S&8YYHelcDZ%fPyl-jg42S#+h%+2lZIaRBCA6Sfj0^$$(xo%X}avp(# zTF#?19T5J$y!)KIqrqXedp?CS?zGlO9UgQF^?RXYENIn1?}Atz)}WYnU>)$PuT9sj zyc0@pemNM-`;TThi~HGYeLCA)FCdMJn=gCR8u0jjeTO4nekk4HO6;Or12WYO<%ID7 zEf{(mi_%+8s6Fr~sEQ(&2Ti@w_0gn2I}Cq*0(t)Lipt)9X^YD8CBV7{G zJ?M}kT`!@ebobB=4g&*7Dve4FAX0)zcZm`r-Ac~TgAO4e4N6P?2G@J9$i4Snzde8K zwdYyibJp|h(`T(ud1cE_DbgA(9!*SU^WBd`O@&n-=L5+!`26oRw@7$C0woN8EM$$F zRNM+-YjU$VTUCfpJ2_=92Xcd`~t=GpxwSTfPjWw9^{x*Uqs*6gPDISdc&}*^AAB!++nIIhm=y zNgn^@$l<()JNuC-T$mQmI{vO*=WcbqPoOl+SG^}YwLGivK(~KvY5KNkb|1gSg6#<} zFLQL^ddqF*{7CO0O$t7IUVpbxfoR18so_myMs@$32i|mSGE})L{x7k2b9_4VUZ;R_ zx6ZRsFuR(Rh>1fU7NbjngiC-0odlLZp`VDqe2oW6~r909e&54-E0Sl0fK zyKnnfCJv1pG)A}6egxK?$Zc(GkPo;oAZS^j8#cWjUu|SMjpuo7S8Uy)VbPP`pxU91 zeaZIBCy^0D>swZh*>&xT?)i^Nj5jAf#7DU58}U}LvXWD>CN*g}r6xM*NAQR%K<|Uw zOtNNq@@GrlOv4uX=Ye>b9?f6IONUUQb~I)I4n3i$c5TJ{&hO*5Mft#Nz6_L&r{cHA zCEUB{4cbU#>OrdYHvGtR0^UcVukNr19nMbkEGWX4{!mP#2>1l=Ivt`*l}&|>Kw4hp5hKoru~)WFMfSh=Kx-vkD1UA zW+%+34I)WEKxK000Cd;!gz5h|kkyA~W+I@n-=UdJXh-XjS%shtT@~omjyo<<(%lMu ztZe->E{h*EgsYp)T0-b0O`6l8X?;q5aMOk#Zct|XGsC7C<-g;Dc9rE1@j)lb@)!glY!!KY0uZr^JQ)FqQbnGY z0K}*w4Zy?xI}~0D6LU!2l>Wb{k;` z07{H@p#Uf)+Jyn2jMyPqte`l8DJ^mD?7h^i({Ni7bZCRgC;<0YC!^ruQGa8l{^kvT zTc|)=dpkB!H#QLw1rP1TgJ4@Fe8cbfAx&cov_5;bmJt+_Fx9k^qM>i9uUeUnF&nHh zxAMh9P8+bjzu)ZxyHC<6z0MYjZJid!Y?wz^Ldf8qTf+x;A367X=CC=Q~SSy zNguVeS9KYWkX9T#Ax&?}d$8Rx_mgUwDLNxrsWpkMU(wpkb&_@e_aNXN#eO$~#`Iy~ z=Sa7pzIPN8T1}%a0oiRhRwDUJnSz zCQe0SP_9cvnZg<+fT*G3@Ff+w#Oh|tQ`XxeYe*H3SLXrYJfvb2X&*Z&xk{@X_bQbQ zANbvQk1C4y=O%XxUC!02>?(=7l{}9Bd@N0?#w%>~(3CFk;UlY9!aQRRWP!acZDIdjwuzg&5U+&L)?WKaadPzzacVcf))Kzr)A&Z5W5CXY#>e3n}^+)E0 z_n7ce9+|wOzFc6#^FWE=?HU?NwKctXY_7evVwzqNW6{y^JF?eVrpA+OA2!pvAr+>w z>y00{Yjf!9w|v})bE!Hqs6`GL32HAdgqU>E8_lG_zp)u-@4xq&lqG4t37dBP+DPr$ zqMl$6bQnr^v=knBe3rK}BU+2{oG<)H(LiiXf6`i-9+zntWVfeF)Y(&}Q74IFaau>@ zxz=rem8U!PZp)b(Sn!^E>iBsvVLmA#%orJeNHo<$HN4J``mEGVEtZrb$|XkHpFBB} zl3bqFk#zr)(NCWN5&PJQ@*|W&WzP1bR3)L13!~H1v0>!bm5TW0#j`N>AFh?Dy~1xG zx~VtRy3X}D_SuznOZX!r{RO>HCBRYxt}sfFKv{b}5zs?fD@DiJjyKhWZ-k#If>Aiyx z=>hk-P(4I{ae31zjGTzBgrsCG;Hh_pc@JX?N`_Le@XJSzA0aTX)JJf2OVo#!j2y(X z0@9fWtbT7@Wg?vIkA{l)e$xCXlG>f1h?Vc_W(@AT&kCboR}U3enX!{5NAaS2j?u8> zx0UrE=Q|lLpT#DEk1H_T;cgsNUK%lvaK0<}z%X#Bd|*5c_23T>JCJ+*#NydeUjE7_ z@QMaSADjHx*DwAYrYdVjPq9WIWz zH{Bi_xo3iH*24U7&;LZO+`m$G7i(N@rwj80*EAyeQK- z@4QY3HtX>sbsVVTDARlCNu{3ReoCFsX(&+Gs4Go&!}M%$@Mx(iHew|_7Tz9ujENO! z!L7IMxL109_>zEYs=6i$;+!uhVqEmTc^a--lXHFC-bJ#}p_RB7ALxgLGt$!c%yx)4 zUC6B}=ri8%F$aS^N=-;F!-aeWUr}cBMj+^5b_m#tO36$}Imh|6StMO~f=P^lQR4AW z+lMQg#b1D(d_#y98k%(0Y-#=Tk&2p8_f5)EKto3+Y$!TTP%hh*Op{~dt*b&ZwfaTleT7ZNQbKfKb`uV;8amjiGs=+Rbc=F& zk)Hb-l&G{ws29LmmgjhR_#s{V*OQ>)_D zrtlg%ICr3OHC0&3)L{(WV}yS4Fhp+FRQKIbPnCcAySTZZN5#I6>vZXjK{liSvLEZq zY_%Z-nRxhpFFq%RR=aofhFiSTfAbbDyzMj2A8YqrkSY}~yv-17n=BcE3J&pk5Oio| z5%tB(aTbxgG4&{{sX=rTjIT(cW}wQZ%wGP8WV&%TAaPS^1)xMW#a z=t!h`$ewLku+!z&Lzc8{20h5tyMq-)WQjjB8YDTOzJmu4>}ZpVw4uUnN-U+PbrrJy zi(Y%Ed4gE<#K@DVpE7~(+MN@wXd_9EgS3{(GZiG>Q3=>SzmllH@N2pVZ43vkm-_Th zP}u}i5yLmyV%b29UggaPWD!qwUG9T8nP3HJcyt!+Zv0fwq-Kgf)U5KS7LH0!1b(Pf z!uW6pyKntFVWm!vw1qR*fNpaB!K^)IRgrFp)EsZRpDL=prLL6)ky|A>HSgMq}S;pw!`1=Ijtvt*=#O7a8(Vb6C{aq zqUAkLP|=43X{AQ_`5;T6(hYWR5| z9wl*~*|*%I_8Om=>Akx$9;E}aQCW7~9_2Q|bk8`gqE^F817hy_d`8^B87EI7%chD( zJU6K}xmQ-AOtl?N2giw*Ll#Bpd^2OVc5&_oR@r6<;Z*4}s4%(=FdIz)>k)}2L>&38 zBm8DoD(~g)!eVu-^%p#2fQ9!>Gd_@y2@X5=a_tmITA%5?m)qcIz7zhUU#$@(AgrueO(hVN3=JkeRSXla_&xJg|P_GI| z0EBG*MNBESoL900ZeL7Mz)tqVUUoj$-ZMM?`tY`0Q9AV@!S^+qEPQ^S-+>*q6}xl! zm!9|Y$_lo416zbrX9h^$yieE6+$u^;_ut`izz>rsHdCIajm}fEfXBIno2X6q(i0+%EF{iy-`!Q*v$<+b25^JxEO+7 z+b@Zh4I=2Y450-?OS5wynY!E@vZD zhJ2=zW%{fdLv8Y~OtxE!*bm-}#kSxO1U5Yw*CtG%K0X#Pz82ZpP3dCYlC=XSEO!o`4N(qUk5*T2yX)E{qRezaalNfMGcKJ5tPtWKp-#IVWkb5r5$KF< z09I9p0GyMpl*Yb@bD$y!?E2`6-x8%@gV4?OiCQL+52x-JC2H`PBgN|G=kZ>?Z+6M- zwkz?~&GSuOK5(ssTV<7S^JncsdxhkJXMo05#yw&djzzN#hEA(YpBDE1UN>C3XZ@bxI_mAO6o>~#MYVo7_Q^D=Z1?73n z_aK_Y_L;(Xg6juv1S7p++mWQqKkRn#>FyA*NSC|Uf6I}IWnOIzrtcX|mE&I(P?t+& z95vzmLO!SZqiHpv;4Nj6L98j^ylWskZPM1YaN>+7dmT}vSkKrDFhnZFU2lsk2t7C@ zN=lWPmgfL&yw8*eRv`Ny%tK9i@_O)s!f8e$WpBN)XmwVozRObdPMu#SPB#aLK8_+e zF%!L=F|lp)7~*;JM9p-1ef<2MEK z23K+pyP}bXo#P))0l^1FKcjQu;$m#O_w$bCw3>eo0oeT z6pQ9>T(L{^Ty3>Kg_k*`7oFm_v7)Q`531}{`DMQ5#cJ@k9iu12f6MnG?vpzl*qZxpP%bduio= zaXs+cOlAL8|Gq4^D!#lD`m^dZjX$dXwN<#PzC7<, coletados para um trabalho de elaboração demapas temáticos da area dos assentamentos de Palmas, PR. Em cada propriedade visitada, foram coletados entre 1 a 5 pontos na área agrícola. Os dados dos pontos estão em uma linha, e sua utilização exige que estejam organizados de forma a que cada ponto (Lat, Long, Alt e número do ponto), esteja em uma coluna. Ou seja, de cada linha, deve ter de 1 a 5 novas colunas. +O script foi escrito em duas mãos. Inicialmente o Adenor fez o script, com suas possibilidades, e posteriormente o José escreveu a parte do pivot_longer. Ao final, um mapa com os pontos, para demonstra o resultado. + +# 2. Organizar os dados coletados + +## 2.1. Importar os dados + +```{r} + +#Pontos <- read.csv("training/wrangling/Coleta_Assentamento_SL_1.csv", sep=";") #para rodar com "run" +Pontos <- read.csv("data/Coleta_Assentamento_SL_1.csv", sep=";") +#colnames(Pontos) +``` + +## 2.2 Renomear e selecionar colunas de interesse + +Inicialmente será trabalhado com os dados: Nome (esposo e esposa), Area do imóvel, e os pontos de moradia e da coleta dos dados. + +Cada ponto de coleta de solos está em 5 colunas de interesse distintas: Ponto"x", Ponto"x"Lat, Ponto"x"Long, Ponto"x"Alt e ponto"x"GPS. + +```{r echo=FALSE} +PontosRe <- Pontos%>% + rename( esposo = "X1...Nome.do.responsável...Esposo", + esposa = "X2...Nome.da.responsável...Esposa", + area = "Qual.a.Área.total.da.propriedade.", + moradia = "Local.da.moradia.principal", + Ponto_1_Unico = "Ponto.Coleta.area.1", + Ponto_1_Lat = "X_Ponto.Coleta.area.1_latitude", + Ponto_1_Long = "X_Ponto.Coleta.area.1_longitude", + Ponto_1_Alt = "X_Ponto.Coleta.area.1_altitude", + Ponto_1_GPS= "Número.do.ponto.1.no.GPS", + Ponto_2_Unico = "Ponto.Coleta.area.2", + Ponto_2_Lat = "X_Ponto.Coleta.area.2_latitude", + Ponto_2_Long = "X_Ponto.Coleta.area.2_longitude", + Ponto_2_Alt = "X_Ponto.Coleta.area.2_altitude", + Ponto_2_GPS= "Número.do.ponto.2.no.GPS", + Ponto_3_Unico = "Ponto.Coleta.area.3", + Ponto_3_Lat = "X_Ponto.Coleta.area.3_latitude", + Ponto_3_Long = "X_Ponto.Coleta.area.3_longitude", + Ponto_3_Alt = "X_Ponto.Coleta.area.3_altitude", + Ponto_3_GPS= "Número.do.ponto.3.no.GPS", + Ponto_4_Unico = "Ponto.Coleta.area.4", + Ponto_4_Lat = "X_Ponto.Coleta.area.4_latitude", + Ponto_4_Long = "X_Ponto.Coleta.area.4_longitude", + Ponto_4_Alt = "X_Ponto.Coleta.area.4_altitude", + Ponto_4_GPS= "Número.do.ponto.4.no.GPS", + Ponto_5_Unico = "Ponto.Coleta.area.5", + Ponto_5_Lat = "X_Ponto.Coleta.area.5_latitude", + Ponto_5_Long = "X_Ponto.Coleta.area.5_longitude", + Ponto_5_Alt = "X_Ponto.Coleta.area.5_altitude", + Ponto_5_GPS= "Número.do.ponto.5.no.GPS",)%>% + select( esposo, + esposa, + moradia, + area, + Ponto_1_Unico, + Ponto_1_Long, + Ponto_1_Lat, + Ponto_1_Alt, + Ponto_1_GPS, + Ponto_2_Unico, + Ponto_2_Long, + Ponto_2_Lat, + Ponto_2_Alt, + Ponto_2_GPS, + Ponto_3_Unico, + Ponto_3_Long, + Ponto_3_Lat, + Ponto_3_Alt, + Ponto_3_GPS, + Ponto_4_Unico, + Ponto_4_Long, + Ponto_4_Lat, + Ponto_4_Alt, + Ponto_4_GPS, + Ponto_5_Unico, + Ponto_5_Long, + Ponto_5_Lat, + Ponto_5_Alt, + Ponto_5_GPS,)%>% + unite(Ponto_Nome, c("esposo", "esposa")) + +#colnames(PontosRe) +``` + +O arquivo possui algumas linhas sem informações. Esses erros ocorreram durante o período de coleta, especialmente durante os testes, e essas linhas precisam ser eliminados do arquivo. Por sorte, esses arquivos possue NA na coluna Ponto_1_Lat. + +## 2.3. Eliminar linhas vazias +```{r, echo=FALSE} +PontosRen<-PontosRe%>% + filter(!is.na(Ponto_1_Lat)) +``` + + +## 2.4. Organizar tabela + +Como já foi relatado na introduão, os dados dos pontos de 1 a 5 estão na mesma linha e em colunas distintas, por estabelecimento, e é necessário que estejam em linhas separadas, porém na mesma coluna. + +Para isso será utilizado o comando **pivot_longer()** para **Alongar** a tabela. + +Inicialmente a tabela original será dividida em , sendo uma com as colunas com final "Unico", outra com final "Lat", outra com final "Long, outra última com final "Alt"e a última com fianl "GPS". Feito isso, todas serão alongadas, criando 5 tabelas, cada uma contendo uma das informações relevantes em uma única coluna. Finalmente, as cinco tabelas serão reunidas novamente. + +### 2.4.1. divisão da tabela e 5 novas +```{r Repartir_Tables} +#colnames(PontosRen) + +Unico <- PontosRen%>% + select("Ponto_Nome", "moradia", "area", ends_with("Unico")) + +Latitudes <- PontosRen%>% + select("Ponto_Nome", "moradia", "area",ends_with("Lat")) + +Longitudes <- PontosRen%>% + select("Ponto_Nome", "moradia", "area",ends_with("Long")) + +Altitudes<-PontosRen%>% + select("Ponto_Nome", "moradia", "area",ends_with("Alt")) + +GPS<-PontosRen%>% + select("Ponto_Nome", "moradia", "area",ends_with("GPS")) +#View(GPS) +``` + +Temos agora cinco tabelas contendo 11 linhas e 5 colunas cada. As tabelas são: Unico, Latitudes, Longitudes, Altitudes e GPS. + +## 2.5. Alongamento das tabelas - Adenor + +Foram "alongadas" os arquivos criados acima, para ter as colunas com todos os dados necessários. +```{r Alongando} + +Unico_longer <- Unico%>% + pivot_longer(cols = ends_with("Unico"), + names_to = "Set") + +Lat_longer<-Latitudes%>% + pivot_longer(cols = ends_with("Lat"), + names_to = "Lat") + +Long_longer<-Longitudes%>% + pivot_longer(cols = ends_with("Long"), + names_to="Long") + +Alt_longer<-Altitudes%>% + pivot_longer(cols = ends_with("Alt"), + names_to="Alt") + +GPS_longer<-GPS%>% + pivot_longer(cols = ends_with("GPS"), + names_to="GPS") + +``` + Temos agora 5 tabelas, sendo cada uma contendo 55 linhas e 5 colunas. O próxima passa é unir novamente essas tabelas, para que possamos ter uma tabelas com 55 linhas, e com as culunas de Lat, Long, Alt, GPS. + +## 2.5.1. União das tabelas alongadas +```{r unir} + +Pontos_Col <- bind_cols( + Alt_longer, + Long_longer, + Lat_longer, + Unico_longer, + GPS_longer + ) + +colnames(Pontos_Col) +``` +Com esse comando, a tabela nova possuem várias colunas desnecessárias, criadas em cada pivot_longer, como segue: +"" "Ponto_Nome...1" "moradia...2" "area...3""" "Alt" +"" "value...5""" - que é o valor de Altitude; "Ponto_Nome...6" "moradia...7" "area...8" [9] "Long" "" "value...10""" que é o valor da Longitude; "Ponto_Nome...11" "moradia...12" "area...13" "Lat" """value...15" "" que é o valor de Latitude; "Ponto_Nome...16" "moradia...17" "area...18" "Set" "" "value...20" "" que é ovalor de Unico; [21] "Ponto_Nome...21" "moradia...22" "area...23" "GPS" "" "value...25" "" que é o valor do ponto de GPS. +Por isso, vai mas um chunk só para eliminar essas colunas desnecessárias + +## 2.5.2. Limpeza da tabela +```{r unir2} + +Pontos_Colu <- Pontos_Col%>% + select( + Ponto_Nome...1, + moradia...2, + area...3, + value...25, + value...5, + value...10, + value...15, + value...20, + )%>% + filter(value...5>0) +Pontos_Colu +``` + +Da mesma forma que foram criadas várias colunas no pivot_longer, no processo de bind_cols essas colunas foram juntadas, e as de mesmo nome, foram renomeadas inconvenientemente. +Lá vai mais um chunk para dar nomes de boi aos bois. + +### 2.5.3. Renomeação das colunas +```{r} +Pontos_Colun <- Pontos_Colu%>% + rename( + nome = "Ponto_Nome...1", + moradia = "moradia...2", + area = "area...3", + Ponto="value...25", + Altit = "value...5", + Longit = "value...10", + Latit = "value...15", + Unica = "value...20" + ) +``` + +Finalmente, após longos atalhos, está pronta a nossa tabela, contendo uma coluna de Lat, uma para Long e uma para Alt, com as demais colunas acessóarias necessárias. Vejamos que agora temos apenas 31 linhas, e não 55 como havia acima. Isso se deu já que foram eliminadas as linhas sem dados, com o comando filter. + +```{r} +Pontos_Colun +``` + + +## 2.6 Pivot_longer @José + +@jose: Outra opção para alongar a tabela e renomear as colunas no mesmo código que alonga a tabela é incluir os nomes da colunas que terá os valores "values_to" + +Também. o filtro para eliminar células sem dado pode ser aplicado no mesmo código, aproveitando o "pippin" (%>%) + +### 2.6.1. Pivot longer com as especificações +Foram utilizadas as mesmas tabelas criadas no chunk "Repartir_Tables", mas com especificações na saída de cada pivot_longer, evitando criação de colunas com nomes iguais. + +```{r} +Unico_Longer.2 <- Unico%>% + pivot_longer( + cols = ends_with("Unico"), + names_to = "Set", + values_to = "Unica" + )%>% + filter(Unica!= "") +Unico_Longer.2 +``` + Nesta primeira tabela foram mantidos os dados de nome, moradia e área. Nas pŕoximas tabelas esses serão eliminados com o comando select, pois, as colunas redundantes podem ser retiradas das próximas tabelas, já que parece que ao deixar padronizadas as linhas em 21 a ordem da coluna indicadora não se modifica e todas as tabelas ficam na mesma ordem + +```{r} +Lat_Longer.2 <- Latitudes%>% + pivot_longer( + cols = ends_with("Lat"), + names_to = "Lat", + values_to = "Latit" + )%>% + filter(Latit!= "")%>% + select(Latit) + +Lat_Longer.2 +``` + +```{r} +Long_Longer.2 <- Longitudes%>% + pivot_longer( + cols = ends_with("Long"), + names_to = "Long", + values_to = "Longit" + )%>% + filter(Longit!= "")%>% + select(Longit) +``` + + +```{r } +Alt_longer.2 <- Altitudes%>% + pivot_longer( + cols = ends_with("Alt"), + names_to = "Alt", + values_to = "Altit" + )%>% + filter(Altit!= "")%>% + select( Altit) +``` + + +```{r } +GPS_longer.2 <- GPS%>% + pivot_longer( + cols = ends_with("GPS"), + names_to = "GPS", + values_to = "Ponto" + )%>% + filter(Ponto!= "")%>% + select(Ponto) + +``` + Apresentamos apenas as tabela Lat_Longer.2, já que as outras na sequência apresentam a mesma lógica, contendo apenas uma coluna. + +## 2.6.2. União das tabelas alongadas + +```{r} +Pontos_Colun.2 <-cbind(Unico_Longer.2, GPS_longer.2, Alt_longer.2, Long_Longer.2, Lat_Longer.2) +head(Pontos_Colun.2) +``` + +# 3. Salvar no Arquivo +O arquivo que queremos é um .csv. Por isso, usamos o write.csv. + +```{r} +#write.csv(Pontos_Colun, file = "ColetaAssentamPontos.csv") +``` + +# 4. Mapas +O mapa, além de trazar informaões espaciais da localizaão dos pontos, serve aqui muito mais para conferir a exatidão da coleta. + +Com base em + +## 4.1 Carregue os pacotes necessarios + +```{r} +library(ggplot2) +library(ggrepel) +library(broom) +require(rgdal) +``` + + +### 4.1.1. Defina qual sera a area usada como base do mapa + + +```{r} + +#shpA_SL <- rgdal::readOGR(dsn=, "training/wrangling/shapefiles", +shpA_SL <- rgdal::readOGR(dsn="Qgis", + layer="Assentamento_SL", + verbose=TRUE, + stringsAsFactors=FALSE) + +``` + +### 4.4.2 - Passar para data.frama +```{r} +shp.df<-broom::tidy(shpA_SL) +``` + + +## 4.3. Mapa do município +```{r município Palmas, results="hide"} + +#Palmas <- rgdal::readOGR(dsn=, "training/wrangling/shapefiles", +Palmas <- rgdal::readOGR(dsn="Qgis", + layer="Palmas", + verbose=TRUE, + stringsAsFactors=FALSE) + +Palmas1<-tidy(Palmas) +``` + + +## 4.2 Plote o mapa usando o ggplot2 como um objeto, ainda sem desenha-lo na tela + + +Esse é o mapa a ser plotado, com os pontos de coleta, objeto do wranling acina. +```{r, fig.cap= "Município de Palmas, PR, com destaque para o Assentamento São Lourenço",fig.align='center', fig.height=2, fig.width=3 } +Geral <- ggplot() + geom_polygon(data = Palmas1, + aes(x=long, y = lat, group = group), + fill = "lightgrey", color = "black") + + geom_polygon(data = shp.df, + aes(x=long, y = lat, group = group), + fill = "blue", color = "red") + #Note que voce pode mudar as cores do fundo e da borda + coord_fixed (1.1)+ + labs(x="Longitude", y = "Latitude") #De nome aos eixos +Geral + +``` + +```{r fig.height=2, fig.width=2, fig.cap="Mapa do Assentamento com destaque para os Pontos de coleta de solo"} + +assentamento <- ggplot() + + geom_polygon(data = shp.df, + aes(x=long, y = lat, group = group), + fill = "lightgrey", color = "black") + #Note que voce pode mudar as cores do fundo e da borda + coord_fixed(1.1) + #Use isto para o mapa ficar proporcional + geom_point(data = Pontos_Colun, aes(x = Longit, y = Latit), + color = "red", #Escolha a cor dos pontos + size = 1, #Tamanho dos pontos + alpha = 0.8) + #Transparencia: quanto mais proximo de 1, menos transparente + geom_text_repel (data=Pontos_Colun, aes(x=Longit, y=Latit, label=Ponto))+ #Use isto para os rotulos dos pontos nao ficarem sobrepostos + theme_bw() + + labs(x="Longitude", y = "Latitude") + #De nome aos eixos + + theme(text = element_text(size=10), #Ajuste os tamanhos das fontes + plot.title = element_text(size=10, hjust=0.5), + axis.text.x = element_text(size = 10, angle=0, hjust=1), + axis.text.y = element_text(size = 10, angle=0, vjust=1), + axis.title.x = element_text(size = 10, angle=0), + axis.title.y = element_text(size = 10, angle=90)) +plot(assentamento) + +``` + + + +referências +Morkdown + +Foi escrito com base em + diff --git a/tutoriais/Tutorial_2_Baixar _Inserir _Camadas.Rmd b/tutoriais/Tutorial_2_Baixar _Inserir _Camadas.Rmd new file mode 100644 index 0000000..77f29e8 --- /dev/null +++ b/tutoriais/Tutorial_2_Baixar _Inserir _Camadas.Rmd @@ -0,0 +1,372 @@ +--- +title: "Arquivos com informações do assentamento" +author: "Adenor Vicente Wendling" +date: "24/02/2021" +output: + html_document: + toc: true + toc_float: true + theme: united + highlight: zenburn + df_print: paged +--- + +```{r setup, include=FALSE} +knitr::opts_chunk$set(echo = TRUE) +``` + +# Introdução +A elaboração de projetos no software Qgis está sendo facilitada diariamente, através da disponivilização de arquivos e banco de dados em inúmeros formatos e sites. + + +Um projeto deve ser o mais preciso prossível. Por isso, a fonte de dados é importante. ńúmeras bases de dados com informações reevantes estão dispinívies para uso gratuito, em bancos de dados públicos ou privados. + +Antes de mais nada, entretanto, é necessário instalar o QGIS em seu PC. + + +## Instalação do Qgis. + +QGIS é um aplicativo profissional de georeferenciamento, construído sobre Software Livre e de Código Aberto (FOSS). Possui um volume imenso de documentação, em Inglês, e traduzido em parte ou no todo para inúmeras outras linguas, incluside para o Português. +O Qgis permite criar, editar, visualizar, analisar e publicar informações geoespaciais no Windows, Mac, Linux, BSD e dispositivos móveis. Estamos utilizando atualmente a versão 3.16.1. + +### Instalação em Linux Ubuntu/debian + +Neste tutorial serão apresentados os passos para instalar o QGIS estável mais recente (3.16.x Hannover) em seu Debian ou Ubuntu sem ter que editar os arquivos de configuração. +A instalação será através do 'terminal', usando os códigos na sequência + +1 - Primeiro instale algumas ferramentas de que você precisará para estas instruções: + +```sudo apt install gnupg software-properties-common``` + +2 - Agora instale a chave de assinatura QGIS, para que o software QGIS do repositório QGIS seja confiável e instalado: + +```wget -qO - https://qgis.org/downloads/qgis-2020.gpg.key | sudo gpg --no-default-keyring --keyring gnupg-ring:/etc/apt/trusted.gpg.d/qgis-archive.gpg --import ``` + +```sudo chmod a+r /etc/apt/trusted.gpg.d/qgis-archive.gpg``` + +3- Adicione o repositório QGIS para o QGIS estável mais recente (3.16.x Hannover). + +*Observação: “lsb_release -c -s” nessas linhas retornará o nome da sua distribuição:* + +```sudo add-apt-repository "deb https://qgis.org/debian `lsb_release -c -s` main"``` + +>É importante conferir se o anterior comando atualiza a versão do sistema operacional. Em PureOs, esse comando atualiza o nome da versão (amber) mas não atualiza o Qgis. Como dito sistema operacional é baseado em Debian 10 (Buster), usuários de dito sistema devem editar manualmente a lista de repositórios. + +> Isso pode ser feito usando o editor nano na pasta onde se encontra dita lista: + +`su nano /etc/apt/sources.list` + +> Dentro do editor pode ser incluidas as seguintes linhas para sustituir a versão de PureOs (amber) por "buster": + +`deb https://qgis.org/debian buster main` +`deb-src https://qgis.org/debian buster main` + +4 - Atualize as informações do seu repositório para refletir também o recém-adicionado QGIS: + +```sudo apt update``` + +5 - Agora instale o Qgis: + +```sudo apt install qgis qgis-plugin-grass``` + +*É provável que o instalador solicite autorização para instalar vários outros aplicativos, e a recomendação é aceitar todas.* + +### Instalação em Windows + +Para instalar o Qgis no windows, baixe o instalador Standalone, da última versão e de acordo com sua estrutura em bits, do endereço e + + +# Instalação de Plug-ins (complementos) + +Para facilitar nossa vida, será utilizado a palavra "complemento" que tem o mesmo significado de "plug-in" +Os complementos QGIS adicionam funcionalidades adicionais ao aplicativo QGIS. De acordo com a atividade a ser exercida, poderá ser necessário, ou mais conveniente a utilização do um complemento específico. É o caso da inserção de uma camada com vista aérea, muito util para visualizar uma propriedade ou gleba. Ou do complemento Qad, importante para a elaboração da divisão de área. + +Existe uma coleção de complementos prontos para serem usados, disponíveis para download. Esses complementos também podem ser instalados diretamente do *gerenciar e instalar complementos*, no QGIS. Antes de iniciar a instalação de complementos, é necessário configurar o gerenciador, com os seguintes passos. + +```Clique no menu **Complementos**``` + +Na nova janela, selecione a opção *Mostrar também os componentes experimentais*,(imagem 2) e se for do seu interesse, selecione também a opção *verificar se há atualizações ao iniciar* + +![Imagem 2 - Janela de opções do menu complementos](../imagens/opcoesGerenciarComplementos.png) + +## Instalação do complemento QuickMapService + +O complemento *QuickMapService* possibilita, entre outras coisas, que se adicione uma camada web (mapas online) a um projeto do QGIS. Estas camadas provém de serviços online de mapeamento, como Google Earth, Google Maps, OpenStreetMap, entre outros. + +Para instalar esse complemento, ```Clique no menu **Complementos**```. + +Na nova janela, clique na opção *Tudo*, e digite *"Quick"* na linha de busca. Em seguida, selecione "QuickMapService" na lista dos complementos, e clique em *Adicionar*. Feita a instalação, feche esta janela, e o complemento já estará pronto para uso. + +Para visualizar alguma imagem de satélite, selecione a opção *Web*, em sequida *QuickMapService* e finalmente a imagem de interesse. + +Muitas vezes a imagem do naõ facilita a seleção do local específico (**por exenplo - é difícil encontrar a região de Palmas, no Paraná, sem auxilio de outros mapas**). Para isso, a opção *OpenStreetMap* auxilia muito. Para apresentá-la no visor, selecione *XYZTiles* e em seguida *OpenStreetMap*, na aba *NAVEGADOR* (Imagem 3). + +![Imagem 3 - Apresentar a camada do OpenStreetMap no visor](../imagens/inicio4.png) + + +# Bancos de dados. + +Existem inúmeros sites que disponibilizam arquivos em formatos vetorial ou Raster gratuitamente. + +O site paresenta uma coletâne dos principais mapas disponibilizados, com seus respectidos links. Pela abrangência de detalhamento dos dados, não há necessidade de repetí-los aqui. + +## Divisão política e administrativa + +Para usar os vetores da divisão política administrativa, onde se encontram os mapas dos estados e munícípios, recomendo utilizar os mapas do IBGE. Sempre inicio os projetos visualizando o mapa do brasil e a divisão político administrativo, pois acho que facilita a localização. + + +## Delimitação da área dos assentamentos. +Para a delimitação dos assentamentos que serão trabalhados no nosso exemplo, podemos utilizar os mapas do INCRA, no link . O site oferece a opção de selecionar o estado e tipo de dados. + + +## CAR - Cadastro ambiental rural +Para os dados que atendem as questões ambientais legais, o governo disponibiliza o CAR, cadastro ambiental rural. +Os dados estão disponíveis no endereço e estão divididos por estados e municípios. + +## Características do terreno +O acesso aos dados - imagens rasters - são através do link abaixo: . Neste banco de dados podemos obter dados de: altitude, declividade, orientação, relevo sombreado, com resolução de 30 x 30 m. + +## Curvas de nível - elevação +O exerxito brasileiro oferece inúmeros dados através de mapas, sendo o mais importante para elaborar o estudo da área dos assentamentos é o mapa de elvação (curvas de nível do terreno), no link . É preciso preencher um cadastro, mas os dados são públlicos e após o cadastro, facilmente obtidos no site. + +# Inserir as camadas desejadas no QGIS +## Divisão política e administrativa +## Delimitação da área dos assentamentos. +## CAR - Cadastro ambiental rural + +Depois de baixado, os arquivos devem ser descompactados, e armazenados em local específico, para seu uso. + +### Os dados +Os dados disponibilizados estão divididos em vários grupos, conforme se visualiza na imagem 1. +![Imagem 1 - Tela com os grupos de informaões do CAR](../imagens/CAR1.png). + +### Inserir dados no projeto. +Para inserir os dados dos arquivos no projeto, deverão ser seguidos os seguintes passos + +Primeiro, selecione `Camada` no menu, e depois, `AdicionarCamada` e finalmente, `adicionar camada vetorial` (Figura 2). + +![Imagem 2 - Passoas para inserir camada vetorial](../imagens/insesirVetor1.png). + +Na janela que se abre (Figura 3), faze-se necessário escolher o caminho em `base(s) de vetores`, e clicar em `Adicionar` seguido do clique em `close`. A camada será mostrada na janela do Qgis, conforme figura 4. + +![Imagem 3 - Passoas para inserir camada vetorial -Janela](../imagens/insereVetor2.png). + +![Imagem 4 - Camada inserida na janela do Qgis](../imagens/camada inserida.png). + +### Extrair área de interesse +Ao inserir a camada com algum vetor da base de dados do `CAR`, ela será de todo o município. Quando a área de interesse não for de todo o município, poderão ser extraídos apenas os vetores da área de interesse. Para isso é necessário ter o vetor da área de interesse já defenido, e inserido nas camadas da janela de visualizaao do Qgis. +No nosso caso, a área de interesse é a área toral do assentamento São Lourenço, cujo vetor tem o nome de `Assentamento_SL`. + +### Alterar SRC +Para a correta funcionalidade da apresentação dos mapas, é fundamental que todos esteja com a mesma referencia geográfica, representada no `SRC`. Caso o SRC do mapa inserido seja diferente do mapa já existente, ou do SRC do projeto, é necessário alterar o mesmo. +Para alterar o SRC da camada raster, clique em **Raster** no menu principal, depois em **Projeções** e em seguida em **Reprojetar coordenadas**, conforme mostrado na Figura 3. + +![Figura 3 - Reprojetar SRC](../imagens/alterar_SRC_raster.png) + +Na janela da reprojeção, selecione a camada cuja SRC você queira alterar, e os demais campos disponíveis: SRC de origem, SRC de destino, e *sem compactação* conforme mostra a Figura 4. + +![Figura 4 - Reprojeção do SRC de camada raster](../imagens/alterar_SRC_raster2.png) + + +#### Salvar camada com SRC reprojetado +Após essa Reprojeção, aparecerá uma nova camada no Qgis. é importante que você salve esta nova camada em um local conhecido. + +![Figura 5 - salvar camada Raster](../imagens/SalvarCamadaRaster.png) + +#### Remover arquivos desnecessários +Salvo o arquivo, você pode remover as camadas rasters anteriores para evitar confusão, conforme figura 6. + +![Figura 6 - Remover camada não necessária](../imagens/RemoverCamada.png) + + +A extração dos vetores da área de interesse pode ser feita com o comando `extrair vetor com máscara de entrada`, selecionada diretamente na caixa de ferramentas, ou seguindo os passos a seguir. + +## Características do terreno +# Obtenção dos dados + +## O Topodata + +A seguir tem uma pequena transcrição sobre os dados do topodata. "O projeto Topodata oferece o Modelo Digital de Elevação (MDE) e suas derivações locais básicas em cobertura nacional, ora elaborados a partir dos dados SRTM disponibilizados pelo USGS na rede mundial de computadores. + +Desde que o Topodata foi lançado pela primeira vez, em agosto de 2008, o processamento dos dados foi sucessivamente inspecionado e revisado, com vistas a aprimoramentos e correções. Os dados inicialmente disponibilizados seguiram fielmente as opções e especificações constantes no “Guia de utilização” associado ao Topodata. Porém, problemas na articulação entre folhas e a demanda por mais formatos levaram a um novo tratamento dos dados desde sua preparação, e detalhes do processamento de derivação geomorfométrica foram oportunamente melhorados, e estes novos produtos estiveram disponíveis desde o dia 6 de maio de 2009. + +Para possibilitar uma futura expansão do Topodata, foi feita uma nova revisão dos produtos e processos, que culminou numa metodologia passível de aplicação onde quer que existam dados SRTM. Os dados atualmente disponíveis, desde novembro de 2011, foram elaborados em fiel correspondência a estes procedimentos."Fonte + +O acesso aos dados - imagens rasters - são através do link abaixo: . Neste banco de dados podemos obter dados de: altitude, declividade, orientação, relevo sombreado, com resolução de 30 x 30 m. + +## Formato e descrição doss arquivos +Os arquivos das imagens de declividade, altitude,orientação, relevo e curvaturas, são em formato disponibilizados em .gif. +A nomemnclatura segue um padrão, sendo: +Os primeiros dois números representam a latitude da imagem; +A letra S significa latude sul, e a letra N significa latitude Norte; +Os três últimos números são da longitude. +As letras finais indicam a finalidade da imagem, sendo: +`**ZN** para altutude` +`**SN** para Declividade` +`**ON** para Orientação` +`**OC** para Orientação octante` +`**RS** para Relevo sombreado` +`**VN** para Curvatura Vertical de 3 classes` +`**H3** representa imagens de curvatura Horizontal de 3 classes.` + +## Passos para Baixar o arquivo de interesse + +Os arquivos são acessados com facilidade, sem necessidade de conta ou cadastro. Clique na área de interesse, e a seguir, no arquivo de interesse. **feito** + +Descompacte o arquivo, e o salve em local conhecido. É importante ter uma boa organização nos arquivos, com pastas separadas para arquivos originais, em edição e finalizados. + +# Agora no qgis + +## Inserir o arquivo + +Através do caminho apontado na Figura 1. + + +![Figura 1 - Adicionar camada Raster](../imagens/inserir_Camada.png) + +```{r} + +``` + +Na tela que se abre, busque o arquivo baixado. Clique em **Adicionar** e em seguida em **close**. +A imagem estará adicionada como uma nova camada, e provavelmente estará visivel (como primeira camada). Caso não seteja visível, mova a camada para o topo da lista das camadas. + + +![Figura 2 - Visualização da imagem raster de altitude](../imagens/visual_raster.png) + + +Os arquvos raster do topodata estão com o SRC EPSG 4674, que é o formato SIRGAS 2000, oficial para a Amárica Latina. Esta informação pode ser obtida, clicando em **propriedades** e depois em **informações**. Quando nosso projeto está sendo elaborado em outro SRC, todos as camadas devem ser reprojetadas para este SRC. No nosso caso, estamos trabalhando com o SRC 31982. + +## Alterar SRC + +Para alterar o SRC da camada raster, clique em **Raster** no menu principal, depois em **Projeções** e em seguida em **Reprojetar coordenadas**, conforme mostrado na Figura 3. + +![Figura 3 - Reprojetar SRC](../imagens/alterar_SRC_raster.png) + + +Na janela da reprojeção, selecione a camada cuja SRC você queira alterar, e os demais campos disponíveis: SRC de origem, SRC de destino, e *sem compactação* conforme mostra a Figura 4. + + +![Figura 4 - Reprojeção do SRC de camada raster](../imagens/alterar_SRC_raster2.png) + + +### Salvar camada com SRC reprojetado +Após essa Reprojeção, aparecerá uma nova camada no Qgis. é importante que você salve esta nova camada em um local conhecido. + +![Figura 5 - salvar camada Raster](../imagens/SalvarCamadaRaster.png) + +### Remover arquivos desnecessários +Salvo o arquivo, você pode remover as camadas rasters anteriores para evitar confusão, conforme figura 6. + +![Figura 6 - Remover camada não necessária](../imagens/RemoverCamada.png) + + +Agora podemos iniciar os recorte da camada, já que possuem a mesma SRC. + + +## Recortar a área do raster + +A estas alturas, você já deve ter delimitado sua área de interesse, conforme já mostramos aqui neste repositório [Veja o documento - Como criar shapefile](CriarShapefilePRV.Rmd). +Para facilitar os trabalhos, e não sobrecarregar o computador, é recomendável recortar o raster de acordo com a área de interesse, que geralmente é muito menor do que todo o arquivo raster . + +Na janela para definir os parâmetros do recorte, fique atendo para selecionar os parâmetros apontados na figura 7. + +![Figura 7 - Extrair raster - passos da definição dos parâmetros](../imagens/RecortarRaster_Camada.png) + +Executado o comando do recorte, aparecerá mais uma camada na tela do QGIS, agora delimitada de acordo com os parâmetros utilizados. A camada recém criada, provavelmente apresentará pontos com altitute igual a zero (em preto). Esses pontos serão removidos durante o processo de salvamento, seguindo os passos conforme figura 8. Veja, que na aba de salvar o arquivo, selecionamos o atributo **nenhum valor de dados** e inserimos os valores a serem desconsiderados na camada salva. No nosso caso, é a altitude zero que deverá se desconsiderada. + +![Figura 8 - Salvar arquivo com SRC reprojetado](../imagens/salvar_raster_reproj.png) + +A camada terá aspectos identicos aos da figura 9. + +![Figura 9 - Imagem do raster recortado](../imagens/RasterAposRecorte.png) + +# Configurar a camada para visualização. +A configuração consiste em atribuir cores para as diferentes camadas, de acordo com as minhas necessidades. Existe um "padrão" de paleta de corres, elaboradas pelo INPE, que podem (e devem) ser utilizados para manter o padrão e o profisionalismo do projeto. +Abaixo cópia de trechos do site para obtenção e aplicação de palheta de cores para altitudes. + +`Para comemorar os 18 meses em operação do Mapa Índice TOPODATA é com satisfação que disponibilizamos um conjunto de arquivos QML para serem usados no software QGIS com dados do projeto TOPODATA.` + +`Estes arquivos definem rampas de cores para o tema Altitude e foram elaborados a partir da adaptação dos valores de elevação e regras de cores contidos nos esquemas de cores SRTM, Terrain, Atlas Shader e ETOPO2 provenientes do software GRASS ( função r.colors ).` + +1. Faça o download e extração dos arquivos QML +2. Na lista de camadas(layers), clique com o botão direito no layer correspondente ao .tif e selecione a opção "Propriedades". +3. Depois clique no botão "Carregar estilo" e selecione o arquivo .QML correspondente ao estilo que você deseja aplicar e depois clique no botão OK. Veja a Figura 10. + +![Figura 10 - Escolher estilo para cores de altitude](../imagens/escolher_estilo.png) + + +Depois de carregado o estilo adequado - no caso de altitude, o estilo **qgis4TopodataBrasil_Etopo2.qml** - é necessário fazer algumas adequações para o local, como por exemplo: Definir o modo de distribuição das cores - *o modo intervalos iguais* parece mais adequados; e o número de classes, conforme demostrado na Figura 11. + +![Figura 11 - configurações finais do estilo de palheta de cores](../imagens/definir_caract_estilo.png) + +# A imagem Final +Após esses passos, você tera finalizado a importação e a configuração da camada de altitude do projeto. Para visualizar individualmente a altitude de cada ponto, basta clicar no ícone **Identificar feições**, e depois no ponto de deseja verificar. As definições deste ponto aparecerão no lado direito, ao alto na janela, conforme demonstrado na figura 12. + +![Figura 12 - Visualização final da Camada de altitude, com as devidas configuraçõẽs com a palheta de cores importada do INPE](../imagens/RasterAltitudeFinal.png) + + + +## Curvas de nível - elevação + +# Impressão dos mapas +No processo de elaboração dos mapas do Assentamento São Lourenço, foram inseridos os rasters de altitude e orientação do terreno, conforme roteiro apresentado acima. +A inserção desses dois rasters gera dois mapas distintos, já que não é possível mesclar os dois mapas numa só visialização (ou pelo menos não tem funcionalidades). + +### Adicionando itens ao layout +A impressão dos mapas, em formato vários formatos, pode ser feito através do `layout de impressão`, que pode ser acessado através do menu `Projeto`. +> O primeiro passa é atribuir um nome ao nome do layout (Figura 13). Lembre-se que para o mesmo projeto podem haver vários layouts. + +![Figura 13 - Promt para atribuir nome ao novo layout ](../imagens/tituloLayout.png) + +>>** Não nos preocupamos neste momento com as configurações de cada adição. Isso será tratado no próximo capítulo.** + +> O segundo passo, é desenhar (demarcar) as mimensões do mapa dentro da "folha", clicando no botão `Adicionar mapa`, conforme marcado com o ńumero 1 na figura 14. + +![Figura 14 - Página nova do layout de impressão](../imagens/LayotPagNova.png) + +> O terceiro passo, é o ajuste do mapa dentro da área demarcada. Para ajustar o zoom ou deslocar a área interna do mapa, clica-se no botão `mover o conteúdo do item`. Para ajustar o item (a demarcação), clica-se no botão `selecionar/mover item`, conforme demonstrado na figura 6. + +> O quarto passo é a inserção de Barra de escala e seta norte, se for o caso. Para inserir a barra de escala, clica-se no botão `Inserir Barra Escala`, e para inserir a seta norte, clica-se no botão `Inserir Seta Norte`, conforme figura 14. +> O quinto passo é a inserção do Título do mapa, que será feito clicando no botão `Adicionar Rótulo`. +> O sexto passo será inclusão da Legenda, clicando no botão `Adicionar Legenda`. + +### Configuração dos itens adicionados +Depois de adicionados os itens, deve-se dedicar um tempo para sua edição, conforme será visto a seguir. +Basicamente, as edições são reallizadas nas ferramentas dispostas no lado direito da tela do layout (Figura 15). Na parte superior vê-se a janela dos itens adicionados, e do meio para a parte inferior, a parte dos modelos e das propriedades de cada item. Ao selecionar um item, as propriedades do mesmo aprecem nesta parte, e é aí que se fazem as configurações. +Na aba do item, pode-se selecionar os que aparecerão na impressão, e bloquear a edição do item. Para bloquear a edição do conteúdo do interior do item, é preciso acessar a aba abaixo, de propriedades do item. + +![Figura 15 - Janela do layout de impressão, com destaque para a área de configurações dos itens](../imagens/LayoutConfigura.png) + +#### Configurações do Mapa +O primeiro item adicionado, também poderá ser o primeiro a ser configurado. Ao clicar no item `mapa 1` e selecionar a aba `propriedades do item`, são mostradas as configurações possíveis, como: Escala, SRC, rotação, travar camadas, travar estilo, grades, enquadramento, posição e tamanho, moldura, etc. +Neste exemplo, iremos incluir uma moldura, e travar as camadas. **Depois de travar as camadas, posso incluir outro mapa, com outro tema, sem prejuízos ao mapa atual**. + +#### Configurações da legenda +Ao inclui a legenda, aparece a legenda de todas as camadas existentes no arquivo do projeto, o que geralmente não é o desejável. +Pode-se atribuir um Título ao mapa, com as configurações necessárias do título do mapa. No exemplo foi adicionado o título *Legenda*. +Em seguida, é necessário selecionar a qual mapa a legenda se relaciona (neste caso, ao mapa 1). +Em relação ao aranjo, selecionamos *simbolos à esquerda* (Figura 16). + +![Figura 16 - Primeira parte da configuração da legenda](../imagens/LayoutConfLegenda.png) + +Em relação aos itens da legenda, temos a modificação mais importante e substancial a ser feita. Aqui vamos selecionar e renomear (se necessário) aquilo que irá aparecer na impressão final. +Se não queremos que apareça tudo o que estiver aparecendo até agora na legenda, deslececiona-se o "combo" `Atualização automática` (Figura 17). +Em seguida, seleciona-se o item que será modificado, ou excluído. No exemplo, serão mantidos apenas os itens `app_Assenta_Car, Hrido_SL e Assentamento_SL`. que serão ainda editados. Para excluir os demais itens, os mesmos foram selecionados, e em seguida foi clicado no botão **-** na parte inferior da janela. Para editar (renomear) os itens que permanecem na legenda, basta clicar no mesmo, e em seguida no botão *editar* na parte inferior da janela. + +![Figura 17 - Segunda parte da configuração da legenda](../imagens/LayoutConfLegenda2.png) + +#### Configuração da barra de escala +A barra de escala geralmente também necessita de alterações, pois suas configurações depende do tamanho da área do mapa. O primeiro passo e certificar-se de que está relacionada ao mapa correto, neste caso, com o mapa 1. A escolha do estilo é muito próprio de cada um, e no exemplo foi selecionado o estilo de `linhas tracejadas do meio`. +Em relação às unidades, podemos aqui trabalhar com metros, ou km. Foi escolhido a opção em Quilômetros, por ser mais adeuqada, mas a escolha depende de cada caso em específico. O mesmo é recomendado para as demais especificações. No exemplo, definiu-se por 2 segmentos à direita, a divisão em 0,5 unidades (0,5 km) (Figura 18). + +![Figura 18 - Seleção das especificidades da barra de escala](../imagens/Layt_Esc_Seg.png). +#### Configurações do Título +A última configiração necessária para este mapa, é a fonte do título. Atribuimos fonte 12, além de fazer o alinhamento necessário para corresponder ao tamanho do mapa. + +## Impressão do Mapa +Para imprimir o mapa, temos a opção de imprimir em impressora, ou em formato pdf, SVG ou png. A opção, para inserir o impresso neste script, foi `APP impressão.png` (Figura 19) com resolução de 100 dpi (para não pesar muito). + +![Figura 19 - Impressão do mapa eleaborado conforme roteiro descrito no script](../imagens/APP impressao.png) + + diff --git a/tutoriais/Tutorial_4_Calculos de Porcentagem.Rmd b/tutoriais/Tutorial_4_Calculos de Porcentagem.Rmd new file mode 100644 index 0000000..b786942 --- /dev/null +++ b/tutoriais/Tutorial_4_Calculos de Porcentagem.Rmd @@ -0,0 +1,352 @@ +--- +title: "Cálculos da ocupação de áreas por indicadores específicos" +author: "Adenor Vicente Wendling" +date: "23/02/2021" +output: + html_document: + toc: true +--- + +```{r setup} +knitr::opts_chunk$set(echo = TRUE) +``` + +```{r} +library(knitr) +library(tidyverse) +library(readr) +``` + +# Introdução +O presente script (tutorial), tem como finalidade demonstrar um método para calcular os dados das imagens do projeto doAssentamento SL. +Quero calcular: +`Porcentagem de APP ` +`Porcentagem de Mata Nativa` +`Porcentagem de área para cada orientação` + +## Calculo Porcentagem de cada altitude +Para esse cálculo, será utilizado a Camada Raster `Altitude_SL`, que já está com dados da área do Assentamento. +Da mesma forma como está representado na camada, será calculado a porcentagem para 10 grupos de altitudes. +Para realizar o cálculo, segue-se os seguintes passos: +1 - Na `Caixa de ferramentas de processamento` busco pelas opções, digitando "Report" na linha de busca. +2 - Seleciona-se o comando `r.report`. +3 - Na janela do será aberta (Imagem 1), seleciona-se o raster com o qual queremos realizar os calculos. + +![Imagem 1 - Janela r.report, para definição dos procedimentos de calculo](../imagens/janela_Report1.png) + + Ao clicar em `...`, abre-se uma nova janela (Imagem 2), com as camadas rasters do projeto, onde deve ser selecionada a camada correspondente. No exemplo, foi selecionado o raster `Altitude_SL`. + + +![Imagem 2 - Janela r.report, seleção da camada raster com os quais serão realizados os cálculos](../imagens/Selec_Raster_Report.png) + +As demais opções a serem selecionados aparecem na Imagem 1 e 3. Na opção `unidades` (figura 1) foi selecionado a opção **me** que calcula os dados em **metros quadrados**. Mas tem as opções de *h* para *hectares*, entre outras. +Não opç~oes de comprimento e largura de págnina não é necessário alterar. +Na opção `Número de subfaixas fp para coletar estatísticas de` é necessário selecionar o número de grupos a serem calculados. Para a altutude, como já mencionado acima, foram selecionados 10 grupos. No entanto, podem ser selecionados outros valores, de acordo com o interesse de cada projetista. +No final da janela, na última linha, é necessário (importante) selecionar o caminho e definir o nome do arquivo de saída dos dados, que será em arquivo do tipo txt. +Pronto. Estão definidas as especificações, e só resta clicar em executar, para rodar os cálculos. + + + + + +![Imagem 3 - Janela r.report, para definição das especificações dos cálculos e arquivo a ser gerado](../imagens/janela_Report2.png) + +O resultado será em formato .txt. que podem ser importados e manipulados aqui no R. + +```{r} + +Alt_estatistica <- read_delim("data/Alt_estatistica.txt", "|", escape_double = FALSE, col_names = FALSE, + trim_ws = TRUE, skip = 4) +#View(Alt_estatistica) +``` + + + +Porém, é necessário manipular o nome das colunas, para ser possível trabalhar com os dados. + +```{r, include=TRUE} + +Altitude_SL<-Alt_estatistica%>% + filter(X3=="from to . . . . . . . . . . . .")%>% + select(X2,X4)%>% + transmute( + De_Ate=X2, + Metro_Quad=X4, + Ha=X4/10000, + Porcentagem=X4/ sum(X4) *100, + )%>% + tidyr::separate(De_Ate, into=c("De","Até"), sep="-", remove="TRUE" )%>% + mutate( + Alt_Menor = as.numeric(De), + Alt_Maior = as.numeric(Até) +) +view(Altitude_SL) +``` + + +## A tabela com os dados + +```{r kable_a_dados} + +kable(Altitude_SL[ ,3:6 ], + format = "simple", + digits = 1, + padding = 2, + caption = "1 - Quantidade de metros quadrados de área de cada altitude, no assentamento Sâo Lourenço") +``` + + Os dados são os seguintes: A menor área está em altitude de `r min(Altitude_SL$De_Ate)` metros acima do nível do mar (ANM) com `r min(Altitude_SL$Ha)` hectares de área, ou seja, **`r min(Altitude_SL$Porcentagem)`** porcento da área total. +A maior área está em altitude de `r max(Altitude_SL$De_Ate)` ANM, com `r max(Altitude_SL$Ha)`ha de área, ou seja, `r max(Altitude_SL$Porcentagem)` porcento da área total. + +```{r} +Grafico1 <-ggplot(Altitude_SL, aes(x=Alt_Menor, y=Porcentagem))+ +geom_col(col="red",fill="blue" )+ + theme_bw()+ + theme(axis.text = element_text( + size=12, + face=3) + )+ + xlab("Altitude (m)") + +Grafico1 +ggtitle("Gráfico 1: Distribuição das terras de acordo com a altitude, no Assentamento São Lourenço") + +``` + +# Dados de Orientação +Os dados de orientação mostram para qual quadrante a área está inclinada. +Será usado o arquivo raster `Orientacao_SL`, e a saída em txt gerada pelo comando `r.report` do Qgis. +> Para a importação correta deste arquivo, deletei as linhas do cabeçalho em editor de texto. + +```{r} +Orient_NEst <- read_delim("data/Orient_NEst.txt", + "|", escape_double = FALSE, col_names = FALSE, + trim_ws = TRUE, skip = 1) +View(Orient_NEst) +``` + + + +Porém, é necessário manipular o nome das colunas, para ser possível trabalhar com os dados. + +```{r, include=TRUE} + +Altitude_SL<-Alt_estatistica%>% + filter(X3=="from to . . . . . . . . . . . .")%>% + select(X2,X4)%>% + transmute( + De_Ate=X2, + Metro_Quad=X4, + Ha=X4/10000, + Porcentagem=X4/15215421*100, + )%>% + tidyr::separate(De_Ate, into=c("De","Até"), sep="-", remove="TRUE" )%>% + mutate( + Alt_Menor = as.numeric(De), + Alt_Maior = as.numeric(Até) +) +view(Altitude_SL) +``` + + +## A tabela com os dados + +```{r kable_dados} + +kable(Altitude_SL[ ,3:6 ], + format = "simple", + digits = 1, + padding = 2, + caption = "1 - Quantidade de metros quadrados de área de cada altitude, no assentamento Sâo Lourenço") +``` + + Os dados são os seguintes: A menor área está em altitude de `r min(Altitude_SL$De_Ate)` metros acima do nível do mar (ANM) com `r min(Altitude_SL$Ha)` hectares de área, ou seja, **`r min(Altitude_SL$Porcentagem)`** porcento da área total. +A maior área está em altitude de `r max(Altitude_SL$De_Ate)` ANM, com `r max(Altitude_SL$Ha)`ha de área, ou seja, `r max(Altitude_SL$Porcentagem)` porcento da área total. + +```{r} +Grafico1 <-ggplot(Altitude_SL, aes(x=Alt_Menor, y=Porcentagem))+ +geom_col(col="red",fill="blue" )+ + theme_bw()+ + theme(axis.text = element_text( + size=12, + face=3) + )+ + xlab("Altitude (m)") + +Grafico1 +ggtitle("Distribuição das terras de acordo com a altitude, no Assentamento São Lourenço") + +``` + +# Dados de Orientação +Os dados de orientação mostram para qual quadrante a área está inclinada. +Será usado o arquivo raster `Orientacao_SL`, e a saída em txt gerada pelo comando `r.report` do Qgis. + +```{r} +Orient_NEst <- read_delim("data/Orient_NEst.txt", + "|", escape_double = FALSE, col_names = FALSE, + trim_ws = TRUE, skip = 1) +#View(Orient_NEst) +``` + + +```{r, include=TRUE} + +Orient_NEst<-Orient_NEst%>% + filter(X3=="from to . . . . . . . . . . . . .")%>% + select(X2,X4)%>% + transmute( + De_Ate=X2, + Metro_Quad=X4, + Ha=X4/10000, + Porcentagem=X4/15163779*100, + )%>% + tidyr::separate(De_Ate, into=c("De","Até"), sep="-", remove="TRUE" )%>% + mutate( + Orient_Menor = as.numeric(De), + Orient_Maior = as.numeric(Até) +)%>% + arrange(Orient_Menor) + +str(Orient_NEst) +``` + + +## A tabela com os dados + +```{r kable_b_dados alt} + +kable(Orient_NEst[ ,6:3 ], + format = "simple", + digits = 1, + padding = 2, + caption = "1 - Quantidade de metros quadrados de área de cada altitude, no assentamento Sâo Lourenço") +``` + + + +```{r} +library(plotrix) + +OrietNames<-c("N","NW","W","SW","S","SE", "E", "NE") +OrientaHa<-Orient_NEst$Ha + +radial.plot(OrientaHa,labels=OrietNames,rp.type="r",label.prop=1.1, main="Área (ha) conforme orientação, do assentamento São Lourenço", + grid.unit="Ha",poly.col="green",radial.lim=c(0,250),show.grid.labels=1, + line.col = "red", lwd=5, grid.col = "blue") + +``` + + +# Capacidade de uso +## segundo LEPSCH et al., 1991 +Para o calculo da declividade foi utilizado o arquivo topodata Decliv(B), que apresenta os dados conforme as Classes de capacidade de uso -definem o grau de limitação do uso (I, II, III, IV, V, VI, VII e VIII): + +Classe I: terras cultiváveis, aparentemente sem problemas especiais de conservação; + +Classe II: terras cultiváveis com problemas simples de conservação; + +Classe III: terras cultiváveis com problemas complexos de conservação; + +Classe IV: terras cultiváveis apenas ocasionalmente ou em extensão limitada, com sérios problemas de conservação; + +Classe V: terras adaptadas em geral para pastagens e/ou reflorestamento, sem necessidade de práticas especiais de conservação, cultiváveis apenas em casos muito especiais; + +Classe VIII: terras impróprias para cultura, pastagem ou reflorestamento, podendo servir apenas como abrigo e proteção da fauna e flora silvestre, como ambiente para recreação, ou para fins de armazenamento de água (LEPSCH et al., 1991). + +### Buscando os dados +```{r message = FALSE, echo = TRUE, comment=FALSE, warning=FALSE} + +Declive_B<- read_delim("data/declive_b.txt", + "|", + escape_double = FALSE, + col_names = FALSE, + trim_ws = TRUE, + skip = 4) +View(Declive_B) +``` + + +### organizando dados +```{r, include=TRUE} + +Declive_b<-Declive_B%>% + filter(!is.na(X4))%>% + select(X2,X4)%>% + transmute( + Classe=X2, + Metro_Quad=X4, + Ha=X4/10000, + Porcentagem=X4/sum(X4)*100, + )%>% + arrange(Classe) + +head(Declive_b) +``` + + +### A tabela com os dados + +```{r kable_b_dados declive} + +kable(Declive_b, + format = "simple", + digits = 1, + padding = 2, + caption = "1 - Quantidade de metros quadrados de área de cada classe de declividade, no assentamento Sâo Lourenço") +``` + + +## Segundo Embrapa 1999 + +Classe nº | Classe de relevo | Declividade (%) +--------- | ---------------- | ------------------- +1 | Plano |0 – 3 +2 | Suave Ondulado | 3 – 8 +3 | Ondulado | 8 – 20 +4 | Forte Ondulado | 20 – 45 +5 | Montanhoso | 45 – 75 +6 | Escarpado | > 75 + + +### Buscando os dados +```{r message = FALSE, echo = TRUE, comment=FALSE, warning=FALSE} + +Declive_C<- read_delim("data/declive_c.txt", + "|", + escape_double = FALSE, + col_names = FALSE, + trim_ws = TRUE, + skip = 4) +View(Declive_C) +``` + + +### organizando dados +```{r, include=TRUE} + +Declive_c<-Declive_C%>% + filter(!is.na(X4))%>% + select(X2,X4)%>% + transmute( + Classe=X2, + Metro_Quad=X4, + Ha=X4/10000, + Porcentagem=X4/sum(X4)*100, + )%>% + arrange(Classe) + +#head(Declive_c) +``` + + +### A tabela com os dados + +```{r} + +kable(Declive_c, + format = "simple", + digits = 1, + padding = 2, + caption = "1 - Quantidade de metros quadrados de área de cada classe de declividade, conforme classificação da Embrapa (1991) no assentamento Sâo Lourenço") +``` + + diff --git a/tutoriais/Tutorial_5_interpolaçao.Rmd b/tutoriais/Tutorial_5_interpolaçao.Rmd new file mode 100644 index 0000000..3a9ecff --- /dev/null +++ b/tutoriais/Tutorial_5_interpolaçao.Rmd @@ -0,0 +1,53 @@ +--- +title: "Interpolaçao dedados de fertilidade" +author: "Adenor Vicente Wendling" +date: "28/07/2021" +output: html_document +bibliography: ../Fruti.bib +csl: ../abnt.csl +--- +# Introdução + +>> Adenor - ver e +o livro "QGIS Desktop 3.16 User Guide", pag 801. + + +Com o avanço da tecnologia e do uso de ferramentos de georeferrenciamento e estatística, surge também a possibilidade de melhorar a capacidade de uso e interpretaçao de dados volumosos. Provém daí também a agricultura de precisão, onde existe uma forte dependência do conhecimento das condições climáticas e do solo, e, consequentemente do uso de ferramentas, como o QGIS, para auxiliar no uso dos dados. + +Enquanto que na agricultura convencional pressupoẽ-se que as áreas de cultivo são uniformes numa mesma gleba, na agricultura de precisão busca-se as causas da variabilidade dos parâmetros do solo que influenciam a produtividade das culturas, dentro da mesma gelba @CQFSRS. Ou seja, na agricultura convencional pressupõe-se coletas de solo por gleba ou região homogenea, e na agricultura de precisão são realizadas amostras de solo georeferenciadas em inpumeros pontos desta mesma gleba ou área homogenea. + + +É impossível (até o momento - julho 21) ter uma avaliacão perfeita do solo onde se cultivam as lavouras, sendo ainda usado uma amostragem espacial para caracterizar as características do solo. Quanto maior a capacidade de amostragem do solo, mais eficiente será a interpretação e uso dos dados, todavia, com as limitações ainda existentes, usa-se ferramentas para diminuir os erros decorrentes da falta da amostragem plena. + +Com os dados das inúmeras amostras de solo georeferenciadas, gera-se os mapas de fertilidade através da interpolação de dados. São os assim chamados "mapas de calor". +A interpolação de dados serve para eliminar o chamado “efeito mosaico” ou “efeito xadrez” na visualização de mapas temáticos. É o uso de uma equação matemática, para estimar um conjuto de dados separados no espaço, a partir de dados espaciais conehecidos. Ou seja, os dados conhecidos serão utilizados para estimar os dados enexistentes. + + +Existem vários métodos de interpolaçao de dados, como a krigagem, o inverso do quadrado da distância, etc. Segundo @SILVA2008, "a krigagem faz uma descrição mais acurada da estrutura espacial dos dados e produz valiosa informação sobre a distribuição da estimativa do erro, por ser entendida como uma série de técnicas de análise de regressão que procura minimizar a variância estimada a partir de um modelo prévio, que leva em conta a dependência estocástica entre os dados distribuídos no espaço". A vantagem do métodod do "inverso do quadrado da distância" é ser mais fácil de ser utilizada. + +O Qgis possui um renderizador de "mapa de calor" que pode ser usado para estilizar uma camada de ponto em um mapa de calor através de algoritmo de processamento @Gandhi2021. + +Além disso, vários complementos estão disponíveis para o QGIS, além de sofwares/app para celulares. + +Neste tutorial, a princípios será paresentado o uso método de estimação determinística do inverso do quadrado da distância. + +# Passos para a interpolação +Existem vários complementeos de interpolação no Qgis: interpolation pelo complemento "**Feature Grid Creator** +## Elaboração do grid de amostragem +* instalar o complemente **Feature Grid Creator** +* Clique no botão "create a grid of trench or holes* (ou clique em vetor -Feature Grid Creator - create a grid of trench or holes ) + +>> Para mim foi necessário alterar a EPSG para um com UTM - usei a EPSG - 32722. Também foi solicitado selecinar a camada vetorial. + +* Selecionar a distância entre os pontos de amostragem de sua preferência. Neste tutorial foi utlizado 100 metros entre os pontos, formando um grid de uma coleta por ha. Com este intervalo amostral seriam necessárias 1527 amostras. +* Calcular as coordenadas geogŕaficas dos pontos amostrais: Com a calculadora de campo, define-se o nome da coordenada X, no formato decimal, com comprimento de 10 e precisão de 4 casas decimais. No Campo equação deve ser digitado **$x** e, com um clique em **Ok** estarão definidas as coordenadas X de cada ponto. +Em seguida, para definir as coordenadas Y, procedo os mesmos passos, apenas alterando o nome, e no campo das equações digitando **$y**. + +# Usando as ferramentas do QGIS + + + +# Referências + + + diff --git a/tutoriais/Tutorial_6_Macieira.Rmd b/tutoriais/Tutorial_6_Macieira.Rmd new file mode 100644 index 0000000..c1ea9d0 --- /dev/null +++ b/tutoriais/Tutorial_6_Macieira.Rmd @@ -0,0 +1,301 @@ +--- +title: "Recomendações adubação macieira" +author: "Adenor Vicente Wendling" +date: "06/08/2021" +output: html_document +bibliography: ../Fruti.bib +csl: ../abnt.csl +--- + +Este documento tem como finalizade buscar uma recomendação adequada para a implantação e desenvolvimento da cultura da macieira na propriedade de IFPR, em Palmas. +As características do solo e resultados da são: + +Antes da recomendação, entretanto, será feita uma busca em literatura especializada, especialmente com uso de adubações orgânicas. + +# Revisão +Artigo de [@Miele2017] analisou o uso de super fosfato triplo, e concluiu que, se houve uma adubação de correção adequada na implantação, não há aumento de produtividade com a aplicação de fosfato durante os primeiros 10 anos de produção. +[@DeSouza2013] estudaram uso de N e K²O com diversas dosagens na qualidade dos frutos mas as evidencias cosntatadas não me convenceram do seu benefício. + +No Manual de adubação e calagem para o estado do Paraná [@PR2017] não há recomendação específica para a cultura da macieira. Por isso, a base para a recomendação será o Manual de Adubação e calagem para os estados do Rio Grande do Sul e Santa Catarina [@CQFSRS/SC2004]. +Neste manual diz: "Os fertilizantes fosfatado e potássico indicados na adubação de pré-plantio devem ser aplicados a lanço na área total e incorporados na camada de zero a 20 cm de profundidade", pg 249. + +Para teores de fósforo de Baixo, que é o caso da análise em questão, a recomendação é de 100 kg de P2O5 por ha. +Para teores de potássio alto, que é o caso desta análise, recomenda-se 25kg de potássio (K2O) por ha (tabela 1). + + +É necessário anotar ainda que, na edição online da embrapa [@GilbertoNava2003] ainda constam as recomendações do manual de 1994, com dosagens muito superiores ao atual (2004). + +```{r echo=FALSE, include=FALSE, warning=FALSE} +library(readr) +Resultanalise2021 <- read_csv2("data/Resultanalise2021.csv", + skip = 4) +View(Resultanalise2021) +#head(Resultanalise2021) + +library(dplyr) +limpo<-Resultanalise2021%>% + rename( Amostra = "Amostra", + "Argila%" ="Argila_1", + pH = "pH", + P.mg="P", + K.mg= "K mg k-1", + Ca.cmol="Ca", + Mg.cmol="Mg", + Al.cmol="Al", + Na.cmol="Na", + MO.porcent="MO (%)", + H_Al.cmol="H+ Al", + K.cmol="K cmol", + CTC.pH7="CTC pH7", + CTC.efet="CTC efet", + V="V%", + m="m%")%>% + dplyr::select(Amostra, + "Argila%", + pH, + P.mg, + K.mg, + Ca.cmol, + Mg.cmol, + Al.cmol, + Na.cmol, + MO.porcent, + H_Al.cmol, + K.cmol, + CTC.pH7, + CTC.efet, + V, + m)%>% + dplyr::filter(Amostra>0)%>% + droplevels() + +``` + +Na tabela abaixo constam as primeiras linhas da tabela de dados importada. +```{r} +head(limpo) +``` + + +## Selecionar linhaa (amostra) de interesse + +Foi definida a amostra abaixo para a análise. +```{r digitar amostra, echo=FALSE, include=FALSE} +#Digite aqui no script, o número da amostra a ser analisada +AmostraAnalisar<-41 + +AmostraDefinida<-limpo%>% + dplyr::filter(Amostra==AmostraAnalisar)%>% + droplevels() + +``` + +```{r} +AmostraDefinida + +``` + +# Interpretação da Análise +## pH +```{r} + +if (AmostraDefinida$pH < 4.0 ){ + cat ("O pH é muito baixo") + }else if (AmostraDefinida$pH > 4.0 & AmostraDefinida$pH < 4.4){ + cat ("O pH é baixo") + }else if(AmostraDefinida$pH > 4.4 & AmostraDefinida$pH < 4.9){ + cat ("O pH é médio") + }else if(AmostraDefinida$pH > 5.0 & AmostraDefinida$pH < 5.5 ){ + cat ("O pH é alto") + }else{ + cat("O pH está muito alto") + } + +``` + +## Fósforo +Interpretação para o fósforo disponível no solo (extraído por Melich - 1) para o estado do Paraná + +```{r} +library(formattable) +Interp.P <- data.frame( + Classe.P = c("Muito baixo", + "Baixo", + "Médio", + "Alto", + "Muito alto", "condição a evitar") , + "Argila<250" = c(6,12,18,24,120,120), + "Argila250-400" = c(4,8,12,18,90,90), + "Argila>400" = c(3,6,9,12,60,30), +"Olerícolas"=c(2,20,50,100,300,300), +"Florestais"=c(2,3,5,7,28,28), +"Pastagem.Perene.Extensiva"=c(2,3,4,10,40,40)) + +Interp.P +``` +### CLASSE p +```{r eval=FALSE} +C_P="indefinido" + +if (AmostraDefinida$`Argila%` < 250){ + if(AmostraDefinida$P.mg < Interp.P[1,2]){ + C_P=(Interp.P[1,1]) + }else (AmostraDefinida$P.mg >Interp.P[1,2] & AmostraDefinida$P.mg Interp.P[2,2] & AmostraDefinida$P.mg Interp.P[3,2] & AmostraDefinida$P.mg Interp.P[4,2] & AmostraDefinida$P.mg Interp.P[6,2]) { + C_P= (Interp.P[6,1]) +}else (AmostraDefinida$`Argila%` > 250 & AmostraDefinida$`Argila%` <=400 ){ + if(AmostraDefinida$P.mg < Interp.P[1,3]){ + C_P=(Interp.P[1,1]) + }else (AmostraDefinida$P.mg >Interp.P[1,3] &AmostraDefinida$P.mg Interp.P[2,3] &AmostraDefinida$P.mg Interp.P[3,3] &AmostraDefinida$P.mg Interp.P[4,3] &AmostraDefinida$P.mg Interp.P[6,3]) { + C_P= (Interp.P[6,1]) +}else (AmostraDefinida$`Argila%` > 400 ){ + if(AmostraDefinida$P.mg < Interp.P[1,4]){ + C_P=(Interp.P[1,1]) + }else (AmostraDefinida$P.mg >Interp.P[1,4] &AmostraDefinida$P.mg Interp.P[2,4] &AmostraDefinida$P.mg Interp.P[3,4] &AmostraDefinida$P.mg Interp.P[4,4] &AmostraDefinida$P.mg Interp.P[6,4]) { + C_P= (Interp.P[6,1]) +}else{ + C_P=("Aconteceu algum erro no código") +}}}} + +C_P +``` + + +## Potássio +```{r} +Interp.K <- data.frame( + Classe.K = c("Muito baixo", + "Baixo", + "Médio", + "Alto", + "Muito alto", + "condição a evitar") , + "K.trocavel(cmol)" = c(0.06,0.12,0.21,0.45,0.45,0), + "%.K.trocávelCTCpH7"=c(0.5,1,2,3,10,10), + "Olerícolas"=c(0.15,.30,.45,1.2,1.2,0)) +Interp.K + +``` + +# Recomendação para pré Plantio +## Calcário +### Pela Saturação (manual do paraná) +```{r} +AmostraDefinida<-AmostraDefinida%>% + mutate(Calcario_PR=((.70-V)*CTC.pH7)) + + +#View(AmostraDefinida) +#head(AmostraDefinida) +``` + + +A quantidade de calcário a ser aplicado, se for PRNT 100%, é de `r (AmostraDefinida$Calcario_PR)` + +A quantidade de calcário a ser aplicado, se for PRNT 75%, é de `r ((AmostraDefinida$Calcario_PR)/0.75)` + +### Pelo SMP (Manual de SC e RS) +Esta análise não contém o indice SMP. + +## Fósforo e Potássio +### Tabela de recomendação Paraná +```{r} + +Classes.fert <- data.frame( + Classe = c("Muito baixo", + "Baixo", + "Médio", + "Alto", + "Muito alto") , + "Fósforo.kg.P2O5.ha" = c(130,100,100,75,70), + "Potássio.kg.K2O.ha" = c(50,40,25,0,0), + "Borax.kg.ha" = c(030,30,30,30,30)) + +# Classes.fert +``` + + +```{r} +FaixaArgila<-matrix (c("<21", 4,"21 a 39,99",3, "41 a 60",2, "< 60",1), ncol=2, byrow=TRUE) + rownames(FaixaArgila)<-c("a", "b", "c", "d") +colnames(FaixaArgila)<- c("Argila % no solo" , "Classe Argila") +FaixaArgila<-as.table(FaixaArgila) +FaixaArgila + +``` + +```{r} +FaixaMO<-matrix (c("<2,5", "Baixo","2,6 a 5,0","Médio", "> 5", "Alto"), ncol=2, byrow=TRUE) + rownames(FaixaMO)<-c("a", "b", "c") +colnames(FaixaMO)<- c("%MO.solo" , "Classe.MO") +FaixaMO<-as.table(FaixaMO) +FaixaMO +``` + + + +```{r} +FaixaCTC7<-matrix (c("<5", "Baixo","5 a 15,0","Médio", "> 15", "Alto"), ncol=2, byrow=TRUE) + rownames(FaixaCTC7)<-c("a", "b", "c") +colnames(FaixaCTC7)<- c("CTC.cmolc/dm3.solo" , "Classe.CTCpH7") +FaixaMO<-as.table(FaixaCTC7) +FaixaCTC7 +``` + + +## Recomendação + +# Recomendação para adubação de crescimento +Na adubação de crescimento, (até o terceiro ano, inclusive) a recomendação é a aplicação de N apenas. No primeiro ano, recomenda-se a8 kg de N, aplicados em três parcelas, sendo a primeira logo apos a brotação, a segunda 45 dias após a primeira, e a terceira 45 dias após a segunda. +No segundo ano altera-se a dosagem para 27 kg de N, e a primeira aplicação deve ser no inchamento das gemas, e as outras duas com intervalo de 45 dias. +No terceiro ano, muda-se a dose para 36 kg, com a seguência igual ao segundo ano. + +# Adubação de Manutenção +Os nutrientes e as quantidades a serem aplicadas devem ser estabelecidos pela análise conjunta dos seguintes parâmetros: análise de folhas e de frutos, análise periódica de solo, idade das plantas, crescimento vegetativo, sistema de plantio e de condução, adubações anteriores, produção, exportação de nutrientes pela produção, tratos culturais, distúrbios nutricionais e presença de sintomas de deficiência ou de toxidez. + +Caso seja utilizado adubo orgânico, deve-se considerar que quantidades excessivas de N e de K prejudicam a qualidade das maçãs, predispondo-as a distúrbios fisiológicos e diminuindo sua conservabilidade, além de deixar as plantas mais suscetíveis ao ataque de doenças e de pragas. + +O adubo orgânico deve ser aplicado aproximadamente 30 dias antes do início da brotação. + + +## Uso de gesso para adicionar Calcio +"A aplicação de 1t/ha de gesso com 15% de umidade adicionaaproximadamente 200kg de cálcio, 160kg de enxofre e 8kg de fósforo naforma de P2O5. A quantidade de cálcio adicionada, neste caso, eleva o seuteor na camada de solo entre zero e 20cm em cerca de 0,5meq/100g desolo (0,5cmolc/kg). Esta informação é básica para se estimar a quantidadede gesso necessária para melhorar a relação cálcio:magnésio em soloscujo pH já foi anteriormente elevado pela calagem."[@Nuernberg2005]. +Segundo apresentado no mesmo documento, o uso de 25%a 30% da dosagem de calcário, para melhorar a relação cálcio:magnésio sem elevar o pH e parasolos cujas camadas inferiores apresentam teores baixos de cálcio eelevados de Al. + + +Já no manual de SC [@CQFSRS/SC2004] indica que são necessários aplicar 3 t de gesso para elevar 1 cmolc dm-³ de 0 a 20 cm de solo, por ha. + +No estudo realizado em Pato branco, por [@Danner2009] foram utilizados 80 kg de Ca+ aplicados através de diferentes fontes: cloreto de cálcio; gesso agrícola; nitrabor®; cal hidratada e borra de celulose. Os resultados foram idênticos para todos os fertilizantes, tendo o gesso apresentado a vantagem de aumentar o teor de Ca tamém na profundidade de 15 a 30 cm. +Nos resultados é relatado o aumento de aproximadamente 1 cmolc dm-³ para os 80 kg aplicados ( de 6.5 para 7,69 cmolc dm-³). + +No caso da nossa análise, temos uma concentração de Ca de 3.88 cmolc dm-³. Para elevar esta concentração para 7 (teremos uma relação de 2:1, sendo que o ideal é que seja 3:1), pecisamos 3x a dose do estudo relatado acima. + +Assim, temos necessidade de aplicar 240 kg de Ca+ através de fertilizantes com este mineral. Utilizando-se o Gesso, que possui de 16 a 20% de Ca, vavos precisar de **`r 1 * 240/160` t de gesso agrícola**. + + +# Referências + + diff --git a/tutoriais/Tutorial_7_produzir arquivo formato TCC.Rmd b/tutoriais/Tutorial_7_produzir arquivo formato TCC.Rmd new file mode 100644 index 0000000..40169f8 --- /dev/null +++ b/tutoriais/Tutorial_7_produzir arquivo formato TCC.Rmd @@ -0,0 +1,105 @@ +--- +title: "Formatar TCC" +author: "Adenor Vicente Wendling" +date: "04/03/2021" +output: html_document +--- + +```{r setup, include=FALSE} +knitr::opts_chunk$set(echo = TRUE) +``` + +Para baixar estilos de referências: + +No YAML +Incluir o .bib e o .csl da bibliografia no cabeçalho YAML do documento: + + bibliography: ../citation/refs.bib + csl: ../citation/nature.csl + +no texto... Citar usando o formato: [@sobrenome_primeirapalavra_ano] (olhar no zotero ou no mendeley a chave de citação) + + + No texto, a citação é marcada assim: @sobrenome_palavrachave_ano + Ex. [@dignazio_data_2020] -> (D'Ignazio & Klein 2020) + Ex. @dignazio_data_2020 -> D'Ignazio & Klein (2020) + Ex. [@noble_algorithms_2018, @dignazio_data_2020] -> (Noble 2018, D'Ignazio & Klein 2020) + Para que usa mendeley @@Sanchez2009 +Se precisar colocar as referencias que não no final, (por ex. porque tem apéndices, figuras, tabelas) Incluir: +

+ +* pacotes bookdown e thesisdown + + Permite juntar vários .Rmd em um PDF único e incluir índice, referências... + + thesisdown: Pacotes específicos para templates das universidades : variações são outros pacotes, ex. coppedown, ufscdown + + .Rmd com cabeçalhos e templates de LATEX + +# pagedown + + paginação (separar em páginas) dos documentos de html + + um passo direto de html a PDF + + formata com templates CSS, e modelos .html + + para documentos acadêmicos: pagedown::thesis_paged() + +precisa editar o html e o CSS para fazer documentos em outra língua + + +# exportando para .docx + + Um documento de referência pro estilo: "template_word.docx" com os estilos desejados modificados (à mão desde word) + + No cabeçalho YAML: + +word_document: + reference_docx: templates/template_word.docx + +Para melhores resultados, é melhor knitar uma vez sem template, modificar o documento resultante e usar esse documento resultante como template. + +Alguns problemas com tabelas, páginas horizontais, vão persistir checar bem! + +Para documentos .odt igual: +**reference_odt: my-styles.odt** + + +# exportando para PDF + + Tudo relacionado a PDF tem a ver com LATEX + +.rmarkdown aceita marcação de LATEX no corpo do texto (ex. \newpage) +Templates e opções de LATEX + + no YAML + + Premite guardar o arquivo .tex intermediário + +output: + pdf_document: + template: quarterly-report.tex + keep_tex: true +header_includes: +- \ + + Se for um template complexo pode ser mais fácil escrever diretamente em LATEX + +. Mesmo fluxo de trabalho + +# lidando com capítulos + + O mais simples: um .Rmd com documentos "filhos" + +ex. child = 'introducao.Rmd' nas opções de um chunk vazio + + Permite manter estrutura de pastas/capítulos organizada + + Funciona com os formatos de saída + + Requer de atenção com relação aos cabeçalhos YAML! (depende do formato de saída e depende da estrutura dos documentos) + +Vamos para Tese.Rmd na pasta docs + + diff --git a/tutoriais/imagens sentinel.Rmd b/tutoriais/imagens sentinel.Rmd new file mode 100644 index 0000000..55099b3 --- /dev/null +++ b/tutoriais/imagens sentinel.Rmd @@ -0,0 +1,44 @@ +--- +title: "Imagens Sentinel Calculo NDVI" +author: "Adenor Vicente Wendling" +date: "24/07/2021" +output: html_document +--- + +```{r setup, include=FALSE} +knitr::opts_chunk$set(echo = TRUE) +``` +O objetivo deste script é baixar e usar imagens de satélite, nos satélites da geração sentinel, para cálculo do NDVI - + +A base para o tutorial é o curso de "Geoprocessamento e QGIS aplicados na agricultura de precisão" do Udemy cursos. + +# NDVI - índice de vegetação por diferença normalizada +É gerado a partir da equação: *NDVI = (nir/red)/(nir+red)*, em que red é a refletância da banda do vermelho, e nir é a refletância da banda do infravermelho próximo. +É uitilizado para medir a intensidade da clorofila nas plantas e também para monitoramento da lavoura. Tudo isso, de maneira remota. + +Os valores do NDVI variam de -1 a +1. Quanto mais próximo de +1, maior é a inten sidade da clorofila da planta. + +# Acessar o bando de mapas. +Para acessar os mapas/imagens do satélite sentinel, acesse o site e clique em 'star exploring'. +Vai abrir a tela incial do explorador de imagens, conforme imagem 1. + +![Imagem 1 - Tela inicial do EOBrowser do site ](../imagens/telaInicialSentinelHub.png) + +No primeiro acesso, é necessário fazer o cadastro para o login. Fiz meu via 'cre@dias', com facilidade. Não há custos para isso. + +No painel à direita devemos selecionar o satélite (sentinel2), a tipo de imagem (L2A) e o período de busca de imagens. + +As imagens do sentinel são geradas a caada 5 dias. Por isso, dependendo do intervalo selecionado acima, serão apresentadas inúmeras imagens. dentre essas você deve selecionar aquela de interesse, tomando o cuidado principalmente em relação à nebulosidade. Quando há nuvens, os dados estarão com erro. +Depois de escolhida a imagem, você pode demarcar a área de interesse, clicando sobre o loasando localizado ao alto, na extremidade direita da tela, e depois no lápis, para demarcação. +Demarcada, clique no botão em donwload image, e escolha as seguintes configurações, conforme imagem 2. + +![Imagem 2](../imagens/selecao_configImagemSentinel.png) + +Depois de baixadas, descompacte, e insira as camadas no projeto do QGIS. + +## Calculo do NDVI +A NDVI é calculada pela formula *(nir/red)/(nir+red)*, seguindo os seguintes passos: +Clique em **Raster** no menu da barra de ferramentas, depois em *calculadora raster*; + + + diff --git a/tutoriais/teste_WRITE.Rmd b/tutoriais/teste_WRITE.Rmd new file mode 100644 index 0000000..a55a646 --- /dev/null +++ b/tutoriais/teste_WRITE.Rmd @@ -0,0 +1,181 @@ +--- +title: "Informativo_TESTE_WRITE" +author: "Adenor Vicente Wendling" +date: "04/03/2021" +output: + odt_document: + referencia_odt: my_styles2.odt +bibliography: ../../../citation/Assentamento.bib +csl: ../ABNT_IFPR.csl +always_allow_html: yes +abstract: | + aqui digite o resumo +--- + +```{r setup, include=FALSE } +knitr::opts_chunk$set(echo = TRUE, include=FALSE, message=FALSE) +``` + +```{r include=FALSE} +#install.packages("remedy")#para auxiliar na digitação ex.: ctrl + b -> negrito ctrl + i -> italico ctrl + k -> link ctrl + 1 -> h1 (cabeçalho 1) ctrl + 2 -> h1 (cabeçalho 2) ctrl + r -> insertar chunk de código! +#install.packages("kableExtra") # para inserir tabela +require(kableExtra) +library(plotrix) +library(knitr) +library(tidyverse) +library(readr) + +``` + + + + + + + +# 1 INTRODUÇÃO + +O assentamento São Lourenço foi criado em 1999, quando foram assentadas 58 famílias no local. Mas, como mostra uma reportagem do jornal “TribunaPR (2003)”, ainda no ano de 2003 a maioria dos moradores ainda não havia recebido sua documentação de regularização fundiária dos estabelecimentos, correndo inclusive o risco de perderem suas terras. Segundo relatos nas reuniões, atualmente existem aproximadamente 50 famílias residindo nos assentamentos, mas houve várias trocas de moradores, ou seja; nem todas as famílias inicialmente assentadas estão residindo nos assentamentos. + + +Estas trocas e abandonos podem provir da falta de opções de atividades que possam gerar renda para as famílias, além da distância da centro urbano e dada dificuldade de adaptação ao novo ambiente. + + +Durante as conversas rápidas mantidas pelo grupo de servidores do IFPR com os moradores do assentamento, e na busca bibliográfica, não foi identificado nenhuma ação de planejamento coletivo para diagnosticar as opções de atividades que pudessem ser exploradas no local, tampouco um levantamento detalhado das características específicas que pudesse embasar tal diagnóstico. + + +Não significa, entretanto, que não tenham sido realizadas iniciativas ou fomentados projetos dos mais variados, e por iniciativa de diversas entidades. Aliás, como foi relatado pelos assentados, vários projetos foram iniciados e se mostraram inviáveis, por vários motivos: falta de assistência técnica, falta de recursos financeiros, entre outros, falta de conhecimentos, baixa produtividade, etc. + + +Para embasar um bom planejamento agropecuário, é necessário adotar boas práticas de planejamento, preferencialmente participativo, e ter um bom conhecimento das condições específicas da área. Entre as características sensíveis para a definição de atividades agropecuárias, podem ser enumeradas: fertilidade do solo, declividades do terreno, classes de aptidão do solo, pluviosidade, ventos predominantes, ocorrência de geadas, temperaturas máximas, mínimas e médias, etc. Muitas destas informações são acessíveis e disponibilizadas pelo IAPAR, IBGE, Exercito, Universidades, geralmente em âmbito municipal. Para conhecer as características específicas dos solos, entretanto, é necessário que se faça uma série de análises de sua fertilidade, , em locais adequadamente selecionados de acordo com a inclinação do terreno, tipo de vegetação, manejo dos últimos anos, etc. + +Para tanto, este trabalho prevê a necessidade de realizar análises básicas de solo de diferentes áreas do assentamento, e a composição de mapas temáticos das características dos solos. Uma das hipóteses é que que existe uma grande heterogeneidade das fertilidades do solo, além da maioria apresentar pH baixo e deficiência de vários minerais. +Desta forma, o objetivo deste estudo, é coletar as informações disponíveis em forma digital nos sites especializados, bem como coletar e analisar 150 amostras de solos e a partir destes dados realizar análises e construir mapas temáticos com as características climáticas e do solo do Assentamento São Lourenço, de Palmas, PR. + +# 2 OBJETIVOS + +## 2.1 OBJETIVO GERAL +Criar mapas temáticos e criar um banco de dados sobre: fertilidade do solo; ventos predominantes; declividade e curvas de nível da área, através dos softwares livres “Qgis” e “R”. + +## 2.2 OBJETIVOS ESPECÍFICOS +- Buscar os dados e mapas disponíveis na internet que abrangem a área do assentamento São Lourenço; +- Coletar 150 amostras de solo, georreferenciados (três amostras por morador); +- Realizar a análise química e física das amostras do solo no laboratório; +- Utilizar os mapas e o banco de dados para embasar futuros planejamentos de atividades agropecuárias para o assentamento. + +# 3 JUSTIFICATIVA +No início de 2020 foi submetido o projeto ‘Diagnóstico e planejamento participativo dos assentamentos Paraíso do Sul, Margem do Iratim, São Lourenço, localizados no Município de Palmas/PR” ao edital de seleção de projetos de seleção no âmbito do IFPR. O projeto foi aprovado, porém os cuidados necessários para com a pandemia da COVID19 inviabilizam sua execução total no período atual. + +O projeto aprovado prevê a realização de análises do solo nos estabelecimentos rurais dos assentamentos como parte do diagnóstico, e posterior elaboração de mapas temáticos com esses dados, para subsidiar o planejamento participativo e a priorização de atividades agropecuárias a serem fomentadas. + + +Tendo em vista a pandemia da COVID as atividades da elaboração do orçamento participativo estão suspensas. Enquanto isso não for possível, será efetuado a coleta, análise, interpretação e elaboração dos mapas temáticos, que posteriormente farão parte do projeto global. Mas, independentemente da realização das atividades de planejamento, que prevê reuniões com participação de público, os dados coletados, analisados e interpretados, serão base para elaboração de documentos, além de subsidiar possíveis orientações de políticas públicas de projetos a serem executados nestes assentamentos. + +# 4 REVISÃO DA LITERATURA +Várias alternativas para diminuir os custos ambientais e financeiros, sem comprometer a oferta de alimentos para a população, têm sido testadas nos últimos anos, entre as quais mencionamos: redução e otimização do uso de fertilizantes minerais, especialmente do N (O’BRIEN, GEOGHEGAN, et al., 2016)⁠; diminuição da renovação das pastagens para evitar a perda de C orgânico do solo (SCHILS, VERHAGEN, et al., 2005)⁠, manejo rotativo racional das pastagens como forma de elevar produtividade e aumentar estoque de C orgânico (CONANT, SIX, et al., 2003, SEÓ, MACHADO FILHO, et al., 2017)⁠, SILP (MACEDO, 2009)⁠, substituição de adubo químico por orgânico (SANTOS, CASTAGNARA, et al., 2014), o plantio direto (PD), e os sistemas polifíticos (STEINBEISS, BESSLER, et al., 2008)⁠. +Ao mesmo tempo, cresce rapidamente o uso da tecnologia de informação para análise, interpretação e comunicação das informações, tanto entre pessoas, quanto entre máquinas, e desta forma evitar desperdícios, e alcançar melhores resultados e produtividade, sem comprometer o meio ambiente (CÂMARA, 1996). + +O uso de softwares para o geoprocessamento de imagens de satélites (Gis) vem sendo muito uteis na análise, interpretação e comunicação dos dados na agricultura. Vem sendo amplamente utilizado para elaborar, por exemplo, mapas temáticos de fertilidade de solo, distribuição geográfica dos solos, condições climáticas, entre outros. A importância de conhecer as características do solo vem sendo reconhecido nos últimos anos, tanto para o aumento da produção, quanto para a regulação ambiental @CORTE2020 (CORTE, SILVA, et al., 2020, SANCHEZ, AHAMED, et al., 2009).⁠ +No mesmo artigo, @Sanchez2009 (SANCHEZ, AHAMED, et al., 2009)⁠ citam vários exemplos da importância e benefícios do uso de ferramentas de GIS para auxiliar na interpretação dos dados dos solos em escala macro. Os autores ainda definem que um mapa digital do solo é essencialmente um banco de dados espacial das características do solo, baseado em estatística tipicamente de paisagem. Para isso, são coletadas amostras de solo a campo, e analisadas em laboratórios. Estes dados são utilizados para predizer a distribuição espacial das características do solo em uma determinada região ou característica conhecida. + + + +Sempre é necessário lembra que a agropecuária é responsável por uma grande quantidade da emissão de gases, além de ter participação na eutrofização das águas, na perda da fertilidade do solo e na perda da diversidade (BUTCHART, WALPOLE, et al., 2010, GERBER, STEINFELD, et al., 2013)⁠. Por isso, o uso de tecnologias que possam diminuir esses problemas, sempre será muito desejado pela sociedade. E é isso que os sistemas GIS oferecem. + + +Vários trabalhos acadêmicos e científicos mostram a utilidade, benefícios e eficiência do uso de softwares de gestão de dados geográficos para a elaboração de mapas temáticos das características dos solo. Um exemplo, é uma trabalho realizado no estado da Paraíba, com o objetivo de mapear as classes de solo de duas microrregiões da Paraíba. No trabalho, apresentado. Uma das conclusões do estudo a identificação da heterogeneidade nos resultados expressos nos mapas, devido à diferença de clima, relevo, vegetação, altitude entre outros fatores (SILVA, NASCIMENTO, et al., 2019)⁠. +Outro estudo, mais avançado e detalhado, foi realizado na região dos vinhedos (SARMENTO, FLORES, et al., 2008), e mostra a grande capacidade de produção de mapas, com informações de grande importância para a agricultura.⁠ + +# 5 METODOLOGIA +## 5.1 – Coleta e análise do solo +O solo será coletado na profundidade de 0 a 0,20 m, com trado tipo holandês, com 10 subamostras amostra. O solo coletado será seco ao ar livre, destorroado e analisado no laboratório de solos da IFPR em Palmas para determinação de: pH, índice SMP, Ca e Mg, P, K, carbono orgânico total (COT) e matéria orgânica (MO). O método utilizado para avaliação dos atributos químicos está descrito em (EMBRAPA, 2009)⁠, e é especificado a seguir. O Ca e Mg serão extraídos pelo método KCl e determinado pelo método de espectrofotometria. A extração de P e K será com solução de Mehlich-1. A determinação da concentração de P será em Spectrophotometer V-1600, segundo (MURPHY, RILEY, 1962)⁠ e de K foi em fotômetro de chama. Os teores de COT serão quantificados pelo método de oxidação via úmida, com aquecimento externo, conforme descrito por (YEOMANS, BREMNER, 1988)⁠. Os teores de MO serão determinados multiplicando-se os valores de COT por 1.724 (NELSON, SOMMERS, 1982)⁠. As análises químicas serão em duplicatas, e amostras com erro e outsiders serão repetidas. + +## 5.2 Análise dos dados +s dados das análise dos solo serão analisados e interpretadas com o auxilio do software Qgis. Para uma melhor interpretação, serão importados dados públicos sobre a declividade, inclinação, altitude, tipo de solo, pluviosidade, e interpolados com os resultados das análises do solo. Os dadas serão buscados em “ftp://geoftp.ibge.gov.br/cartas_e_mapas/”, https://bdgex.eb.mil.br/mediador/index.php?modulo=login&acao=entrar, (FOREST, 2020), etc. ⁠Com esta interpolação, serão construídos os mapas temáticos, extrapolando os dados dos pontos coletados para toda a área do assentamento. +Na figura 1 estão representadas as curvas de nível do assentamento São Lourenço. Os dados para a elaboração deste mapa constam no site do exército, e as delimitações do assentamento em arquivos disponibilizados pelo INCRA. A altitude, conforme identificado na figura 1, varia de 1060 a 1180m, e a área do assentamento é de 15,254 km². +Já na figura 2 estão representados os tipos de solos, e a declividade do assentamento São Lourenço, com uma resolução de 1:250.000. esta resolução é muito grande e não permite identificar pequenas variações existentes na área do assentamento, mas possibilita identificar especialmente as características gerais da área. + +# 6 CRONOGRAMA + +Tabela 1 – Descrição das atividades, período de realização e responsável pela realização, do projeto. +|O Quê| Quem| Quando |Como | +|-:|-:|-:|-:| +|Planejar locais de coleta|Adenor|Outubro 2020|Análise mapas| +|Informar público alvo|Adenor/Orientador|Outubro 2020|Rádio, rede local informal| +|Coleta das amostras|Bolsista/Adenor|Novembro 2020|Recomendações do manual|indicação de dados geográficos| +|Análise do solo em laboratório|Bolsistas|Novembro/dez 2020|Conforme manual Embrapa| +|Análise dos dados coletados|Equipe|Janeiro/Fev. 2021|Estatística descritiva, interpolação, gradientes| +|Produção dos mapas temáticos|Adenor|Março 2021|Uso do Qgis| +|Elaboração documentos final, com descrição, analise dos dados e mapas|Equipe| +Abril a julho 2021|Para publicar em boletim ou congresso.| + + +# 7 ORÇAMENTO + + +```{r, include=TRUE, echo=FALSE} + +Orcamento = data.frame(Descrição = c("Reagentes para análises do solo","Despesas com viagens ao assentamento", "Bolsa estudo", "Impressão material relatório final", "Soma"), Quantidade = c(150,5,12,50, "-"),Preço_unitário = c("R$ 5,00", "R$ 100,00", "R$ 400,00", "R$ 4,00", "-"), Valor_Total=c("R$ 750.00", "R$ 500.00", "R$ 1200.00", "R$ 200,00", 500.00+ 1200.00+200.00+ 750.00)) +#Orcamento +kbl(Orcamento, caption = "Tabela 2 - Orçamento para realização do projeto", booktabs = T) %>% +#kable_styling(latex_options = "striped") +kable_styling(latex_options = c("striped", "scale_down"))%>% +column_spec(1, width = "12cm") +``` + + +Os recursos descritos como fonte de origem “Projeto”, são provenientes do convênio/projeto aprovado…… As despesas com a análise do solo serão em parte realizados com utilização dos reagentes oriundos do laboratório de solos, adquiridos com recursos ordinários do IFPR, como contrapartida. +Os recursos para a despesa de viagens ao assentamento foram oferecidos como contrapartida do IFPR para a realização do convênio. + +# Características do relevo no assentamento + +## Dados das altitudes +O dados das altitudes são provenientes do arquivo raster fornecido pelo site "Topodata". A Partir do arquivo raster `Altitude_SL`, foi recortado a área pertencente ao assentamento, e calculados os indices a seguir para 10 grupos de altitudes. + + +```{r, echo=FALSE, message=FALSE, include=TRUE, warning=FALSE} + +Alt_estatistica <- read_delim("data/Alt_estatistica.txt", "|", escape_double = FALSE, col_names = FALSE, + trim_ws = TRUE, skip = 4) +``` + + + +```{r, echo=FALSE, message=FALSE, include=TRUE} + +Altitude_SL<-Alt_estatistica%>% + filter(X3=="from to . . . . . . . . . . . .")%>% + select(X2,X4)%>% + transmute( + De_Ate=X2, + Metro_Quad=X4, + Ha=X4/10000, + Porcentagem=X4/15215421*100, + )%>% + tidyr::separate(De_Ate, into=c("De","Até"), sep="-", remove="TRUE" )%>% + mutate( + Alt_Menor = as.numeric(De), + Alt_Maior = as.numeric(Até) +) +#view(Altitude_SL) +``` + +Na tabela 2 constam os dados da altitude da área de terra do Assentamento, divididas em 1 grupos, com as altitudes variando de 1067 a 1198 metros acima do nível do mar, e as respectivas porcentagens e área pertencentes ao grupo. + +```{r kable_a_dados, echo=FALSE, include=TRUE} + +kable(Altitude_SL[ ,3:6 ], + format = "simple", + digits = 1, + padding = 2, + caption =("Tabela 2 - Quantidade de metros quadrados de área de cada altitude, no assentamento Sâo Lourenço")) +``` + + +A menor área está em altitude de `r min(Altitude_SL$De)` metros acima do nível do mar (ANM) com `r min(Altitude_SL$Ha)` hectares de área, ou seja, **`r min(Altitude_SL$Porcentagem)`** porcento da área total. +A maior área está em altitude de `r max(Altitude_SL$De)` ANM, com `r max(Altitude_SL$Ha)`ha de área, ou seja, `r max(Altitude_SL$Porcentagem)` porcento da área total. + + +No gráfico 1 apresenta os mesmos dados de altitude, mas de forma mais didática, e a representação permite visualiar que a maior parte das áreas está em altitude que variam de 1100 a 1175 metros. + +# Referências diff --git a/tutoriais/teste_WRITE.html b/tutoriais/teste_WRITE.html new file mode 100644 index 0000000..c655b56 --- /dev/null +++ b/tutoriais/teste_WRITE.html @@ -0,0 +1,2225 @@ + + + + + + + + + + + + + + + +Informativo_TESTE_WRITE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/tutoriais/teste_WRITE.odt b/tutoriais/teste_WRITE.odt new file mode 100644 index 0000000000000000000000000000000000000000..588fb786dd28689c4af069add1a8a6a0e6f0279c GIT binary patch literal 17087 zcmb8XbChJywk}$>yUXaZZQHhO+v>7y+je!?wkylF)#ZBi+xMQk@7eFXKVIfokuze& z_l+Dg=E{r_6Y^4^U_XICpn!m~6HF9!hZ*6>fPjGhxxR;hY%FX{oIUJK4D9W#EsPAD zE$nRRTy2eM?F^hOoM`RrO>B+rj9hF?Y@KPHP28R3|2G-bzsQWJ5v_lL00A9<|8FuA zX9HSy8|!T4KHGJAxURocVAs|YuBuhYDCn4Rz-@3M=uN$}{)7xMsv3919JZgn4Y*#i z^`;^~I^w){JP8S=e`|wrj%Qk2`VXqo9)3+|cK>JxLVdQD4 zdle3pl1X$%1EUEuG!4QFz}5FK=19tTgQMn(NY1!x70XgR>fCCGF;-k~mlDM@amW@< zf40uyjRX9ssED+Fnqd$#!=aHW1bA5&-V_#KU8pB4d*WN}WS^waM(@x3Y4mcoWl#OG z>@^}=r7DUEfdqam1{84n;2An&=2L1N&ZUrz7KVH&pR0^$P>WzpdBY4s(U0}&^wz?5N3TV?Y6>+ z8?XjesRV{x|FdiMMm#fV>q0Ksp3}}YMOW^!n3#1k_z%ZbXmFh7oTIxb(DvqO`J;eo zkGzI}SzM`KcffRfqbJvr__U6@ne(H5)i6E@tTnF$tQrf2oAMMcU4RZj-8`Ovt^^aR z7R8f|S;ya<{752yxTOEM_PQHX>*3ny=Ery^Q@x~jEvAxbdw+CqRdw@li{g2bNHp%i zQh$owAa=FksV%Q0Q&mc>>}9tzc|X~}9Rb*~KY;(c5y?sY`V9*V1QY@W1cdr+kuoC6 z0yGk`qI5O}wic!)PR{>WR9BLK?EpTK$X^a{LoGm)hRUcbT9+Ul|LqQbpMD>Egq@z{ zSa|hdX3Ll@#7Fwy9x&z5Mz;$v27n*SZz??w(8c`b)g^CyrOtby#>!4XEByE@*py>> zowcfH@<2&e31z$lVj3aDRR|t;{sgP8Eb&xZ1O1syTqCu-dW48h{1~;i(B+DNVLZ#4 z*DZ}|^4Q29Er$pB+67VpOf>qY_BAJ{xK_06KYB(E#s99H`8|N@!m1K{^+#8G0E}nM zOjLP5x}jy6ImKhgJG0Tnd2loQ$a~_BOFy8@t=R@8Ql11Y;1L|L3uc9)zP!(?)NsS_ zI^Jw~V*|egO>|J0Qx7$L0&54S^ya-m|GV~RK*S0&34nmqdVqjnzqMy%XY2gW!}_hW zOP&c^t+C`cZxMf{v{9gK&q^Z5CgJt76k!$$t}*Kqn>1z!2O=WPpy z_VUSdC++&r@F3#}cY(6}?7nn~v+?0iJS8)D2=1_Vv&_204bL>6n_gvINp(ZdO~*3x z;sWl`ZDMKxuQKh>D;MF~4zfL!1YYhUh&=%N$yW2g$43oUVD2touC1q+TFW*;d7@_d z_V$MAnF+KZwFbZ6TdXQuOQ`Li7@Vxxrdn^qgM2HpJJ6yL_r7`_p>MEw6DFs?g7b)e z6sGWnw)gD=JMg9mS$Kc;&Kr#m0pxR8VnVmH@TXM>>9#gBll zTVk7iS(_xuKZKyk553{p+^#aW%~V}`%-VxsOdKG6zqN71bM=H0MP-LJpQlp|LL+Gy zWSv3JOGwyREYww?M;0w~yqy2r!*%TxK4@fN_-->=Y95j3ipVrda)Nx`b9Yw`qtWvo zX3^v{;;--+G7sCJ+KuA9_g&2CwRp!se|!We1&Awc4J`G_Y~mGqarcb~K5%`Gqwvmg z2As(v=vGGpTfaYgp>NBv!ER}K{%=iv)PP1ut~^(G?wFtU%@@h$v>j0MWi@a_AMCAR z3z`D0MQfO|6s z1Od*AMk(@Hh_H5gKH0r-dEB7G^guaqgcO3T(7W=%j3ACFf3B1I2?)XKebnte&~=^E zo_vxjK{^zT)gKB61o7Vj$(hcpJjjOW6Bh=k4%^Q(*^6oAVLSXbDU9<1YyEgwq=C4p zl_%Ec<#yw`L5=XxB$pgFyKmfQQ+X$SQAsYTFejCd@<<5`P4G}t$y`1jj*}-t?C!07BpLY`6POt>ju~IpS?Od+HiSq4{mj}&g-r$59(fTQQa1Y>*#&=Rt9vhH!E*Y#k-2SYHGu~wtD`Jv0C!N?FOk% zWnO*!YhKrAb8<Lpz{@qTizr9th<2F3~)oA4^?7wcbbrTQYHru?4gXx)R z-^3*G&2{NuqI~B)cMVN?{sz#V-u&`hwz=m$e-dCn{2n%|`uHA3(D;WZTVeMfo}$5j z@dW?F6NU0G9@Kw$ge3prNp*fk#6K?y&7J~DSHjMbT_QLx;~ohz-lCpb)!GbLF&yY!hE2cdy3cD z<-0-6?yfJ76Y&MQQXUyp2IxDoizDo4|^4D&Lt8b9i+6Qut#kE%TsrY)4 z{S;dBmyz~Q&uzYbm1@)36)zPqyzvgGwX;|8KUYcE(KM1g-b}zAucjamv_Qe=yc(%? zEM?2^Ij2CNxziAY*hup{1|f0Ffx4I>j{9id9uL`3j{jVpz2sxb!V7;9 z0NCNPfl@vB54~&=1fdJ%eo~kOr?TFis4yYe<>;wX(4}V#XWvh7Nak;V|e8Tk(B|lJ@ z$h-gPT{YEVUlzJg=kvaf9P(-hL3P|dCb~itX8-96a06aw&X#P}_0M%@!i=kU2#yF; z1d}mVZw~=a3P1@G&*eH>qg#^nK~|`w-xDCt8gCU{@(Q#j5JoKVXWqiwTf5>{bO2*V zEjBhv&@fRepFsxUDYdPHjQ9OXPKNj8@h%q3sAWWUoO-!@+jwg?(qkd>06~zxveL_) zHh>drf`sB$MEYzHc}ovQagYY1R0UdCuhg4&GxA$iAAC??Puxep9kC+BFE=zs1Q30GrUw7{y<;xt2lI4@?LRXX~NI_fm|g$#k-0mk!Q;#CqP+E9Ts#A^`bH^=wiARz|| zlRB}=`G5TBvD%&Lg4yOl2hWbzm*5-?vQg3yAs!6ss6X`S5wYNu;q;@;F@Z#YlAw^= z!DK{A4ACNHp2a3Z0ffO|LBCIN@cnr#^2g;dkpj#!Km|Q4SeC$u$@KfJb&Tn8+{$qL z5abyWfI%AqM$jCz!>~Y_f!v-k;p3fq(P8~r{6Q$;{2AT|cYuW?9YQX0v~cq_aC@HY z#UXEaKG&`Zx;TWqev+d>>Kw2D$Cg2t)vOLtnDd4r(ttW>e?j?r>4c|g`d*GW^s+?w zH+pw|AVG6~T9PBL<8>Ay3hh!ZBkmD6Xpn=bGv0E^?;J3U!ir-|K!bFSCKN+e-g2A| z8zB0Q*HEeaD)CRgEkHw0atUv<(x#Q{qQGUB$$PqJ#itv1|6gS zK;JPuQXmhJBNz{Z^4kri?a!LS6uJ5A%#RQ#FpTwQJq-7B6dv3J1_{O0r`!U?#O}%W zi023`VDohn(PLEdzdO4_0t(#1n!nYni`2}~Jr0XN+E6T42!#XXM-Fii6(k9w2HokC zPnZlueG;7f|%o$WC{WKE8rD*r3z&mgx zbz=yu=fs&NF{uUiAS$CAVG%QFdB{blX6Cts_%*OYRR1!aDE+gz_(|mK>SvB10u-X+ zSdfN%K{r8o#Bi+_Z$5AqsIWUDOn2+ zxK82LopL9CO0zVu^fLJA7z10HSeS?>Lv`cmaIFBAXRqV~uCgD95<-_eqd)}nUl}MU zeV8mNdI;YNaRKGLYMg}os3P#I=6f^rN`O{A#k^wDzV)mGQ0R`yGI8e=3V5CiyKmr6 zrZdD|p;pTH!zg)E^oj8Pm}J>slOz&kaTr2OYL+ZejCtDXz`70@QTyZ#?mO$C=p*&Ge-zLcz7Axrz#_CNsjP`5$NP$SYR>>j)sf4vl$EX9+l_wH0;{u*x z?lnyV&=pSos&xAbn(RT0Y1G@z_Q>=c*|Y&PAYhCOVH+l zcM3GPOkF`5MBQkHSIP>?f%64!I`E?V1OB$>=`$>1C+Cg6kH426rk0YGN|24T*f4Ee zd2dd=2SZz2;0DtAImwyKgET1&AsMzz_jL!~slUT=AC9dXGSW<2x90 zB1B#et6_|t+ zlO`(AKo&maQ%-lQc|)yU(fl-LjiW`8=u`N>Y$ zSBwSJ5cR|(13^gdq7g_^j8vCII&Ow z2CU`nQ3E5x5t;BljOjD~X1aWFYb71ik=!5nXhG@#gQDm|g)6p<@%k>eaRW=(_?@sG z!JaE$qc&f1luQlV^|mdBcX}ohF413k=E3>>N`jXV82DImAXPN`0SMJ57J*?(4I*wbUaBKRAe$8-el7*(YYmP56hX>#%<2Y z#aVfxP(0@J&L<{*P8!Vz6D?}`3f36E#SW%~V~U;V*rm8YyITBWtx>}=D-jSUyjt*3 zK^r{rnZ_sP2okqxXapQY%SQXHK)M6#DOAR->o^Uj&oY#|vOy>IdZvvDFVV;Ljm`~v zI7)S>pxQ^}jNLyT!A>nWySLSRZbkDA3{>ny{;-LS`kA(a9Z^rxTCS!~b`3rdD@ zoR!3e`Ny%g4$hAh(PSykM0g$~evb4f`P2-chmHwsG$qZIf}`_bZ=1b98bLFOX4#gP?=)adDm}cTGL@HjPnBo+Hfm-PYM{$fJ^pt#P z13x4pk$YZXf0#h2xK8DRw5e@bNWB#k>D)7RB1eq8#M$7p^V1;dC%?IYE8-^aVWF7| zP?hy~z{vrBsWQ&bNFhUxA6?!O$dV{;=!sz)VTp#v)`gExOTYOnbD3u%kQ>xkg-gG=4PQ7NuvlwMR3NNt6IhVpFg|?IB}c4K|T7$hJW#OB)8wCr^V_ts3ItIU~No~ zor16XnNIDaxoob?C>#)B4yEH%|8ProDMW3%!4&5N5`&d@T0GHa&B%1jFElOz&>sOcnR2`~^kZt!sYEc2N6kN?HOmAzof)jG`s)-s6& zlScdSlf;-|8NX^#Qz)AgQ2gQo*DulhlWfXX1I;<^95i%8(Q;rD&+ox(5*Eshe~J0|S4X_U z%@5Qt2@SEy(I!$TYNpQ>rUF@;-@lLhD6dkG*O|%m4dJ2Q^fez45r7}T6$r!;#5 z(Gdly1f!vl;Z7GreSwRNcBV36AWy++TQI%z+==9EpcE_*}enYbUP@9yS z*2+#IWI!r0H#*z-A*tC|0uO7X1(>AqYu$>7l_J_Z_qxIlrk+yICMZv4 z#oOoMg~g>B$HNPZp-=6q*45k$C8yMP62OEhHErJ=6dB1QZv$NlfY=a{4#ZPHk`jxt zVLl+bF??*o{tQy%4`Ls;hR(l3XBNuF^BQ!JkX%!Aea|2alJ2wR{35$y&tM)tWW}RM z=rC)U${P-shOJ8Ir8Cl-BLHhf-cwY<5!~)5J69a;m^_q{?gHVqla*u}i(Qz8qe~SL zNaamLE@k*(zzhTSBl%9sQH~VMDqm$Ui9tijJ^V$s;ngP`w9LIBlg6IY+XH?TxCNvy zo7|_Z|Gb})oG&%Dw~i#vx9lBhVwu(=Q(7aqXj)ZSAJfmx$nlN8wdz+4j1M6eP|D9T zff`4L;pa-Lk>IKv39JRSGOFls- zY1UVVduFn@W*M7wI{Q|jTLnUsa^UI9cnNMzT(m&Vv-W^-wEW@LnCGT)AS!78#4Q;h zh2S#@e|gYUf(8on!TiP;a7m{2E`CNkj|@IG&Y_fNek9Kg;OkY=69uk}rg}hypF})+ zwY{kd!m}%&KQ)83T-kWpz=80h+()A8(Tx=AXc?#;ENzXa7st^=ai}R%gxo~ zt{(Hx*h!7qBuB@d=B6D+ru)_jPIeYcpV+j-Sa(VSnyX|*deb3L9i!Ia+Qm{VlDnIrOb8sUPaxe z6T~vT*)l<(i*H#S9**9jIecLKUsf(F-If@w(rPlYYp5MEPv0__qLvyGg@zcrF$Iz& zERY^;BRjp1n9~GUDW^2m@EN`Nje51M5-GxJ)CL*ucoJZ)AT3oIbQOQ-iXqQrj|>mO zs^^m~Oi=K8d~*2#)n-c3tZ*j-UVX!i5=qiIr;wd9!!2xO_$8vqpA!C>3Yz)}aI3~F zWHifxA$ipiJ1i&G?PHbd*L`=Nz}URtOV1Fh;K(M&7a)S#Mg1B*qdWIxB8xRThn3Rw zRZ8nSsCvA40lGn%`tI|7LY8`zUcf_H0UD35iTW99Y;s=hd}(yA58z zSi&Lo0Yz+A4;Aj^e7q7`SYZfIN8aFvSRr%aLsEI7|a@c&r5N&634#5r<<;E!%zq>Pk zQU%B{JwR;iAGC`JVkW}yH<%p<6 z6AAoGBjFQhY!aZHShZ+NJV1j*nkFXiG`<3xg$Oh z+HmnC(pD>aXe$p)g3$RU*om)Z_DCccDNBD}gosP8@sy^#avGW0aFW7vx+jb$Jol%z zAON*I^Uj|By$!NEs}f7|>C*7c;pMXItY6L8=E+JgvQa9ZexecK1-$frR5dDYv(QybPZc>^&758% zD1RtcJv-F5w+wT=et&H>$5+@*8k(5~mD0f6L9>9j5u+~239o+-HBB_t0Ik(Zxz8&Zn{ zAAWgx`>*8d!@S*7xm?JaGc-}t6~y67D;bQN}=y( zj~T4(*Wz$9p+Kd@JpBYfZTW=zDN3hLop*Z|X-}r#M);p;N7FZ2j0BEO3^-Yr3*P?u zHDHcHR5ZyOP@aT3xsnE@L$)wDc3{A0GlZ;nRvufmHus}}^hhg|o9|-LH7r#|-cIQD z&WOJ|XcsRMIhn?iE)yXA=eFZ8482qumOfQzh)KI&gp`4Cpj%xt=N2foYF>EeVVKT& zSl`do7cpYfMgY}I&5DTZP`e|OsDpLlhp9=`9DEV1oA*H4lRjA3A#HZ- zJ^7ECci!UeaXP+L+Z*F!M3}#{R?Qyxa*EiAKlrCWsN9ShpzZCS2Ge|UN26G z6n!aIZx#t3dY?d&_{VJxaW9^PtNul@p-1 zvDO{xI_2B68h=&9d4A@Hx8t{zp0UoXUll`c>Y4yITe=Jt+o`E(a#EVvHY`pkwRXc4 zX;IbItLoXrli@9a%M-ZcxB&+g=Qmbz{ubBt^mwgl3aUm;)zyQyz&*SjlWom%E$caN z8ld?w{glXVx_-~TpKa?-94b1cHY+M4$2vJ#90{tdV+hN|$VhG1fC9rEQYP zpUwFL^Oqb}@9jqv0^@7pEnBy8@|ex!_x};}r@__K7$q*R3h?N`?gQykkzkQm+Joa+ zGg$Z)1V4j_WZa~5QXuG_UoNsZmwJOMs-Kbmc!4RA$6QX@z-$i8QjBaqX?DVXPZK`p zJ)2f&hR{yCp%qy!24|ZcKA`Ur(J7Uqs{eD8kAm(QN}b#KsiVSTwh%8 zx~5OJZK=#L9wHu6}Qe6Kc5_AgRoBgL(;AO>#_9y>%hhtGv2UY_RwptAGpXW+5Ic zDyL+JXZu`OB$0Qn>Z#TYgA}TX9&WLb5I{)o=$@asds5m)Li>9?%a_$9J&%Vb?TOW` zcykSyF1nI>^K_0fJ4W@?nY(hqkCucQ{EV|{THuI=Tei#pLb>0?F4KH3LnyHw&w&k% zB#|;U;G(Pa9w(x@e}L&A0UarTgJ~lII;~qzzZDiS_s#{<5z=s8IHuDj^xOM%8ObEQ zN)2Q6*=Df&J^)>lJ9Q6R>mJ^`)jiJ>*7MZbTG9N@Xs2@k32yt#pUSS5$h?`dS9MEU zYPL5dFJBAJp%LK9!|qh7xmkT(OBC}L`Olpu47}r!sRvEHXclyiy2o|sbh=k&$J^tk z%it|9NGnD_590KOu9Ax^r;}Z!_D8;xX?1&BtInpT81eNFXRC?~KQ^~zWovP(t0nY% z*5wQ~xAUdfC(Zfaxp`XB?>*>xPSx2{*&la;SY}h{jV(QmDRBB}jomSI)jUqBf6*7u z&nL4U*K}>{%xLzbeFAKw)19oMzbBTRRIxZMyIE!~H9wsHg>HX@U-ai#na7=5LbY|IrsL z0UzlGI2W9-!QRKp%kFDAJaya5p9}e+##2>_PBQOa);(6X;ZV?c^y-vI{I!9i-LN-4 zraMwRH(dg8Ic>de(jp}u&PaA;`=mpLIbqT!jJvJC7fWw7tHsP6%SFWph1|d&(S2q+ znf`Z|e+xo0)AqJYp;;52xF? zj@6FxFJ1U-W24+Xc(Tkxy#{#hAGJ5KZR8kVsB%SSFFli%zrV15$fn~Cx$gnf-Syt1 zQf&kpT^qH}PSmY1y6oI56mH^uX~px%qB~h%vB4xe--3aX>!ZPgb*TEEcY0Ohb{ZCw zHAqo3D5Tpgw+fUd1D-xrt4BjjS{l`S-p<^(yjXmYcspp{$e?Zojw)X|0-q{*k_^6} zUccia`2KqgN7G;PdGPNDm_Se^Gvi>XZ#nISwDsjp-kRB=MnmgEJdX=9J9Ndw7 zyv;JVmnB3UobE0IWve?TQB|R+;w*P@zebd4JEke~(g0^PvZ1U`nc0YfWL(_5`IL&Y zgSM@BopWuqh3Z!Z?yY5DaV}-Mn=K`WUP>?x8=Un_V*$B)#yz)OCt=?byMs8~a8nEv zG+wlz#p8iD7RU4+w5ghc^LbvJ$6tJ&$W6}jyapJ97R9d67W{aB{%C0F@gV0woOW5M zA*Pgj1&+S_%e@i(u7$t?Zv7jon3>hBFu0OK-JPzwEA7B-?__h&D%q*SO=RyI(3|wf|jRgxYUM8Yn!`8G17AZ&Bn?!3uvs_T^!H%_=bCwXp=3M_iD2bbkIMr^DUoY zJ{0ssW7M_t@`Iij+lJ%)ArWyaZ)&)HCp)^z9+9U2{9r7&&(HNKprb54!RQ*nzZd$7 zyDqd3xBe;)v8!kyTij=)w^2)w5(0rFpI~`Ym%JPnY6H)_jG%9^xijc- zD{KAFRey~arxPumvR`XK^fj|$$E4Hi1!%*tL7;@?>V9A(vaIJ5BsWQR31cNUTUmTO zWq+lS|AjS%xJrNod!S0x2Chvdf^%8PU+6rXrf7cSUv4274Jfb@%ZX-qKqjRi!u9|a znPXVEY$oz*_4TS>4swpP=}1UwV8UFe7Dd(ZvftSqh@u#FYy?sT2exNgTn_#b?pjeF zm>-KN({58H&R7`HS`OIGn=OpYt09Cy;(bNps)GL0xvpayw4n=DA!6gNZ;^ z@`{(g!u?AjMvox{_sp}J&qHr18mW0G`ic|0>hFF7&%GG+RL_6sAWeiYTGmAKP=;~B zyH12{Xh)v#j8I=jvBn-do1%?}YTkQ586Cf~1Llt>H4@*dm$Wq&X`G5AY-hJTIhKPTwnD41 z1{;x>?H&4%*3Pr!zkrF?_CMr*VGhsRcS2N@a#C9IgozGNmx1%vna7o0BDwmCPLhlI zL|J&{LJoJRtOt6Q6CIO3mgN!*1BxSg*o{j?2p%E+2$X12Z1MK`8PO8rvDEuwK|vcT zDMmY4hY>37ymH0m#@x3IBhBux;42S^8@8&0^2F4%_BQx zL+?YcQ|vF2DRv3^;!|5__muQEysSx5A%Kb#+^1#Omrx%NVm+ha^aq(#M0HZw`<7HP zNaxlh@;dpq!uO@{2H^eHS2&iWUuyWZh3Xd&1fjgd)^^Lu{MqlVd;$=nQ@CH zlO*@`^_KP=Q6i#*m;5RsFN`}wDCP*hN-bpNaved4>EQS}PY%Y)} zQ&xbvy&BsVh=rujfVDoOVwwK6A8|IjMZxcu#QTe!S5CFkgQ`!ebMFjmBc$@A_eU6?}xlsrkW_gzvzb zzBABNY87uegN7ifK^qAy$)epRa!%XhfR3OJd|;lP-X{%j)dGANj4>7f8-L>Ux+A9a zRGKq?U)qQw0^xG6N8bpc)dZD6fS1I0>yj3wGw?jm`~iNsr{R zV{D>SEc9yKY(1BcBa%s)9k8i&mM;fhWMI^0y}G~HQbso{asGmHBP~%MMRAOgMSd^} zSH|@7{eX`%^#~vs7m?d~vr5g;vb-KGX7qj1Qs>KTTm+3ZrExg$Smh-615v@qSMn|u zM(V6Yx*Vljj)8iPq1U29d3F#+hBG9YF3Tp&Kxg9EDp7vWJk$;W<{Y zpTKDsbV3I%e5Yh65Th|R0`CAQ`!c3t3#-kw3ly0XhFD=csLV5Hl88AbK0&0=`9~Fi zR=rUyfTaW0bqxzkdHij3QGiyTU6!iCDd&uRmvN2BVkJi+w#m#9?J}MTcBx+}ALtnA zqDiN20T0@BO`~q2q3zlhbv4h76=p(G&Os)V-byW7BUahW6=5l!5qhaW3ID@M++~Y) z$s@Li^O|~TC|ps;In{C>X|wos1PR&q9Ep6|-~DvSp;U@?1Ig8$SwjX*WkiZykej58 zz0a06nK6c|wMx0uSt9V)GT@1aFh}Pm|)hFa!R?w*DZVzRMyiaUu2YR zk2di279FJctZKg5PuC^j*L8cumP=oT?(dGcE57jEhEW;5TiG4l?7;v&)iIsnqD>^6 zPXt?>8G|F*H7j?$o)yM5V6uz$g$x|coZ5?(`>w!pop`vdr2~@#u7Vs`B3UPu?}^{5<6kp? z_-J`Z630ViB^~8d1~1Lt_Od5x!QPC*KgPYDSvbP+X#@I-teW({mPSaXVbZ zx*RdQp%T&Ps`hnJ>!?hG$dXxtQu&wE-d z)NwWNZl^j(TqM|WDMSDQ!k+*YOB>y5j?26Q>l($FEls8`_*7-@uAg0(>-O&Piijxl z75lTx62GzAX^9n?M2n&qaJ^nNy>HvxpW7|jy=eYcD-0wLj#<6wQ=Fa&cYSpp^ zY3mlA2YSFs=7>5^Q9x(md_X0I4a$0?-|~JU9J4(BqLDi}bu8$S zK(Y0SjG1@zzr!>ezzN+OZSE= zz~wh_ZJ@Cs=oJlx2!%T`!NDR1&dzHpH)VSk8q%u2cL;&7f-<9p0+$tdmWRXjM+Ed; zT{Q;VO-)AVwl8MxUf3*~Sg5w6nyj1YhrC8B4VX{qL|-^}s0^7e=|mfoyU)Ny8$S)3 z)M-n)dd;`=qEshNJJB&{UL)ce7*mF;zQwo5xggsXUHzuBZ@^I1ukP*HH`sYYgPa-j zNM>l& z2TzO?DShTk49Dr>{_>Y_x4-NS%}jk2--wyP_w^3IWcP$WFRIgNR969a(x?#qgk|i~mh2C4% z>hNM%M29}1tG~GZ$D4!kSgQQb`vt}$E3IC1$;Zt*Ps}*H4|8r71OFLL3Y)h8BkV*e zI{X9)Eq%9VAK9tm1mD2zt5un2Iatkk`kNJb@VBro@P1wv`z=VJ-DpObQu?1KV0ETQ zW=QU|AHdcYcb1_1p_Lf4DsTH|is`K-j00u-d5Zl*CwJ*?oOl{;~)jNBp-MYjC|&Y00X>Z5o~ zi6gkDkJ#NRm?%rau(%!#Ne%sL>_I(dv?uWtK)FJ^@>(1(bFWOyv7%NtNER>qzAV&{ zHTQA(Fe?GH%cY=pfTdGzQhZI1qy}YWsF);i=RvwOb}Dx9%{L;h==z#1VWdR(EItb( z;rI`a*xf6~yz*03*|E4TpIFB6Crrq3C6?du|5IiAo(h|!np3-CQdQ0 z^2OujtOUQltvs`0@aV8IGa&1*#J0jQCAHR;ay}lt%1-AlJ|q_E#=Ge84fuFW?9->x z(hB@^MeozG(o!iQ_WgAt*G|PoG9jf#e5+zjnZV`ef>EUuMlWI6h9WcOCc)%pBjOGZU}uh6oGeuBXK-J`dR9O z?}O7YV23z1act%ZZ~=S14SeC%YjdAYfFl&yvT##R*ePROrDs+Ahw?hS`!a$71C!Oq zMLMl?f<2ZwFANUr=Ep3gR{VWgZ7O-l@NjcH>Q%m&qH!z`q^E0$Ou9*F#^Jkg&3<20 zVFk2D;qXZsw;y(xlwhU|Q1~-+ALR+-t9uh1A-b*jWa+*J1|zjPF}lNxsWh2AHO6I? zA74bSUmQMXr;&w*R>l0`;@i1hbWkh&D%aJIL<9&exc6)*d>?TRati1{4apo7(XOHD zMu9n7kebHg$i@?Sq+`COD|r9 zllqcc`thxUAqE^M0f9v}kl#B{iD~mB^9al(+ya7&*~0+!dt_1!cI77LNuFLU%Q&bz ziYX_etl%637_L$!9M83I*lhzoR97f7FT2xl_j=mY#MPbn;~($uS3$ z82x-1Jq<-&eB!+%@OcIZ7JZ3b(_Ib*6FW1hkOJYCVn8nO9f0tnl5TuY2oTXmfLIp_ z%^QWa$US42678mWDW4kRBFiRTTCNh7UI znlvd^#5~-qDiA&KVChRIr)syaUJx@4ss0dVgKxxMOjL}fxax+BzSE?%A5Sl*EKI_v z;(?lnM&gs8!&|>NKFb1b~97UUz$|d_`vU&NB^EyJ1o8_7Bl*b6t|8-vH zWa8{>VQcoUBdBIg9j7%;B%huh!u`KVaR;ny(t?oU78VlveymP!q!-}ML{>ZrI6K?h z$#51h?8PmQN#T61#YO*@6m`O+Ec7d-QjXPk*VaTcX>pSa3UaxXD`7bN* z)27@(qCo~&fy|{?QTbvI&|S1HL>)fZMUt#>7B$!jLwVSw*7_ihZ<_m$3-HI(9Stbj zyqgfPMhT+TE!wo(G;~|}87pTiD=RE+Zg1vcj>E?z?c+JVmoUhBH~{p9A$GH4Gqcp@ zi?1Ey#!dR3{DE20xUw;-*c|*)0Y$w z);{9ZEr#=;D|?H8BY=#}cK@yF8$A==B=6lQH3ERAR!>Jax$y(@+1tT>?y>QA4Q(Xm zFFJdUfUrAQPFT|8JU1L^WN>;+=4i?MwAdVLDs9U@BT#o$GikG8nS9Y2j^id^RAEm> zF6?a^T*_#cKH7s`bJL2=3Q27O3rDvew~3Qdoso?bo(`29B8tOhM@qoSso{;9E)raY zg`H=0#edx>7HpUy_B+Qr$W7lM4Y>)VIxJfFRca6)0a!{40`bF+tr?XKTcX|-Rat-c z=S}hjT-+}o8v`n@PZ^+~;DvQW&|#=QdWTkQNUonslyH6hkZ#@Krf7>IFa;0zfR)ZJ z$D0%bw-dtBH@Z?!Zrf){@UK`82847sm>SKQ;L$2H17?cJ_=u+5w0^6erK+K;J)Rqi zLYCK`UkxyY{pJW0=PSDXiBq856HEYLX>mbJN9XSufMnKFw0XAPEVVfmvqk$WT_W8S zUdHXQswj3t>~B6Qlvwf3lYFz|XxU$46gY;&(n_N0bFwift#1+%5M0NP+-I9xX~?wA z3@3cRG{RY~sO;x9Sx2E_0=b_yhBK|qMM`U4#^$DQxo2$xK35XP=c0i13$V{UOX@7x zfg$sXr`=@n;uKsS6(U^^eA>V@l!5?M;kJxA3Wrv9CA)jOssG7Joi>IC5=STr;zJ;96 zXDo%C-0DlAp7?el+w+x*95A0XWvuk5Zqx-OMwH=cjq zt2?RA7EyV^Ooh}uUg<24!h98i21rFEJzk)M4~{6+c+$R*Wo>_+w-gyfq`)zYPm_;@9>vjT}$Ipf-5~cI~heWOWzTv;2C7w>zCGu4~yjdJQs3bG3XUB=Wm8DJQ4t#wX(2wYy4hpGZLK7 za&n%jF!42jL-bPlV9x`;X05My)FmvFzZ4=;3bCO~wg5mw?D5Frl7_8n0w$WhLFSVq zemVGRjCV!XIZZph5Xsk1u>W|Q-w88#CTG{{3ETsp3#2)A-wk@xq*5`Mht&%B75G|z zSaFx=1l#tQeABL?!#MVBQ@`xb3vYwDFd#tjLO@l8>}Ble6MIz4`%#C>^Y0605lI<% zn+(#AOM1+Jo8I+S$+iAQzO=gHH;J93F7KuK$+-#p^A(MT53XV5;Gsy4eR|dP7UM;< zsAU;~#@jP`-=HN5}u2i2L8&7Y;*#dVt$~HL6P@#aiL~~%X6JA>PREA{dxrY@JC6_c&>-_87#J9s>}h^g&Tk%j zaB$LW+&VZylt-OiN24yI{6Pe9FI!(qx3H+%;I0y2-8EOAbsSQYFZ1V246qSjz6MQk zPd~G$4aFJj70eEot<0{pXFhn0-UcR{T}ua>@6_7gzG{*_OFrJ$yPn=(-($}*Qw9Mg zGwT{(&u>|nQk>i!qT$G5of$yVq%1wcPh1eqJ?<6)x`u&8>=pteU z#|_gI`OrY}Qo!HE0sg;h5Bwip{!93;N(BE#{m(@P{*99P7Qd?({Hx@^f1>^~tNh=n zgzxY4KjxVKC&hoJR{xt~_Iv66uSDzr1pcQ#@87^AlK<}A`%mP5y0-p}9QfXA{M*s> z|HA#pj^y7sVUBOy|Fu8)H}Zcr>3<`6`2K$w_
+ + + + + + + +

https://liibre.github.io/Latin-R/#1

+

https://www.rosannavanhespen.nl/2016/02/16/writing-your-thesis-with-r-markdown-1-getting-started/

+
+

1 INTRODUÇÃO

+

O assentamento São Lourenço foi criado em 1999, quando foram assentadas 58 famílias no local. Mas, como mostra uma reportagem do jornal “TribunaPR (2003)”, ainda no ano de 2003 a maioria dos moradores ainda não havia recebido sua documentação de regularização fundiária dos estabelecimentos, correndo inclusive o risco de perderem suas terras. Segundo relatos nas reuniões, atualmente existem aproximadamente 50 famílias residindo nos assentamentos, mas houve várias trocas de moradores, ou seja; nem todas as famílias inicialmente assentadas estão residindo nos assentamentos.

+

Estas trocas e abandonos podem provir da falta de opções de atividades que possam gerar renda para as famílias, além da distância da centro urbano e dada dificuldade de adaptação ao novo ambiente.

+

Durante as conversas rápidas mantidas pelo grupo de servidores do IFPR com os moradores do assentamento, e na busca bibliográfica, não foi identificado nenhuma ação de planejamento coletivo para diagnosticar as opções de atividades que pudessem ser exploradas no local, tampouco um levantamento detalhado das características específicas que pudesse embasar tal diagnóstico.

+

Não significa, entretanto, que não tenham sido realizadas iniciativas ou fomentados projetos dos mais variados, e por iniciativa de diversas entidades. Aliás, como foi relatado pelos assentados, vários projetos foram iniciados e se mostraram inviáveis, por vários motivos: falta de assistência técnica, falta de recursos financeiros, entre outros, falta de conhecimentos, baixa produtividade, etc.

+

Para embasar um bom planejamento agropecuário, é necessário adotar boas práticas de planejamento, preferencialmente participativo, e ter um bom conhecimento das condições específicas da área. Entre as características sensíveis para a definição de atividades agropecuárias, podem ser enumeradas: fertilidade do solo, declividades do terreno, classes de aptidão do solo, pluviosidade, ventos predominantes, ocorrência de geadas, temperaturas máximas, mínimas e médias, etc. Muitas destas informações são acessíveis e disponibilizadas pelo IAPAR, IBGE, Exercito, Universidades, geralmente em âmbito municipal. Para conhecer as características específicas dos solos, entretanto, é necessário que se faça uma série de análises de sua fertilidade, , em locais adequadamente selecionados de acordo com a inclinação do terreno, tipo de vegetação, manejo dos últimos anos, etc.

+

Para tanto, este trabalho prevê a necessidade de realizar análises básicas de solo de diferentes áreas do assentamento, e a composição de mapas temáticos das características dos solos. Uma das hipóteses é que que existe uma grande heterogeneidade das fertilidades do solo, além da maioria apresentar pH baixo e deficiência de vários minerais. Desta forma, o objetivo deste estudo, é coletar as informações disponíveis em forma digital nos sites especializados, bem como coletar e analisar 150 amostras de solos e a partir destes dados realizar análises e construir mapas temáticos com as características climáticas e do solo do Assentamento São Lourenço, de Palmas, PR.

+
+
+

2 OBJETIVOS

+
+

2.1 OBJETIVO GERAL

+

Criar mapas temáticos e criar um banco de dados sobre: fertilidade do solo; ventos predominantes; declividade e curvas de nível da área, através dos softwares livres “Qgis” e “R”.

+
+
+

2.2 OBJETIVOS ESPECÍFICOS

+
    +
  • Buscar os dados e mapas disponíveis na internet que abrangem a área do assentamento São Lourenço;
    • +
  • Coletar 150 amostras de solo, georreferenciados (três amostras por morador);
    • +
  • Realizar a análise química e física das amostras do solo no laboratório;
    • +
  • Utilizar os mapas e o banco de dados para embasar futuros planejamentos de atividades agropecuárias para o assentamento.
    • +
+
+
+
+

3 JUSTIFICATIVA

+

No início de 2020 foi submetido o projeto ‘Diagnóstico e planejamento participativo dos assentamentos Paraíso do Sul, Margem do Iratim, São Lourenço, localizados no Município de Palmas/PR” ao edital de seleção de projetos de seleção no âmbito do IFPR. O projeto foi aprovado, porém os cuidados necessários para com a pandemia da COVID19 inviabilizam sua execução total no período atual.

+

O projeto aprovado prevê a realização de análises do solo nos estabelecimentos rurais dos assentamentos como parte do diagnóstico, e posterior elaboração de mapas temáticos com esses dados, para subsidiar o planejamento participativo e a priorização de atividades agropecuárias a serem fomentadas.

+

Tendo em vista a pandemia da COVID as atividades da elaboração do orçamento participativo estão suspensas. Enquanto isso não for possível, será efetuado a coleta, análise, interpretação e elaboração dos mapas temáticos, que posteriormente farão parte do projeto global. Mas, independentemente da realização das atividades de planejamento, que prevê reuniões com participação de público, os dados coletados, analisados e interpretados, serão base para elaboração de documentos, além de subsidiar possíveis orientações de políticas públicas de projetos a serem executados nestes assentamentos.

+
+
+

4 REVISÃO DA LITERATURA

+

Várias alternativas para diminuir os custos ambientais e financeiros, sem comprometer a oferta de alimentos para a população, têm sido testadas nos últimos anos, entre as quais mencionamos: redução e otimização do uso de fertilizantes minerais, especialmente do N (O’BRIEN, GEOGHEGAN, et al., 2016)⁠; diminuição da renovação das pastagens para evitar a perda de C orgânico do solo (SCHILS, VERHAGEN, et al., 2005)⁠, manejo rotativo racional das pastagens como forma de elevar produtividade e aumentar estoque de C orgânico (CONANT, SIX, et al., 2003, SEÓ, MACHADO FILHO, et al., 2017)⁠, SILP (MACEDO, 2009)⁠, substituição de adubo químico por orgânico (SANTOS, CASTAGNARA, et al., 2014), o plantio direto (PD), e os sistemas polifíticos (STEINBEISS, BESSLER, et al., 2008)⁠. Ao mesmo tempo, cresce rapidamente o uso da tecnologia de informação para análise, interpretação e comunicação das informações, tanto entre pessoas, quanto entre máquinas, e desta forma evitar desperdícios, e alcançar melhores resultados e produtividade, sem comprometer o meio ambiente (CÂMARA, 1996).

+

O uso de softwares para o geoprocessamento de imagens de satélites (Gis) vem sendo muito uteis na análise, interpretação e comunicação dos dados na agricultura. Vem sendo amplamente utilizado para elaborar, por exemplo, mapas temáticos de fertilidade de solo, distribuição geográfica dos solos, condições climáticas, entre outros. A importância de conhecer as características do solo vem sendo reconhecido nos últimos anos, tanto para o aumento da produção, quanto para a regulação ambiental CORTE et al. 2020) (CORTE, SILVA, et al., 2020, SANCHEZ, AHAMED, et al., 2009).⁠ No mesmo artigo, Sanchez et al. 2009) (SANCHEZ, AHAMED, et al., 2009)⁠ citam vários exemplos da importância e benefícios do uso de ferramentas de GIS para auxiliar na interpretação dos dados dos solos em escala macro. Os autores ainda definem que um mapa digital do solo é essencialmente um banco de dados espacial das características do solo, baseado em estatística tipicamente de paisagem. Para isso, são coletadas amostras de solo a campo, e analisadas em laboratórios. Estes dados são utilizados para predizer a distribuição espacial das características do solo em uma determinada região ou característica conhecida.

+

Sempre é necessário lembra que a agropecuária é responsável por uma grande quantidade da emissão de gases, além de ter participação na eutrofização das águas, na perda da fertilidade do solo e na perda da diversidade (BUTCHART, WALPOLE, et al., 2010, GERBER, STEINFELD, et al., 2013)⁠. Por isso, o uso de tecnologias que possam diminuir esses problemas, sempre será muito desejado pela sociedade. E é isso que os sistemas GIS oferecem.

+

Vários trabalhos acadêmicos e científicos mostram a utilidade, benefícios e eficiência do uso de softwares de gestão de dados geográficos para a elaboração de mapas temáticos das características dos solo. Um exemplo, é uma trabalho realizado no estado da Paraíba, com o objetivo de mapear as classes de solo de duas microrregiões da Paraíba. No trabalho, apresentado. Uma das conclusões do estudo a identificação da heterogeneidade nos resultados expressos nos mapas, devido à diferença de clima, relevo, vegetação, altitude entre outros fatores (SILVA, NASCIMENTO, et al., 2019)⁠. Outro estudo, mais avançado e detalhado, foi realizado na região dos vinhedos (SARMENTO, FLORES, et al., 2008), e mostra a grande capacidade de produção de mapas, com informações de grande importância para a agricultura.⁠

+
+
+

5 METODOLOGIA

+
+

5.1 – Coleta e análise do solo

+

O solo será coletado na profundidade de 0 a 0,20 m, com trado tipo holandês, com 10 subamostras amostra. O solo coletado será seco ao ar livre, destorroado e analisado no laboratório de solos da IFPR em Palmas para determinação de: pH, índice SMP, Ca e Mg, P, K, carbono orgânico total (COT) e matéria orgânica (MO). O método utilizado para avaliação dos atributos químicos está descrito em (EMBRAPA, 2009)⁠, e é especificado a seguir. O Ca e Mg serão extraídos pelo método KCl e determinado pelo método de espectrofotometria. A extração de P e K será com solução de Mehlich-1. A determinação da concentração de P será em Spectrophotometer V-1600, segundo (MURPHY, RILEY, 1962)⁠ e de K foi em fotômetro de chama. Os teores de COT serão quantificados pelo método de oxidação via úmida, com aquecimento externo, conforme descrito por (YEOMANS, BREMNER, 1988)⁠. Os teores de MO serão determinados multiplicando-se os valores de COT por 1.724 (NELSON, SOMMERS, 1982)⁠. As análises químicas serão em duplicatas, e amostras com erro e outsiders serão repetidas.

+
+
+

5.2 Análise dos dados

+

s dados das análise dos solo serão analisados e interpretadas com o auxilio do software Qgis. Para uma melhor interpretação, serão importados dados públicos sobre a declividade, inclinação, altitude, tipo de solo, pluviosidade, e interpolados com os resultados das análises do solo. Os dadas serão buscados em “ftp://geoftp.ibge.gov.br/cartas_e_mapas/”, https://bdgex.eb.mil.br/mediador/index.php?modulo=login&acao=entrar, (FOREST, 2020), etc. ⁠Com esta interpolação, serão construídos os mapas temáticos, extrapolando os dados dos pontos coletados para toda a área do assentamento. Na figura 1 estão representadas as curvas de nível do assentamento São Lourenço. Os dados para a elaboração deste mapa constam no site do exército, e as delimitações do assentamento em arquivos disponibilizados pelo INCRA. A altitude, conforme identificado na figura 1, varia de 1060 a 1180m, e a área do assentamento é de 15,254 km². Já na figura 2 estão representados os tipos de solos, e a declividade do assentamento São Lourenço, com uma resolução de 1:250.000. esta resolução é muito grande e não permite identificar pequenas variações existentes na área do assentamento, mas possibilita identificar especialmente as características gerais da área.

+
+
+
+

6 CRONOGRAMA

+

Tabela 1 – Descrição das atividades, período de realização e responsável pela realização, do projeto. |O Quê| Quem| Quando |Como | |-:|-:|-:|-:| |Planejar locais de coleta|Adenor|Outubro 2020|Análise mapas| |Informar público alvo|Adenor/Orientador|Outubro 2020|Rádio, rede local informal| |Coleta das amostras|Bolsista/Adenor|Novembro 2020|Recomendações do manual|indicação de dados geográficos| |Análise do solo em laboratório|Bolsistas|Novembro/dez 2020|Conforme manual Embrapa| |Análise dos dados coletados|Equipe|Janeiro/Fev. 2021|Estatística descritiva, interpolação, gradientes| |Produção dos mapas temáticos|Adenor|Março 2021|Uso do Qgis| |Elaboração documentos final, com descrição, analise dos dados e mapas|Equipe| Abril a julho 2021|Para publicar em boletim ou congresso.|

+
+
+

7 ORÇAMENTO

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+Tabela 2 - Orçamento para realização do projeto +
+Descrição + +Quantidade + +Preço_unitário + +Valor_Total +
+Reagentes para análises do solo + +150 + +R$ 5,00 + +R$ 750.00 +
+Despesas com viagens ao assentamento + +5 + +R$ 100,00 + +R$ 500.00 +
+Bolsa estudo + +12 + +R$ 400,00 + +R$ 1200.00 +
+Impressão material relatório final + +50 + +R$ 4,00 + +R$ 200,00 +
+Soma + +
    +
 +
    +
 +2650 +
+ + +

Os recursos descritos como fonte de origem “Projeto”, são provenientes do convênio/projeto aprovado…… As despesas com a análise do solo serão em parte realizados com utilização dos reagentes oriundos do laboratório de solos, adquiridos com recursos ordinários do IFPR, como contrapartida. Os recursos para a despesa de viagens ao assentamento foram oferecidos como contrapartida do IFPR para a realização do convênio.

+
+
+

Características do relevo no assentamento

+
+

Dados das altitudes

+

O dados das altitudes são provenientes do arquivo raster fornecido pelo site “Topodata”. A Partir do arquivo raster Altitude_SL, foi recortado a área pertencente ao assentamento, e calculados os indices a seguir para 10 grupos de altitudes.

+

Na tabela 2 constam os dados da altitude da área de terra do Assentamento, divididas em 1 grupos, com as altitudes variando de 1067 a 1198 metros acima do nível do mar, e as respectivas porcentagens e área pertencentes ao grupo.

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Tabela 2 - Quantidade de metros quadrados de área de cada altitude, no assentamento Sâo Lourenço
Metro_QuadHaPorcentagemAlt_Menor
19540119.51.31198.5
60072960.13.91067.8
83792783.85.51184.0
1038504103.96.81082.3
1720259172.011.31169.4
1721960172.211.31096.8
2181861218.214.31111.3
2261305226.114.91140.4
2280130228.015.01154.9
2377347237.715.61125.9
+

A menor área está em altitude de 1067.75 metros acima do nível do mar (ANM) com 19.5401 hectares de área, ou seja, 1.28423 porcento da área total. A maior área está em altitude de 1198.484009 ANM, com 237.7347ha de área, ou seja, 15.624589 porcento da área total.

+

No gráfico 1 apresenta os mesmos dados de altitude, mas de forma mais didática, e a representação permite visualiar que a maior parte das áreas está em altitude que variam de 1100 a 1175 metros.

+
+
+
+

Referências

+
+
+

CORTE, A. P. D.; SILVA, C. A.; SANQUETTA, C. R.; et al. Explorando o QGIS 3.X (livro eletrônico. 1º ed. Curitiba, 2020.

+
+
+

SANCHEZ, P. A.; AHAMED, S.; CARRÉ, F.; et al. Digital soil map of the world. Science, v. 325, n. 5941, p. 680–681, 2009.

+
+
+
+ + + + +