From 6e198776cd95019ed8fa4c2a2e60885f8c6e4323 Mon Sep 17 00:00:00 2001 From: Edzer Pebesma Date: Fri, 4 Aug 2023 20:20:44 +0000 Subject: [PATCH] Deploy from Github Actions build 5766057305 [ci skip] Build URL: https://github.com/r-spatial/stars/actions/runs/5766057305 Commit: 9dc6ab316ee5cb5fa3037033bece14fafb3d4a13 --- articles/stars1.html | 2 +- .../figure-html/unnamed-chunk-23-1.png | Bin 41785 -> 48246 bytes articles/stars2.html | 10 +++++----- pkgdown.yml | 2 +- reference/aggregate.stars-2.png | Bin 24281 -> 24318 bytes reference/read_stars.html | 4 ++-- search.json | 2 +- 7 files changed, 10 insertions(+), 10 deletions(-) diff --git a/articles/stars1.html b/articles/stars1.html index 030345dd..4d35a647 100644 --- a/articles/stars1.html +++ b/articles/stars1.html @@ -595,7 +595,7 @@

OD: space x space x travel ## stars object with 5 dimensions and 1 attribute ## attribute(s), summary of first 1e+05 cells: ## Min. 1st Qu. Median Mean 3rd Qu. Max. -## traffic 0 8 10 9.98628 12 26 +## traffic 0 8 10 9.98827 12 25 ## dimension(s): ## from to offset delta ## origin 1 100 NA NA diff --git a/articles/stars1_files/figure-html/unnamed-chunk-23-1.png b/articles/stars1_files/figure-html/unnamed-chunk-23-1.png index 8728fae11da83c60c54b129096c449d5b4b4b83f..688fdb880fe059862798c258152e9902134fa443 100644 GIT binary patch literal 48246 zcmeGEXFS#a`v8vP7}@)fRm#lF-YR6TRQAp&8Ev>AqtgWqWY;0_8ZSCyr?CtFx92^`S9i5z< zoSmIrTwGjTU9Vlc=H}++?(Xj4;o<4&dHwqJ8#iuvd3kwzd;9qK`1<-nAP_%4KYxG! zfPjFTH*em$bt^D1FeoS}I5-#zg@%NL+`fGq27`r$hK7ZOg@=bnL_|bJMn*+N-MMoo zIy(C9-Mjbh-MfGPeoRbEY;0^?TwHv7JRA;x@Zdp0LPBC z)6&w?)6+9DGBPtWv$C?Xv$Jz@a&mKX^YZfY^YaS|3JMDgi;9Yhi;EvUdQ?(U^7!%N z($dnhva%;no;-c}w7k5$qN1X*va+hGs=B(mrlzL0wzjUWuD-s$p`oF%vGLinXH88_ z&!0bUZfysi~>y>1iw$J2NvgJ3IUF<3}70_vzE8xw*N|pFhvf&wu&y2-%tVM`IZ5uophQ_hh`tB{oTy7x!sstm^oK&M)0*chS;bdNig} zPX;z42ao0B!R@y{h{-t0$SbD?4EE&qFU^OAcj8R~Qt}jMw$_Y5u~q06|I0(gzU+1RmCiKL)!K#cLvA!XlZ9?HJbiNx z<9AbR&3NFMm5_qMC9r@YkL#eKOl+@kf>9W5L2;~} zGvU%nkwlCk8C=o83Ypx6D?RuB5&nN$)uUb29$_55PXCz0cFunGfgh;xA9J4~lIY&& z&icoy;NuiaeE;V#)T#0R9Bw1?>89`h$3x)HKrDS)|MN%MP^##VVoLXaT#Ld%0i!DR z9`%otG^2RSpoR4E(*HP?gmf1h{;}Er@J`llL`bClU(mW#QS8V6Lu*71qbl-0v=oO% zQ8&)X{GY$lIYFF;{+E~n-O>0;}G`RcL2N~0Iy40>;2#x zyYp{Fog(b2C}(rvzs|kB-0JJO=HBOSo9p9tZEbQ!rYb-=4O6LI8W*fO+g5{8{Bwwf z(4m4GyXJsgPZiGMs1m!q;VI(X+%z7{ne}TRL=jvIP8Y(CcowSgKo$Fslz;9N7Pj?c zarCq>wx@?%wy-4S9nGYV&+~N6+jM%W_?Ng3kGjy??8EXOPCzC99&$(xS0*Hy4EBd= zTt_%Nc{NsxnmfT!S{1W9i`(;xqCW)SE7Gc{pXCM8%=)?uY^et z@38>FhS7+J#up(fj_2bO-eSSRrqI2i?^3BLx?x}ZzUJ9C{IcDy%32GclNR1#@pDI* z-gQ2cJ&WTtYw_m2I_3_D8@i{zk+Z!uXBDGmjZDa2jx2mvNb)LkTbr{ig<2AOGsV$O z!$U|)%Db^idHLaP7xJ~lcvmx5T6vYDt7h%}z`gatO;oru<-9F@a#xQrDFXURz{5?W zP#aYQqC&zOn#H@vk1qOa%(mMadL|*MFmd6B zp>uBaKx;!q#M-BRzGfjv@b6QUvn-!nPrrX3!};e}E?)uC*KLbv-a|d#`~CV%`ZH@w zKEsVY@%-K8k9=W!f-8Wp6gQw%*;zkIDXiO0>Z_!$>1y&8E>)ImY%0NB7_k|UETF{@!4Ib{|O#+ zg(TZqg_)#^_kT-wl+)a^$nvg*o5&e{zDxB_5E}5K_d{%Ma{3wk=IwVTyKfO0(?4Vx z>A?T{<{o9w;|zlXo3d16n!nZXI~8^dJ+-+JE=l>E{_MYzPTm?zm)~G0QSbXdL~46t zP^9CfCQp5iN&U}}5IW90`w3<%PKSR3zLyM`GuK|_*iRAUzd?5Nn)Iqw&;r!yBJ@bh zN0QX`kfLJ7ON$Yt?H_@3{-4Bete`#6u=G|C^>dZ%pA6y<-Fm}2&o+<5j^}^LuS)uv z`4XIGzyF^jG4ZAT4rI4uIQ~sMTy_k0skXmbR?p~g{!^7WM5jiIA}}W+m%C~IO*ix# zq#8X^im$dlQv91;C>KkDbixs*bN-h|*(Jk@x)5hKRVQ=Lf2D_#gr-v04jHERlQ zJ=UDRrPbw%6RSqfpHIzZ3-1A%!F$bW#6~(5%YGST%InU(S${hUh_A6X2Yc>_qSrD zjq<7HP9k-n7XuWO&y3(k9&aU0qGBBQQ+eVmyM`wC1@`9ioe8Y~(_uw*3ZzP+P|v@0 zE}rbZwPGTf?*Wp8P2R|2%m+wCeNg*0Hsx=D3nP_&(@LP6U8@7^X)%}F`h5}ax;h;9Z47hg>}>P;{xZEC+Qth$5G%Y zt;Rov^d#78OrgUg|5z+1xc2n=Xwx8RiksN%PEoP-QSHqHBZPyNJSRQnmbmt5vCh+D z^S|AF>5R(y2dLv1kL%=^S@fVYU@#Sb{^5DndV-r%^FKgXO1frhU_sL5s9HWKpMN|i301P1wHQLb|JoKq<3k6B~ep|A`(&S~zSYL9^c z#PW^NujPf;n)Yf;-tRjFfHYHeG(ps9pr;RDE~-q=%3F_6HffU6{vM^$}&}hYIg6&*~(_i_634>z1YC)vN?7qTQNHRct3;XBO6g(%y|L}~H#4e!x zyGFdCDlY)4Zu)c^a35!h2}wq_KR3*u122Knb6&g_FGD(52VH&;(DowNIl}2i(O;?B zpfRMuw6;&kKnG~fR#Q?ZO}31-%-nw%{rj@}b3j<2#$#Iwe%gA#9lP4$z^H`z^jeCA zR5w2A_SdBxI^z2IsAaJ8l1i$b`Z~WE@Gs($_@|z&K%N zd2zu@7g0Q&VQNlCaqL1r2FB`V-ZQTrS-TH4@F^mCbWYC6F7m&$hR9bW#;4S0WqE_G zkRiVyt2t^^OB^Tv=-NdRdpc6lP=S%WfI%2YSFhH06`{sgpJ_GXzyEP;{(0OqOPr2i z?vPYi`JH262zZ?m-y=gsBwcy`=epj7!karNM#QGoB**e~7_E@Uxfnn}tL-nm0yO>7 z!vEY^v@P;xWV?al41L}S6Ce-XhewW_(Bnn62-+-|QvD8)05+oNs|LCu65)HSSs1T1 z7ui|Ko{~1wB(Io1c0pob`JZ@jjgc!K$=wNDp_BS+l(ju~PdeWDL}x zTP46G<(H%VncIG_jF)_|bX~qZ{a01ZP(})@v0K+{iPh(UP=g83n&V>cRMUn=f~2b03`<%air3gQokg=7f@a zmvjGdT>!*8Q}I$TXg-ETX#;m<-;oT@`F^!N?ANc9K_hl*89Gbfi8V3M4W3w->1Erj zz13=zyqCM{xUsJ66#H&NU{zlvYR^MYBrS2rdebtSY%*n=rs#*qjaQB&4?fWGF3y!L z4x6~e6Nl1m9>1&n&Oq1ixFAE}fH-6Se0ZU=q3}}_ciwYGQU^xCIs%?hYo@Z{aRnjM zpEHG*2k~7}`xWM7I`F#Q#J81U`EnU_^J=slyIF#wJWen1fXn?Qu3gc;jcx$fzN)Li~Sdj z7zN^O9wNVemqlq1Cl6Wu7M9OTF;yFQ@^`iYQ0Y#+T#NWUyw0ygo?iej&*gQfv`%q)fFCoo5;@Gd7jm}E7rkD+;C=h+Xz3|za$ zEMVbxQ}^v)f9@{;BjuFX$6zWlXnNX^2ea)X;b%E)QgAa{49)!?>3H8v`P8j=q22(} zl|TziL_+J4yg3qP8u7n5C$Qs_sEO8WniL!Kr~P;^s-!JyP^qx@^Fo7vsQrv58qXeU z=FK3njbTK7>8M-QFWVQEzYP=ROnJD|4hOY2UF{<^HBe$*OI4kcUZnbPg8x5gMlTu?BVLC^a$GpZqebYTmK0Sf*VA6Q78d-+6jza_qim;$ z(91U)j-PN5!G=ZRucyE`{jw*R|8QIlO#+p*;R!N+-Unz*o^GZJAsoqqELHFP)?ht5 zz6Pa6RG%lI0$2{m*%kTFKy-n_?awR~Mfv4;i$)C%32AdgK;LzqBIl&Y!k2Xb) zl8ssj22X$UB$V|27ZZePkT~H+H4EE95m@mHsCU0Awf z8jO5Z)H+~>`n&mfA;xxYyE(8@gL;2@%4A8{AajQ<2k@+(3Y+~I7wk3b(J<#QOt*Yh zWN8Q|v35-Qa;?@uUx_<|<&A(371u3A9!VNm2-sCrhsnv-SM93NF)S)D4p`L*9NqJUz5kQ-YL?W7Fam~vC|I~z7T z78gu8oGXp!)GJEuS`o*d+Ib%?Zgnuz^C;kSf_sjZT^1$0s@o$OSEH|wcBd$VM=KQ6wT72iy?TJc44Mr?;RQ!ofOO`oNk zGsVqM$o@VkjwK7E{w%W=a?rs8!ZiQL*J%NB4^t)PLr2fAM?4fFmZRj~sy0Gt`$;$6 z{Y5E1vAxvDX9ED{LOHlct)KO%vyVC6_5eeoj>k*wSRV>qfU_sL^<&(_b~%Qb4{eNW zjO_MIh3TlurG^vJF}6+(TbGNEXg`5EZtU&OoXFDRQ}V@yF)7_sLL^y2nIi!(acPsr zBLj+JZKK|3Z1d0}FYLp$zy0~eByWni`F{NwP)qxP{R-V<4kqqs3t)(t8oHs(4oy?@ zn?l1H2)Y6$D;SA46(#|W0Grq?ox(%0pFm+GvSAyDV_ACpIMt6qlT;9lpn``}`#hdF z7tUG0d+0u**y^Ygp&JNl&I2x|+2Tsy_o(x6iXg<`%_#S$Hf7_*2kukPhIf>B^8!*x z6)D>TdS!(C(ezcXU~0XxzGkk<2vB=<{d3-p4sa76t%5`2O%R7*art(h5{PbRi)A zgIds#Lj12Y8{e2@35klj%gMq-UDVY8SOauj4V3qE@(-JvEYV!tInG*ZsI#n)GD@DX z00?R5$)?kA#i8YJH#7A^LuTNNd(+-IP*oogRv&1q|K6i+6tpD`P&SOpz4eFkG)@mJvD_Aq9pc5>S|lBayTS;m3Fc>TQd*T_n*4$i50$N55hLqSCC~UORwPlHB*h zAEd;yvuttG-@NM127a}Q8~u4l^(6bHfQaOC!UwRFWTsxhhYm-FQ3bb{xOX=76Kg!< z(xHW~P1u=D0w7WrzR`eG(&evuBoD2mMPSJIwKYTYF#n2qhE*JK!doKOFJ4!vhb;JGvnIH)dKQS-Geyk{1}o*L-2;?Jy6D1eFek+9-F=GT8rYvo4fJ}|N2}rGvl#O&97^+LzhTgoO2(dz1KQN3H`=Khp zT&v%i2h|n!aMvh&Hsw_Z*rSH$yNAl}i~jdk>Um zDPBs^uFF=E>FD!yA}D}&ZSP42z-p?x zz#j_?Q{APCB;S(|NuI=T74_6ftU5Lf-hl_7`*?$FJoF~R0It$=2o?UTHh;KaN+OJIpKZ$HWNT){b}utr~~wz@g+ z$Gy)k${c%DvBBc(xiL_|vB+ zuD5qC9W0#GJP`c#2b-F%>Yhn!WKNns5=K&}A5RqMesjQ-SX8AfEx!;EjG}S?0FJLv z4$=>2zZ~xw+Urd=(ac!dvsT%e>{j2}g<~r9v(b~J z65j+dFg`yU&YBQTv2>nWT>}>eR^o4Ca}OA8x(Gipt=I^at-2o=ed{m{O`#{* ze;Qmx_OXoJQMes?u?j&#Um!Dfm^nITEcWAKiwi7XfSz4kL11FsqGx%(zFvH$B6tQ#llg^9Y-AO zSG&=GQzwJQ$c2WYC&86pGP;ac{80-v+yGjRkR-&q&S7~TH=37p(E$mHEPwpb^)yi5 z*s2@{KuuY{&b20EyaHrawI4DZHXGScU@ZO`9?U77Ef?yI-sXDPFL6I_YBD74p(`PW zT%tkvpib;Zx80ntsjh<7lGO;(pWr5#P!9I)19Cv8UR)#OEZMY7*TfvusX)zVTa}!` zf#*e09FT`caRm5}thR7Kb)zUej%;GfS(p13llBlKI(y0Qu z7AKo&Ebb7!y0(M{N4Piq1GXhmpEf)JN3gNLyAy9H3cvWv9DXOHjINq zGq04~3|C&7b9lor09Jyy5V+LH^0=NJxtJh!3SQNKGj4i0@tE-G6qZrKvbb27=#QEn zw6#J~Dw4U91s*yW65Xc0>SJ&onQv}ydR$Wy7uI#@g2wl`4o0Pk5L$p+?G4KUjl+u2 z5b1TTFF_x!_?1a7xh0lp(|6_S*Pb2Mo6l-)PIcjo-6*rvxQ|$H5yXa|YUZCjgEICF zjp=FI?QeIbI(fnaPS69(s71as{$?W& zy{*$>7yAtQg=E{j;Jgt!H~-6NUGknC8NbICK-7~}eEZ?WQPXS!1dy+})(^pW7boss zS%8bA=EN@eNkpc?&4RrcOm0X~D5UPl-%_Cva>+q)J-A{Mmx|dw<~HtC9cRJ#IqbwH zy%rcUZ|HaNFYwUoq~3H6h_D>(<#xxDLb&C~c?=7Oxj^uVS^XGyFyu^=l(ewbk=yGd zV?Yo$@EoR%b@oz#85|lL>`!J39(|;@Qn}vgwp0hTD3^HXCwYxO;c(2rg3r+Vm1X^q z1OEaQbJv53kuXTcAXcN3JoPRg4kWyRR ze8#|N{g@9xsm3cfbyKD?L6&LH8=w}!?oWd0?;Hjg7JT`=Ny;@`7`alyDjUG@z(Xq= zJGcO%kRnmS$Bj_-lDxL|Fm63S!;Y<*1nD~lypxZ<%0ytdOa64!jdr8uICj1jrLBdGxH~#tz*YK+TFOntF5xI;t!2Q5k&!*&W#?UI_rR z6`AUvhL5)RS!sG6IfyRO5@b0KW=FS$4J+ID0Kn=|nG*ZJil`C61aXH?Lk)(*M>a`< zN_20rqhTbgXQ%h^s*ZcfT}+z-+CXh@SHfU`D0A(hmI=(Y#lwsNa2nh)JyJUukPc$I z9g1TXBqnbxF42i&MNvKHk9u?s-1M;zn_EyCoFFIFb$$k%{Yg6VI1z*{*(lsc97|0O zaX4&~xd|g5if)EmpGR_#vVJu=#Q?O_Uw!S9L=Yz=F5^VHaJ+8$J0`3LdDrDM78v=j z_tD^Z8SO3vv-mUNug!`t-q!9>XB;~ZFv}27kfTNY8&+35xQz|H%_N<+B7i%Ih2Q%| zVlEg=^*-K0q7KSPg=LsHnols}*)y0oXmI(YJf;U&NoGYCZ(r^S6Is1K3=ER9S`7}e z=vZv<$yM!rUQduxy~)?+LANDIlSoy}@i9E$$gx5$KGK;zQfdN}*!1(ds2A*-tgBe5!7XiP0AdZ+U!34kzm-fS+(Qh{3 z`zr#8s;9BR+)ii5tpU^)kx|d@zfRdEamr{H+`xrBbTLXi3=+(E(1>#AWptaSbj*^t z%SkM*KS=qM;fgb=dLv^DPE>hS{*{gSV0e*k=73xqM059J2 zPV+P^z^*N5W^y0z{pX%nAYO6pz>>+G>S)N&5*uv)9=vA`;J!F3bAa2nq`jTLbq-4f zof!dk?m@*+8S#VUWQ5*!C9`E8y^Mx+nym{m89O4^4KBXBm^tM!_JzlVP&VN_Fnh!> zE1`p$$K1|>8Gma#5Anit3vi6@4b9q_Q^8~&V_d+VT4nO{eaXX2t&Jp-d4K`D+Z}-< zer7oxP+;cVxDSjc-5%rON`>}N!fjJv40RE!N4^mUl_K*!Q&S#Gw7s)HMk^OaaIjhv zmua1=f!veluA)!SLq@ZF*~AOn6GS-r<=nPDe(2Gsu&j~g7j8p#033VgNk*Rd-s5RRg2SU-C}EY%`Jn7B_`kGgqFmzNqY zY?ujelrx+$r@`8y2|bECTF4pDq}A2*{X*>chY-0Cf~1L)VKKmBf#Btfz^QgNT<*w( zRm!$ij41xYp)>LA57BIZLzAq~{BLSGNT^48B59m7!t$B6>OO}MM=fOL+q=&Nhz_VP zFOIGOAF$cj<-V*BBoK?IgC#w1VsXj^`D7uYmqYX;Mu8I&bawi1<<;TB3kY=}H>JQY#( z;8d^GELX8;?;IbUnv1oMTF>+#6Fyw7SfXc|W|0Xf*=uAlZ56<)aiy~)P+Q{IWK^!m zP^tb+A?fx9AMvCw)6OClM7!I*8ci>nq9oskU9EsdY&A2?>qL!2z1S4oxtV>6n}Z@5 zBNN^e=4EaFBe$!bk>rbceoP3)@HYqisF({DX+1mO;emz;&y;OJ3*-lSfns>iPVr7{ zF}$dymrZKsQ@T(u4C%A%>Yu(s(4hMML?uZmA}Lr_09_w!E);ApG163}kOM=0GA7`( zQid^e;ao~_M_m$-b|6u_Rf`6=Fe;_IZ`wJn&_%B|=H75QL^IVqc$6yvIz%=>YWnc5 zq!4i#ML~XaO=t;RopXuLYsBJ+UPWRb;^YDe;WSI4&vkO9K;G;3K8E z)WCm^IqrP19Zg5uIwmBPn>;Ru2Ulp(59pcXoE#!yMnM-~6R6bXwVpITUGZd3ZEI87$>%$~ zp%;*^NTh5=KcL$L&2(>_GPXx{qm@ryViqP|(sIT$y*z~_MuNbC!}kPkokakB7wb_g zCXQ}9y_yhcZ;XVIIkM#IS#Us1V{jyIgn~I1BfbI0sG|7Go8C0Mh_H-^@0q4 zps6yBSdbETv*|hxmrs{>4SZv6TFqJzo&V2BU^8y`ua@ZzM z#nu?P9yuLnQW^&jc67e|gATBKV}@{ff;Q5FEcHQ>PvkxFV%q&=&v!mT9BT$-vrh7$ z#^$GS!8+^;r&ZDcg_=CIzPc}=l#vsBUqVRp(mBEkihKWHyZS2V_rXHY)|l;kbnXrK zbL}T@pJCdnxbh8cOH5VafG21n`vQIl`W79(_t13Z^9OCs_lKs40`8{J zq%9k!O;tK+{&LQ9=o1pq0Y!L}KLYcT-=R@EadVSRI`ZT#4TL6WL+CfbWRwvM{s@}D z;Ql7h;2jv>gvxq5@-!7@P%q^7i3w7so%li+r9oc2-m{bPv!m=N-JL_)8}P}9#1pk= zt#d4{PvCfIrYtA80s|sI-l?|UJh*l_MIxFe=aItZT*u6U5199WPas!SL!uZiq&|WU zfmVu@Gs`5frwzhwva}1PxQm1oKe_`XXMRB^6U=qYekvDEeTuAq0W++Jb{8+eN1gek zbqEgjNH5NZz&W4=HMBi#x^kLECyF};Dk~UZ#6Y5Pj8CO-s@s6i$Mdio1xEYtO5Zh# z#SKaoI&-Kl@6$_qeX1aqU3naQ)DoOSn zHq17gbnLuc4$v8rwyDVJ7EC3P3A<-<-Gep)1SN$x-O^20cA}L3a7ny18(yq$j)btV zEBN4WfugnSApzWuB&r9897TSO^O2a)?{jI(UoQuRh=L(XK6K=FQ(g~!7Jg3tME@Lwrm!r#5n^c9$8zR>!T3Ny~hQ5DDf0s5RKyJC1(NQW>Y zSSL7uP`g{veEs$%p-_UuSG9W=zW0Rbh2PQv4qM+lD+||O6VIG7JSXRM7Ouz!Bv{M$ zE@Ab?=E!n|MAHO0B??accd0TT;mwTF1I5Z)a~dZ&3#~obaLZTo44XhUK#mcRyOvE}UW{iI$~JxPU~kC=0bI z?@@esEl89ra-8juIS2&9bC|`;=gwV0+Vi?gjJo&~Q4Fv$x^;0tsN`ycJre;x9Wbq( zwukCNCxS7R5GWYfEX!O#G(%hWn%{@UGeq4!!C+FUal7SzDosy6KWgunRrMyHi>_d{j}O2YrO00GLFB7UzO$Mo)M0EL;Xim3(@rB|$bz2$7t*or z3Rs0Zi%ss90%C@gfpNlu;Sg5>G_y9L;^vL03fXi%6M9NMvFn%F@t1OlSYeXPCyXas zp1$GtCU7~Lz?6JNbb(hNdD%DEaQRNKP(Rn6yJO$3rEcptTq@gFmmDyy3;hv167*6B zf3;SO=eg#pxqe9n)S|jR5yx!8IqGa$CPh{w@YOK84x`$n^y+awAS!H}h~@@D^fUWU zDs0P^Lb+3{QE$$}dig~Ljgb)=es8trza+N{SJPQGm;f6Lb2bRR-&Vcv;$_gl#n*dQ zc%W$%Oy~t#X?YV!_n81DX~msW(~xt5U0^)4*;1=FdFn@Xy}MQkQ*9{_u6gc=jyLv% zF=Gtf`-Hs{;Cof$zy|@}0y)iJOwQ3svVRQS@^xA#$hQL6MqZkz z5Xah+Boup}${$`zx>cb(!J=okF9=;rpTCxM3M_aw6)@RAykNkk>`S+~$?5ZrS6-mf ziqtsj}Na2J=!ei@=G) zOBQQR;s#EAx3<2h8`3uFo*%<4QzPeEip6`>1=eevKf_0DfXJLW%S!K&x~RLw~b}1faif$epSv`g=T%8;Ox)FKTiS3D{o;H0(~hia^b>qyeSm{LjaTQ734ne zv`TenWA|A{`!gkSjnA#b&cE=g@L=BOek04yE`)?T=82UDU<46hbKTWnZ!Od;|9-N& zQ*R{>m0DWeiQoZB!**bUd1yt;8lBBucPowq8qJkfr*5yjxF0g=FV5iP26?4ila4Wz zQF_9?8l~LlXBl(*`bX9V;HI{!LPSji@GcqWo`w=^4Ck_1(xDb7Q>Sj;{BTC(0QKN} zEkdoN-rVzkU=&6yAs+fgpsqujt?1*+50U6NIFfNG)+VOdqZbz@{%D7PsmC_denia>Oo+5*$Q9p3taq& zmKIzj2i%99kVrNtdHokuamF$>^RhE-jJq45!v$7vkyQF&Y|hdGY07k~%;Yt$eeB2N zW3`?zR_RB~v7=W{y>im;I_rGpwE(djb)9ru^rXn3HL~zZNuSp^COB9dKGgNW8+dYi z9T;?^f11tuocW&Yg9q$EXEw#Ho1Ry}c%D03pJk)EWpVbGqZ!VtS_og;e`XPYy;Lw4 z&Z|_lhVcTjQbWx;I*{gC$~NU}gVQuH75TD8hWYUF%CN$YuD!zRme^Oz#qg_l0cG8R zCPe5Yz6&YEPE7o)o%(G2%14Mus>Pd=j%gdyJA=_OXkq2dV6IhOyAd>uO{2C(Zj+rj zu*hh(JnRfGrA+(vb2GO|trnaO%$cT+SLL3%gPU?V-Vp(s^MqN9Zx+b@!dw#f^y zQmIpy8_9Ey#ov@jS)WXpR;YflwVkx<@j4~&4uBg8T^!Zwa`wKE!J)!EQ*Uob`|;XW zTD8UDs{O*4UWL3$b@j$oBqJz{EU3(+W&i2lpk!`u+SL8qe6>(Qf%PTIfXlN|pN#@e zkcV;}@UK>xy0hsO8}Q>0e_>FiQr5?9R{Hgt6}A46&oQ~Jz~&2F!FRe&nFZc}v$yhz zFqLEJV#mjiR*WAr9bVb1Ld9lMy5uo+HL{)V2d@ zyD#chlv_%h`pB^nIK^QuiGpT6KVMB$y|K=y*gx6vy%eiM{e^7)8%|wgl_wpN`}uYN zj+g8;5^rSC0=&$Wde!26#v(vUzT@i|d!$QT-evbZEtDv%f3C)`MJ-|Eyjh+Ic4fM4 zPi(zY;Sq~3AGlWTEw0`2(VgWvg?TYFPCE+Hf;1_W#1^BpDqf9c)8!>|;KRs&)Lfyq zM82H)qLFF**Fo-kTbMuoq)U4K%u z%YfWZpfh#=|2(P7(I#@> z#Y-;-zMw{`B>p|UtnfANCgkui`_JC%x`Bj_W8bf;zkIpYzw{-9fYnl@suK6bO;hKR zOI=bvF^2K6MWn#Y*%hk&2rKi_6NLF9R{GqYu;<$n!GYwMI2`ZrKvm+qYFq8YnE4p0 zS=rV4_NMLN*q8#pEv%SapD&OwILJ1_fTGHdstF;4f8JoY1qEiBA&o_vKF03Q_dBAt z`z>{+nC*c9Jfb?HE&wF#X3r~u_euDWHY%BXPkIOJdrFhp@PY=KYnj)CuC)oMLPwjF znp>d}B+o4Y5q7e>QbGu23g=zIi+0oenQI9NcW#1$!&Ut{CZ9J5220Hj#DgK%_kHwS zSHV7wcE;7~MJ83p;#uh@k5dh7ZF$Xlahp>sG6I2FpAbaqK%A+3otAjtV59HX9Tsn`QkfnkFbl<$* zoHg^5MJO_Ac(?x+w%dnd881!IR`x{%Aw}%)ck!Z#lhkt1ast6GT_eQsZTB zJ!&0Hz|KoQ6tS~I!xA=Y1y<>LU$v=WOp=-JCk2Nn!(-VBDei{XRg#A(k6T&IIxgV&}|efybt}_?b2QA zNAJpiHeBI*v71YA-eBJnMlZ=+4 z(!4$|JQq$~Vl41=32MgTD#66Bfcvys-a##XUkRyMdjAVs0)QG0+S4pccmU-!n9Bmz z4syItfekbF7RA1e2sklPN2>ZAN{@M=L$XS zz}E?|;C4DFuF}fI_EFFi29L>^+H`-jdiU#DERnL8>=KI-9Ej-->n2gI<1W`3Hn>Qy zyqsHMKwkPytwFbLbnw9(mi}a@)LUJoVRJe&UVR7nHiBeU{M=kZ_K$ey{!rK(J@)0`Hhlp2pTl zMi(ZWIB5X_u2mar4h6y;yvhvON*Y~3{ZC)o+<809!%hD69PlB6@vCt$ULgbqqwws_ylfr^;6+!eoipLaM=5M=#hY-% zkcN$CY;&=~>wc6aiDfn*SXqi>r<_)oIg(zYE|K7`Temr{`6G{_^+C^$&wDLh8ok(2 zAUF3+zwo_Ky@mN2GD^Z5s~1PCsGP%0sv<A|eW}hfXT{LaCG#&VBt}*cep;x@GpZ z_yN@C*VH=jj`+V{v>;$=$-Nl|g;mV1UO-Pi9sM5>YiGEYGD%p+& zFTI*U;KgTlWJZ!i<(9K#(5?_e+p6PFJ+u}+?W2c7EwS%iCwc5EhDWYvBB4Y2;pu?& z#KYIeCIC@(t#Ur^?Ur|&zLYZC|Kgp(@11>YA#N(m?cIK}U49p8x327DIlR;<_Eq~N zc5Sr3E8^XPBTcm~$-6+<(eKO3!hM5Y3YRYdG< z4s}Oa584KigTKW%{8$v34chr+2t34fjG4Tcnm;dyJ=-#sdBM1U9mRh68FS6V zc;zy&#Rp#e^wH*qUL*%!!Jz3Em#`Lh4S$OoXnE47?xq!#SN6S{^FkyOq84j!69R;Y zk78dfu|I^i%-fxMHTU#fcar6fjM?ps3!;zFUZI#kJ}B^MxpyX5=IX**ze*=+r4xz2 zA35sR)Ipn8S@93ffm+nwFxUDY2Vxr1ALW)!kqZp`H{LCq^Xd|OeN4iqtCWpO?SB_Y4?7K^%$;?&^zu_X0>dEv3mQ^h0+z(Ch8x1P>goPM2+Qu} z)a2G`f98___Wp;p#)gPvNnME=;@>6X%&rnv7?JjguXlklYO<@0#;|GemCmJO;=`I9 z~xUsY>n> z7hnvpUh(BVn~g4#Nb0fpa#Ge&XIjW%-PpDj;k4t&g15vt;_ScU7m+JFFa51Cz&j>e z6zq|LVz4)JMF+mF_tB0P$d5Hh4%Y5?MhwV%xGDNo!D9{e!S zxbjvA0emUb-V_UUQrk7>OZB+0_dD??rB!fY8mMQJ%Wq`1X`a|4GntH9PbZ{8pOC)# z0v?jB{QULoaiu=jn*e1gzZ(aXtF=we$V#QXq7@DQe|UQ9fGE4?ag-2HQo2D!P+Gc? z5KxfrT1uotY8Pn{kQSsHX({PiLSaD~l#T@#0i~9un|pXa-{1Xzcjla#Iny&w#aS6c z=HLI2PxpU-zVNxXz&JCb`~R=qnEjnDftj0oWr!0Ez3ad%M$Kga@4MApvJnvnTf!y% zMQrG=($9ya4G9%)(*upylu>oO9XlrQnN&46_XA+%SP4ARWC5wU6Ku4Wm^S|bL3Z(J zq!cXdY2$Z&a&=ry(-1_*nwuZCqH+H-C(`c$pT2&f4&vMfWRmC%?3pq6FtT6GU#0ol zUeTiWri=o@Ugr*gj`6gjjkWOS{>9V#Sj#Wshi$3RPv`Qet=j1vE)bg_P=B?5kCLSN z?JtL^6Hp-Xq(O7ee7`vC#4TpLKEEwWY+C;y1C>p*_2RTCu|x;qCp9KiKPHKCDV4Vy zcAv(jwN2eZsc+}94pU=mptiB$Sr)QN&_wpSr13tM%t5JFc5cg|g3pdr|K!{_75a;hy|&6}Ut%#pcW>9-KHs}1 z(}c0yDV$N~@fG_AD3$yFT}>+Q$t1>eE_7Zpzt_oK*%u)tJT}JT;*Z$8$z47F_{YLq z$i3)joD|&4*K_-pWvJI#xnuo8G2X7(-(u=9W(}WbEvll1rLfK_`T5mg9vV|< z=8f$h|36gZ=T8IGZzJdLKUBf0iN#CmM5(!uZ@Th!6`VjT-S}Axq}h91 z8p>^W*Ug-$K6Zn&Fch{v%Tjtc$>e*OFlv^*N{w#o>ahK=#f`)u)-#Hv8D4?sj~o1N zPDKhNRN9|w6vxdv;gZq`io8Tf7H}iQzQc?DDTPHrX_v!pupB>LCaJV13U={`25l{V z*lrGoWpSaf*zziyXeTmUl?^XxJi5OP?Ql>R3KKC$7llVu!$xm$w7B~7|8P&$C-7bJ zG*s5gdgfg#n8%H@aC{eY?~a^p6x0VNTj65;GduEI7geP_7$WchMXU(imHIQiK6yB0 z2suK;6X#wwr$7~6FU*C1|9rP?)dCVpWdW+uNUudB!!Y#*#p*eRF;>doplJ(?2rc=p z*WNzZi1Voo&kh}SFHr~c)9>6PrX3=u#Y?2>KQ9u;4Dm*x0`Q+Z{&$DbrX{oIIAr!- z(qM^>lV3VQs%QP+`!_@Q4sfTZR4R|eyY*eh4UUaefS^S|ZAo&X_xst?uxdjnsAP6InOS_$D}-tGr)m@5;l*g+;oB?CV-4@I zt*G{ZL@}gX*A^fsej<2^RrycMbe%h^Me8+&&n?7fT;+%o9g3Vbro|Tf7cSc2pfM&h z1)@GavS|(jR$(!(_SOQ6_$D?-nuM$NKc&wwRYnB*8Ej2|#wgJ9UF4GAXxOzL%NRaD zav})a?(1?P69q2B{>E5m5Nx4Z6kDRz(G@bpPp|?}hoC~?p&6_Li^pF7_aBMuFdYX! zi$wI#v%E0+65kCgnL)`7Pg?ElII(~N;WT59)=~u0>NGq{45^Wp<0eOcX7C#OrGh(cN-luq%fYhb2n-|9AmsSkB)hL24MP+z{&i-44g?ztP8Bmcsv* z)Z$dB(3q~18_>|O*A4BFUAq?^k+5M0PuZXU^wV`PNQj5Sg#OB9|4+!R0bXRLbLiTG z@0xJPO@2LpY5re03j`*geOnt87s|aS&}@BojIYWBf{L@G>9! z0?(P*6bx4pN``HVKV7;A#f<&3zUl8vEHA4U{5Y#LXs5G7=|c=~@rs3BOk1wb2xXQ%ZiYIbPH;3!0wf_829a=K0^D3D30E?Rp)IY=v038lc4ypKrqf zTPfKB8u#V?LjD5iLF4Uidm)QDY5cnO z(F36Z&jGLLEe^j!IFf0ye&3Jq#z354Qj%>~SV@P!^4+?NezN@f=hHN*=s45mAePsd%YPzGZT+{v*hW#UmM5I(-jH}Jt65wOHd*2cqR zKtjk!ZG!tJ;ielM0?9!e^lIzgyu~>nHH-k zVrA~}Q+@VJAmsxzq}!CMw|}Q_YCG}$(m{_cExN%L=Df`Y83n0H%Bbpe?%KOE+UVzE zw-7Hr96Jb;{qN*rcbt{aX+P!f^|bk&tZW?g_;pN~E<$nEsSKEU{GN_!t~=|2w#$`| zMHqbi;Mo2FjR?SMqcFE%#hI^-gJ7HT$XxP8rGAdL^|BWrX(2kReSuJ z4jJ!{mVKeblG!@{;x~(EE9|Y~dq@02*zmmM9~%TsA%UNZ+s2K@vn%YLh)i$=DGzcq z0g4V1TF$oT5^@i<&A8?)=Bk$k>i*6iZrMmhMdXPBQg4$&Q`rtb0*$lA|A& zggB3uO_6jCG`$O&ML1oAQJQ!_nf;* z6f;x_V@BRDbu-``^hl|#L#)h6M0u(tB9B>e>6tz}Ca>Nf)V&Ng)o+!VX@Z-a-i$8_ zKNtHn%sOhy&5ZgV^oR`_Ws#0Mxnq)J)beje!ezGWcUL!*?qWpimDIAy&q7LtF**6N zc`uk{ziROcjWd`88!e8xh)jKJ+h^dfW-iB@?YSSnQP} z`I59_0E?b30nTYzEB}?xqiY1{MC)&tOHgITfxkQ#+b{XvW4c5hxohV*PKn;TC2A;Z zpSYdU@Cl}y`9Q#8-GAaP;#`Jl(-sWE5QQx@gR$Yib!w-Gwo=vV0cFyacfOe`RNUMD zheLc(Vh%bPv_1?n;p$rOg3zIjiWgy^hbOyS)%E~5NV)~Jo41!!P#FcVa}_~}*vH6e zbJwf`t+#HwLY8E?<^%l5iPz70CU#!QOD*@`>7wT%@crNMZMrOzgYiV=JW&$rw-6%o z7=|f{s3W&E&9KNOR(Hjdd=a4bGPpWpe3P~pHB~T3mi|9%pl3x5Q>nX5Kkdf^3`YvZ5yRd9`E)vjS_^2*L`a5u2tD`tmgDZvT@$%Z+)5%E*HaXFSu^6frYKwUhm&k+)aB znG~&r{qQ)K(NX~!*k}4DOQN4)=dJ3S-gyI=AB7*13aLeY>(KLUK`|xol+cnJAR_}i<)i%LW6vZ_{5?Qr{@g;+WIlF&6}g0 zP+2JwYUNpf6quZdua3znziO~F`=0A)>`em}E@@R#>c~^M5ll#Srpr{DSmESlU*zT+ z2E%k2^G(p+?21{I_~iq4u`umem+?8bRMop~6lwXB-Q8U#>3(e_ zPWe-IUA5Gj7@tq{j(#)cUgWBVUNU)2tl zQnKRz4Ma4vJ+68Y)l@Q189!F~5EEz|+h8BP-j>ISd=%2j%~G3vS<)O0^Hb9LVtN-H zu+tk!Q@MRgD`zv)jaaU;f_=F(D4KSW4P z1$mJQBtJw795H_WozIC(mm_On+c33e-fWGAxg~Y>PAK0+vv+yBw)tQxJ3rdhKI3dr zy^9um%XUQLjm0v|%lKeH^XfT2rUPy9;1T<=&3EjTOo-i+_q0G53t<*D?X#?S0KQAG zA={lwP9%SD`$SwC$(D^d6tw-y8CDAE$lXO_#kWaz7j4>_J-~FRv45C`N0bO;Pn@P) zFLTf3*=8RkKv2oRulhN1ebj>MWJS{c$45oW>=PAw&%mB?Td$k?AriV8gu;KO3-`X` zT;$W!{rw3wEv8s9FMUlH>TnCQgV#LOlg257Jr+qJw#uylkJudYy;^mAPUXbO_!MQ4 zBs-x7rvT>O2frgFF4fMMy3rb=syj5?{yE37`CX4x4E%i^V+KmSGOl5QwE5YI*cu0t zMV`C&jO_z(8W)2SUElZE>16K^`ENC8Dt$Os$Tl25$8L{y>J1uHDN%?zeD0hI|tvkFcV*LFSHM+Od;9TY>L7JmEloBmo+0UEwH5&RN zdHPmRNk1vh-}ekl)6wAc@%B_TK~4C>yyz!GSfmNEQ~x{s2=30uxYTteORQ+a3~N_e zl!e#(lmT+|epeNF*c7#!;bfwp6!w0_rYkCY)#4BLV;{`OURJ@L@9(L4#=$Q&31|)K z`$+!e63r2~R6wJx_pGCl;#o^_DvTX?{x9_yloM8DSML3HdeER#7S62#f8+otB4-F+ zEMz^lbFk;7O7x<1QXv>x$S$by*OTIE- zKFRP4$Y*#abYwa=_$w5ST8os>gw+ zMMAc)=D@9uIHi;hb2Q;<)hrRc>489COgUMDSkNrh=mO5z*{mXYN z;i}|lGTyHyuWY%z5Pq2`Z-<~aY31cG!-{-CX$yij*kw2y6T7!dP~njI=)hex69THo zCwN55doFfblf#0NF*_<&5nJZ%cgJgdh61a9g;N%s?IURJUl2*(0n>P((jle2H$r=- z6&0XR<7{WR>}eWW4jcY`I)PB%n&~k$jE$8!?lAr0bt2k(n2gp)z7O%_3HjbuZ&4lh ztUoB;b2Vu9KjO#rJE+zz**b*!wDxaDkDxf-vGd<^3OC*P^83nP|$3af@$7E*rQHvH1XCJ@G)fT>q zy4WJ!K_!FqksxWanV?w?qDzzq;#<+;OCG?!GW7l)U-typGq`8@IOI*UCYG1yzHWn5 zjYY}@+?y7yX7$vxKGM)Xxg{y|A+jiwYzxKOtkB~p>YjNJ!YZs-_cPU(W->4I6~X^d z?1?{l4p5MVgc`&5j66NRc--N+qfC#g^r=_@r)uZ=*&^oU>3QdC!}lG{WGXhVo0OD2 zv*U}GnJ~4Svt;*A&+ZJ->oi4x6MYK)RY)d{BaX=TePr2ac7p+gGrJ-6pNZ)9{(@)F zmyxOVJ-|rWW z6`RMmuYH!Kue+!pAmf8&Y~wQ%=-@d^_G1WM?vdR{kwakh0KpbQf)ZDD_r#=4Mu_WAv)+ zRMW;cf5M3dpa~Z>GOry|Ry17JDIp+?SGh|D}jO_t%uc zmk)rr|JIq-cxAu7Hqr&%^Ftf&QE%J_`xmV;?AXK9!HDYi@!u^EzapGRXV2SR4ez5w zh^_&5o{cEy{0fNx9GUUhXE~eCmI)r`Ye?o& zgl9f8CDD}|5+>=aMq84k#H{Z zdh0FrR-yNtNq$TYdeK(D0%o(?`f%jn7Q_xSU^6((AG}?5_1ZY4K|YZ(JNEze0z{)7 zvs7yIK(!$T=3~3PAY6sXT2g$2%KX_MD%0ZxNjM#qDUS!q&L31wvvbFTUvV?k{Pp#s zVCaw8GJAxUrm5GR8u&X&8{PWwT40O#wEeXO_w~h75!~@IV$&)j+frtu8I*)BA@6@# z9!K3p_gfL?@5@PvjoxDUh&*lixu*j`G2f@L%|~z{`(C}?79O#yUnfX}TpuILVYVRlTp-H2-{zJQt5pa3U;vu_5(XAW+2`B8rCswVdfNP5 z^!k&+ITWSD`bsCtI;#${Z}S6RQLM6p#{dH%G5hV;m03i)<%2w`_-C4@1AKl$r-6$f ztQ(l?sfAmONl{x|kXhi5xnZdc>|_?xz|4T6{ELdx*rSHKT97i_$QyR7srS2rOzE`6jgJ} z!}|vGgNneVSoPC`1DAdhT0&4Fh`T6C<#HHVVw6{_rtMkzpPg8}7?@@X*M(>O`a^l# zheV;RQB9cx*%viBt zw%}$&+ZszFq+XsHM-dueT;Fl^P19{llWlD`EZ&`EqX^+vhWCypdj^pCN`x3#w77K) zpC&g_m?5~$K^~XZYVGmU;RbrrB+}P)WrGToA*n%v{R`~Em|Y**kA_O{;ahW>XPt(Q8KL~?D7fjE>xhthYT&+5!d;go%s}JeqiVP zogy!{CWgyC(GMlV?uE3e@x82dIrq{lVM{r={OC@$R&MZT^p7*<7#PDfB zF|uqY5|rQXL3V!Pn=kJC9{n>!rz?rlua;MCZnRjOYsa@&%{_q9-H?p?;{z4jGRyYQ ziVb=X9zp^uYG%cHAfrtl?7g(uDl=lV=J4DktCGi_R9|;lGaq5rd1voT`H%_Z$@)IsK_GC+7K3@y z&&?aOMjN(W)B7loN#kR7!UW?ezH^l?5@MP6r#Iz!^|W;mx-4b{&0?*(`7zgVt2mI_ zVF(LVlB`x~6P(amDEr zzdZ3n1dRU{$Elw=lB#FW&yc5xOxzdgU@C@w-!56i2HB3@=1yH}hq*e&YciJ|DM!f}Pg%zE&riAo-_!UAuRYHhfh@x0|xLZVMi1kskh z9}G8tMRTc}%EO^|^b((buhH~lN1G*5P@p$m?<~K@n#T;8p@)PBL473kPT`OK4vr4t zB*~S-4ebV9c&8gC^i0%6s4}e_l6WGSn0zgwbeUT>I*rXtSAt|1i0qk7(Qum;BoK#O zmHi4jS=`4xoPJ<2xTuARc3EY0I1Xw$I}iF&J-s^2dV0If~k_#DZ*X)Q3(%!+>5ZzhBMFYfA_v^2P?fP z;zSO2oakRlXBb>`a&0Z6wP+xCBR}}-pM_qVFkYlwi6l`*)~TPn9TKo41#KMAbovG2 zd7&InY$T3qtMx-qpiS))tP`{+Z_Sa;mu$x`FAw;a7u7ERpuZvah~25D?>m3vB{OwL z$JdgOx?GcP9kS+x29^$t)s2fb5*{g^#!IjN$Pd)r>Roz!Z`a`CvQO9N=ATq<&&^5Z zvZJ-Cy1>}MI&ECzIwy~ZVRtJ>>6yV**`-BnC90jb5>l7tYOy&vnfErkq%@S3(41sj zsrT_VI_axJy+G~4^xPaa6a|1w$}Nw+`d!eLG` z4jW9(Q~v@du#l=TMGukl%x1!7gw+yYN?-fdC`RD9EDMeU zm(rQ!K1$T+C@$f(ejYkeZ0mijOT#cRJ1oy_CmBTfl@<$X)7uwpiBZdvpsC#=^zSuU ziaUPLoYd1c$9Xw%FOM6oZGoq8=-5qDZ3Lc)Ko<}kiN0s41GRA}0S;YVOvn5BB-+w1Teq6_EJE4rY!jW7h@jC2**@ajt4%alM0{--fBTO1cG0!I2_ zG`$-_F4}#P_p3@#GJ;!g2eNK`81@vGJkgsn6m0*)iJTaDyplo2@e%@0t$XbwUI5`> z9yV(K*hZuBBJ$YTlBVFdLzmJ;giLRnD+6fq1o{kVgDkM!cYK{C3lxpAbDVAAIL&Lq zv0u&piI+6q0*G@(iN+=a_D>4IGfafigX7LDZOY9}Fh6X~Q(yBOuvdd)IsHy=umRSG zgn}fo^tX|bP-4&5KY8-Xx~3Oz$8+UzKEeU0Ed z3hWx%8qD`Z(Z4B2Za3z(BhJg>$sW;4V5Wq-d=#WK?2u}$@BO4zUqnLjxQ*ABLVO-b zlua2}Ns%!MBDgais1y|VDTuJ8zE*w!w7(T%P2k%v_K_N&(RN!_QPXFbK=MUrY%-jl zwNG6|Ov9~T>zI6jB`armQF)#POTBF%GDe7{Ka1Ya!G;eu1-*zAYarsP5R;ikXYj@$ zVja8V7fhf04-dgEm)$Q-!iY6NwrAvPt>RbRL%0aF!c-%g4ssNXi22yA@5dr#D2 zmHXLTPQY=NB7D8MnD0PS1762-d4=?{xolpHZ^PGdh%~G*eA!7au2->nNH{vmp$q>E zxL);JbKL(W$C4;ux`DF>5ybK2-aPHTYoojdf)b5x%Zrgv5Pl1;($@u+gNho|M4z~S zfGT{LREhc1!+llfU}J-otdrO@S11dMnxXGEbl(Z2JfW`>*~+q23tf+J`*Z? z)KFbJEeqz$eMDtsPODyFo;Mgwn$?z?0?Vx4p$^*Iu>6&m~FCd6i0=Qf>5x{IzOi`bF2Q^MbK4f1~)kjzDgG8gZ!T16U4D`}`| zX7-%QTm<;kas$e}c0MAK{JigVzP_rxOtGKwIr6w&RZmGszbo@z%`84iJL4kOLbu5% z8?p{oH~Ik}k`K0*ZT8##*UXAjwYJb!-;+5vE*M!_u2qHMq4g!eeL1Sd7!f5g?!@|G>8;o|Bo*j z+gj9x6T5epA@c(P*uRpZtRtZgx|SSuJjulGdR~jg(Kk&Vj)k{`sK8A`5Vv(2Z4un= zb;VsSjo$`UcI}uS3t(hjGBz*7zqaSHcprM!_qa%@!BIe2U@KlFU&bOMhIBm%#To1!+;sUz-^oPv5FmTs5Vn0LD)Qb z-MOi_w(x7S63;Y>4e20PfL`H5CUh;q=fscJ-b5bzuu^8h`=g-ZeS=M&!R&26=LD}_ zM6h!p^_=upDeuJN9qlI<|07@aZ`$U;MBPLJ3EQoQ&-&viH~`t=hK-Re;%0Q+OumkU-epE9ktqbU-bHq$jkY#Wbd)WaU#RTF2Tt_!^tL z==_H{6C~_ou>22Ithv^=eGxO=WNKmXG9za6g6L%b9Csd;D%w_tV*mPzc<=%G>)V<7 zURu<#;<9i&he%u`@kx&qN7R-)J?0FKoZP8gvNB@Ak?wADDvN|_%gUH))@*okaI{WW z{2vO+U_7Sbj{ZwyzXg{{9& zxV5CJ46l|-o;{Rn*SM;)!ti4q3(xCNx_!ah*c6*Ua;vl>0?97Z&&B8z;eo*L6QedG z0>z*zA3zAG=*(9$!o6P7%D(aBS8JTWwHHA1)a|x(c2p&-oV!x7-1#LmD{SBqGB$S1 zyP26QFkcQe?;fk2g*x&mX0peH+esRtpEM z%=v=hVz|NQ`$UuaGa-JXV2Wq8E0l9lZ~pYc%b|H)y)k;)5WJH|CsFc?L@`sjA7Q6& zqK4~2XfH17s$S6?>KZ$@=%nx=`$Brp3UiyInq-#W)D={(%=dC4wXH?EntyySoJ2TV zv^}-s!KycUW#HK#d92;;=ku$h>jbMWXIZip!3VLpabDKdOnqHkgKx}O$qdt`-{Z@x zuD&f^_3Fv`SG*53>%ZvNelbuy!)JH zoHy=<(#l4IOGue~ocS+8@2qp@ZPZ~Za4)D0^MC7luD%92264n%ak%}~CN3;>-!e61 zmUGegVf67Zq26oscCS8s-EVd9^5<#O-4a;Co^e*u!I%iaYUu{M|1cUkgif%Ewy%2<|H-N7vL@eqVb2uj?JI;+oY$mycDZoVl21K z(gRowF>$-KBl{z|JTQcmg5^7$N3Af>0(P>nWQ0}9*cL9B`I8cj=$cV}OeFrow!*aa zejAMJI2mYrv#P+;sg_%pH}At{-_c2fQFdxlg{_29PAJ5aB-#T}4sqK~VT_;xDC&rR z)L{(QO>N+)fIH&42j0GU(Z}R*rz09(TrrO>KmCBO05qX;0l6#bByhXz0Jk1K$aS{# z^j^%fS)+u(yD$H{LO=>b&e~p!xoeIOzdk&gfsXIj3Ky~;QY3^gK_-l%Mz^-w|K7K` znJ-W13J4@~x456+LL`h@sy^sB$JYBIdk40=u~xb+4o7f6I(6}N&yIWCN0lx9bmHHz zp|^Ncr+dB4mfj_-H9XL!47L4=Cz{z1)A1*{1pU}Dp_>DOag6MJde`5a9#y;)`r&73-H@qAheK`S#J&5Z!$n;*JqsL1$|nn4d?O~ ze8(o?9GGUj+KVJL`OOS$zz7@RIR{->p5IsNV6pG9#0s4HgVhX$I6%pC5|_KB%k#t_Rss*>U(Bl~0I{SZ~+Kd^4w zuO;g6RP6XOnFN~=c3dbo z9M^dZ{I`-WD>Ud0NmBiJ|AI(pvdWn&l;(bB5sG7(?`lz13!cm5>H4vS(pXgV8Cyvb zgDA#_^og8%P!~Jzv+(l0meCt7^sV&;s*6;-k9YbEb zf)PFS47)B~h)Wc`rl4FPXs00&H9~c5E%#zW*wWRL@?eUnXP!kcHc`x(dP2b)5VVLk z8+LT312yaEe8wqq;le)GY^D`x5gtIO_7fzT+HDtXoDprb0}FxtB>fL9Y`*g&)r>_x zhvr2>1>KE<6=QBGJI426=kB4C%`g!3f{hh*H5%yFR0a+b$u|nJx;G3?osm|DGkjYL z33Q#G&#ztfZ~&jR^osZHr3Rm`NZ2_gjl-h>1foUPt^J<*Hr^ven09yh?tU0+M~dALzPb6iMKQsz z92Nll4%oNEfn=q+3leeQu=CYOs5P6q>JllkaMGmGufqo@(3nO+Zg6rr!+=V6#y$!Wb3@jgJq9*v~5W!@BPL2iZj4IHKCJ9Cld(q;irE?&wj4cQhyqJi!%; zOsDcO)h)|vnEB*Ou0LuYIgp*$ygYR;!NGr5v4xtc3=n;QmM$f&lG>wOLb)O=?ET@z zb}8xFY2SMl-+^yfeiuKY`46=Atlla}&3%1R9}9R1GG%vpMf_U~-zB&7dc=D4oVyH~ zWvtO4%n^QEBWeAIN*L>#Y^k6G#bj+} zY)qi(PMXdv?HAb6O1bUwcRAkaZg$t8{OnuNP<3jPx+WvUJPrxYAEfwrO@%zE;!EIv z0pNYX`$}<#5?@nQKFMfxNFJL-fu&^mjvd~%;Hi@JnWQj0TBFdZyL-3#2ydeepAT0b z9*^7oj`JcQ&8Pp;vBaP1kr@x{ zj$q076b%OdIe0nIPU|VXUln9XfP_@l%#Jj~)yIAcNoP^75_rh}={}OYE9Xe|%S;rs z%oKxjOlbT7mCfTrHb|rozkL5XOW+@=bnhq0F1bX+dCac^_y3(1MnSiM{A_AP!3?B& zdS;97;Ek~@u;>tR@U z-{ww@*mS*-?yn_&Xbk7(X6j`$>S25c0=C>1l=j6zsX~DMe+T9?a6F-pL-DaP;AbiE zBQu`XQO@)lz{9_7_;9pRzbB`t78N;lN=RLe1K(89rmla#w$W-rfvHpSc~J{vRxvfb zff_f!F#7v(Tfu|lsT=Oa4!0=Okr3c~g3mcud?#&LAMaZWkmEMk`*jipg(gW6Zs|-f zi7KF&y9AVSbB9f*-WKYweE!6NELS>uUJv87 zIzH5KY-S#47b-y$_-6(%_&W2sVM~9Xy9=7jy*MR&qBi}l?_*?d5tF|)uX08TYBDC? zO*$9BNT!NeeYD5O?mWqy=0VB<%>fU`u72`r8N?GSESY_Gk{AL%5&LGd-}zi)^wNH-eN!K~sLPMAD$eY`4m9*THZ> zYVYqq%+u=f{!|w)V*%kx)aSV2blcL=k^6KOm?J2Qcx~^c2jn@t z%v`I{?2mU#t?%G)PG}c;8|I7!FLDvsgjlO&sMUn&@3CZ~Kn01oSOA!Ay_pN!Q zCgK}NdK{uO@$l_(m9x7XG?zJ!icg}BRhI=K)IAr8Y9oPe%Wc)v07SS8<2!k?6Koh% z5cUcTs7TQa{SW5-_<<=f@IUcCn9$YPL~bNcbr%@arhLj9^DI_eR9|I#U5kai1J%BG z>Ur={06T$M0P}^lB>EX7l{>SE2`!SE6|H1z&tI=ti#T`xEfz!mKSHG8dU?*v4rmR3 z1bkC*ZX^)zqn7!r|5jR2T~T;cHda)0T|eJHuDcN&`Tlx_&j#(VBA;JWO?>J1i^r0!7lo|6H zgRhoQFfM+r7THf9evSspLE8FL+r(~fajD7n;>*q>U)g=0pEGbG`xW~*a9HN`SqHyn zvKcBWv_zM1$Xb;%1kBh@eS7vCd@O*v_95MqNHI&`>*HcIRWFl^00dh+xREgE+y z$&CYp|MJE>Kbf}mG@Tf}F1!&~^2~*zaQ-(#AKc{Ijdn6`;N`5I$$&>t1!b~4@91N~ zlgE5nYL2)g47J@~>|(ZJe);}=^fBe@*i=Ta*5%Tr_tQpb2~;Zc$$~67+B; zp6v_S@fYuFPMNfpR#$rr;bpxVt7$BllSr<|$cdv;FW%foU2D<7c8ZcIckh5r0xDB} zuPEHQz&oW3X3R$E7l!@6UVx@RJf;MTd*H0pnFS%45~Ta|%_?WYD&0d3FT846UemS< ze`XV)L06SplG(QR7HDOZ!bS;mehBof>0+4*zNLR?4!6Sfx6eCL*wGy->Ut)xKbrwx9xG70|{wc7J%ME;=kkDbAn8b|=vbvq%iL2FG(^mV5=z@>9)B*NBpe~kvTeu;DoxjcMCj#&H2k#h$EE^QjzX1vKtz~{55 zZ3N#qo~Bli68{W|Lo$pc+gjN0&Esvu8EF;b3Vc_$*!Gefp$?1PvuS&)d<*E6bm9YKd(|z9!0{5a*=saPMqw zcnA>9g|(Dlo_FRPU?_!7H(ht7-JmZp<@$SaYf<702lXu$Yn_vP@dARBU+Q z^&sZ?PnOS#{XR<<&U?Lk2!WflJlZ_2)P{f4{Zn|rKpE%xU^;UE(kBP6_SS7BGf4V& z?O|eP_TO)fw&OBu^|QznBN2OI313rXD@S;7TSw6jOLzZ+4`j zqM^PLb5Yyh)+k4(X{h^Y(N0~QDf;-Ba8Mez@mv4STAi*skpwpCYUfO_1Ty|C%4m<9 zTt1HWyDpU_))5tor%#5ptC46@G4j>768kyCllQC@hqfd-B8=c=_(Qpk$d&LOM5g4! ztn?0{;E?-Fy#xSBIKI90sXIdtqXG~gwrszslCd`Y``DcE@jD4EALX#Aby|66Bw_vew>IM}&}8mSx9B5AU`GO zEN7tnZsq^cA1nrMD(V#bAod<;sP^DgX3@(@st4@+NDHb}!^{4*f!HDM3jFf6xN(-L z$7~Oyr-7h_bCf<3zJD?C(s*dsW`94tONeP3#e-B#_bv023=*w9xrha6wWloZZ-v?f1Gg8Z7_?@q;W`DHUqONhlQw>8t%W50p=KMjfZL55bKBCm4 zX4u8R!dXyf^6$Ruli#UcZ=+Q{(S|@==k3aJHS;~ca0KZEoLHRE<}bn}n8hPX7FoZ% zkLqc(z-7s!+-(V{{Ia6Ib6#fgClgQeuo~a~5C4~!rL5Pd-{MgOam#U0yP=uG<#M$9 z42tgPu)U4DBLaBMy;h&jY+$ZdobK+Xcg*2pk3Tg;46k!v&Tejz$Qt%;#@A6P{S(#F zZtcig{939Qo{Q7TMG(l>$KpC)jl)7Ax%{i^hg|iKkoAz_%>r?EPJz28V~rlBZ1pkA zX4xS@_)k^+k}gq;QM-t>xAs6B=h5C@)#%oZunxRtyeM`R=}MN_nqi$g9#a$Q*Ow?& zrGJAEJ2&@9W2eJDl_cbTQ(;hgMOMRuy89lOVlphzR%axm5w8~<(UtxU=+a#1Eta_D z<|2eh*UR|z>xlaj16K^hD#E z%Iy`HozE|2l#kyt`mL`cbCw-~eEY8^?b37N+mfUNxu>3f1Z+69@|0|!EFV7Y@>;J{ z3&HIfIYp~(eU`n*K=L%^642r>2mN*|gT#iteU1IIlR&y_yDPLYnID@Lwsq_$d71gQ zMHVma?qXlB;Gx?6UHOY|lndnKKJHQ;%!65y;S{QKZcPjWc~|gzqsfPnnxp6mhqM^^7?jP@HV#;lS~O|+VU)z5wQdF zA+Pc4fgvsd1C84Cnn_&HV`y9TAg>;jemA1UxZ&sULK9^+jJEVCdv+7csB!YJ9PRSq zR~ye2>cJ+xuDaIPJv_5s_Wq9VlH>9MLTvWS3Kn5 z`8Q8(!9jXgO)jY0`d>6OYVX6*R~`DV$?br}X|=+?98I6D>R$FgT$OhKY4W{-qc?dG ze_u=ngoiU_Ml;-|vWuyMJ+&ELc70b2IX|U9PutGu!yXZ3`>LirQ>?sc`N!>DeFsx~ z0emmAazC||eCN4jo+6Mru=CDNMIH@ft>U>j992+Hd9UIB3*t2Q6eBC)yre1lm6^Nq zbA9P&kKZS?vfs!qw$G2Ut4pSCi-<~LuX~8a)xmfd9VIPVkML}F*^v{0-zsNWKCa&5 zZcu>hhCq5(;jnIi6Z2p!qD7v%`_|3v#4h2V54H;)LpK-k7lq!6R0{DHu5)#J`nhI* zejI=g)jsoglz8uDcF-z2 z|1Fcc+9BKbca9ltb?^7gvje)TuP!sL?@{I!VJW1UNUyh=W)fH@978i^E$yps2eXZ$ zp(=XDhKt{{P5W|Tb|7iHYboF^94V$cQJ#nhN5ElbU5dau@ zvdAdw!|hJyE(GAQ2$d`jMT->ztMLeTXmom{)MjWx4OE`_MOg{( z1;luG6{T410+gj7_BAbmtmp^y9M-&$Lr1GPTYVzogNt^wF1&y_%E_bPY9~V#6`N?g zMo8|9*@^VXFAU)$wz9h{FLSEm1?fltF|~G+1(`d^m}~($dHt zM$Sw17jHaK*=Xb1=v=!QJdHJDWhs!*{2epw8B8BDxyhIxvXUh#MvB`(%q=>ZJ9_?M zo7@S5v@3TLAAw-T;xsYEt(esm=;vbW#`%}1*dzk=!)Z@c0AcgJ3L$^2i?EtAiRgF` zX}b5WWv_8^Nxa6&4#;lI<=Xpd?aAX_Hp2o~qGy@rJ8WsXj*HugYJWPj4!tv$(8I`U zfki--;(;RJ1^!Q~$5y{lK(4JaBM7laX8dWzLu$@&mRT%H+L@c#D`uqo>$YN(jiRT` zX7pF+`o0C?Uql_NiPIjhS*DyhzJQbeB3%vh(2~G}-}K24=m{uO$KB$fPyOG?ihJ#Q zPDat;fQkFq?hYR9;s+oiFam38A=f;fz1wUyf$A3Pc-)cu&1G-gMit zDO~YA2cAg_#fem;nDq`G-yr{=9!3)&$jG7d=@Mgn3`PnzJZnbrIwg7V_22Sp}Pr|+xU8p<}=YQJ^)686|qWNiz49%CV-?X;HV)2 zi#vAkzjJxwbDysW9MxRFnJOV&;S`x7QhC-b%d!|6^iipsNeIDL#~4X&=;K?K32#oHS#}&lu0Xp|gxg+| z9oJ!lXcLfNkrm>AKx0gJ+5?qUQ-eN4>eSGCaNA}Z&pd~>F&di70v3V3#_^(mf1tpcoedQ+CKm$0g(Nm>SyL|v@q6`7YEV#q=FbHM4 znKM5*|JOn@0v&2(s^ICqvg%nA13vc2nhPA^cmK)o*XA$8=N?#X^sI{f%(*FH3`Zy|vT4BNx0}yC+(@(a zTZ(8`WB-F&dW>$+bWV|uA5Sj>xyz%p*%1SXQteD4d(AX6mPL0MAuLZj?EQD zIZCFhA>-B!zm>9KBM~5Fb*nkK34;>KJ`09n$7Y>hGcJSAZi~>K2;87X9@7~@kcQrl zu7o-e*V4dq2-a_GQC`IKi3paya-8_cmhw>z`J*)V47>eYrvsY99+(7T_FZpDztW{+ zIg1{=cGDK)`@l4-_0Dv45J^#`8CV2``_}EY+dCMn*@n?^gERb<>wL@#bwCp3PWSg+ zMlHZt3b#Pkz}0d-^cbs{ku}dTtzY*VbJ)mSa1XVlwk9HpnJZ{g%O&btwnJt&5Wfg+v8Gd}e<1RVip8;!XdJzK+rpdL>B( zJ*zS!H|`u$lkP|eT9@vkL-M3Wbf|QCaClNy3t(B?@+8^MvK(gDbf#XM?5B*}@9hre z*@$!F#r!d`yr3mst>}#vcSs?fWHyz?>bMXKfbT^V=`KA#9OwuG5i`%v;?`f@ucNh|`Ba$hP=CZdL~IOmLM z_cn2OM88e2aB05xWS((c{gk&yS0w|PSKkydu?(`>)p;)dF{o6^D&j$#AqUtVyCO5{ zQQ?lIwL_zWG18V zK@wl9dqush4e2a_DsK4N>?Eg~n)VunyYzteH#9D;C_O7m;wwM4ZJhF9_|_*FWDyL4 z>;o#A3p9a`TtUd7$}5$hI;}~Qe_}n{mQ;{TzIo*OoJDb~zGZvBzoV%J85d#Jz*c(x2p`-u#)Qk-z=wj>L5- z5lk}M7i+wv#?EVSm~#l!P@pMnq5OUuAq!o!j}1pFe&JWnfjo!xZ8nt{mn zFRTWdxc{{0AoOe?j^u2S;h&lND~5Oc9U7kkN~&S&-q=X64dsK7SW7XKf3+@)6zJ^R zp!3VT^4#*xA2-}-J%y!GGfP0)_o9jaqzGm`lyyTOb>1qVD~Jfb%`&lgUX>`r3Dl8E z2a=WzG;st2jA;`6Z0wK^mBhQT=2^A};r$L0`l}IZo_ni{0=;yKUpCO@$N>Vn1s#@E zx&^AMnC)jpI>YZYG7PmR6Vc0prr9vaJ}{!~)RpX|r&kt=@R`r>5^1t3b=X^0aI*|uRhdhskjEr81u=HELvN^MQo1)%;C?Q z?N#qXx8i#1cBE^GZnVyIg&iwv-9tH|CKFCokC>ZjXmUeVfI`eF(}2i6dbx zl2QnX^Uc3`5H@#AZG#}&MJt9i!?v|47lqt!s6{!R63exaCvs6j#C&R=EkU)^ZKavF zeqY9`Uf<7tcH9A#;kSJTTt{cJrtjzO#c#?2GvZ+rw@-gFa%qH432Z;dp|CNxUjt+2oS$wpbrp25jRb`XJY1>p**%#! zPGPAdYn>Urf?(mca;DXs(^4mF@2Z_mDZZXgwV z%WQM*$9wQF8|M)KPiAQ;(e|tWhDpQ;EA{jB{234fjxAnl>|+FB#*9lq;NhVF82cQ; zkvXTZD6JziL!`lD?TTdN8Gy;#uR7IH_a_7LjE3XG-%5j<^v+fBCw~2X1K9%CMF(6E zOQ>{_HLx$zP(!X&nQ$z#-3CD;vj z^toGX(a?GYsflDrr0g|b3qRz07$h1<5M$>gowZQ|-3r?P*o!`&x^Sg9fA!T0S)N&( zMksWwSE!DQ@aimvj~Sc2HO`fKWcB{=8jyg4<5CKEy?Q?DvYgN!^N0`Nzv)${obF-7 zpH~n92#Jj6VpEOE1&bacnqBg?C?3qE(cI(=vPfG{j>_l3%?*+zUl?y(#FYu;4_<&J zWmvb&B5tiAe5w7nFK$i#e)lrukaCCVNMz!<@0Epg%J>n=flOWt*r$38cLxJAj3;kOqKLzB!bPa9Z`mr%7RX%wLGAXok@gz9SMF$B5NFvmZY;y{90BlBtwPTQ zfyHHnx`}shDI$Uhz@`X%-?mt3#}F!mvlcvulfOC7rZ%7HU!eds%Jt%7{mrmv)%&3D z&qWvXfW}MLIjOaNG}M90BApVObz-b3q4~?9zkv)PSRaEBe`>Pyi7_5ttOfatiN{q! zS3KllAXd2xe{7M*IlTXh8SXYDxC_#t~DZm|#?U zfv)AdQ3tij-+k2H10H3#L3cjo$;9u!C?ar)W^w2wL_9wpsB%)>WEKp=F2<`h6&kX_8H?^_f>Y$o9!=CQ=nE78v%T!^jENP3wYFPWC)OLI zEs>Rk^AJP2FgdWXXs2P34{}I3ni2r!DD{NNg4~#2d-19LqQN+OJhEdtbHi^p$`fwU z_|NXZw-q0fmptON0_Ve6(bsaYo?8xm4Ygy;g6c2nW#{D7B>P3A0_Fa&S!aqnUv$Nn zz=%Z7bH7PeIrVjn0O=M5*rQ~wyOrphA0I~N(XEaYhZ!Jq?5Jpb?F`vL!K?np;Ahv^ z%cHIBXHbjp9A4E!=jJEN&(?Zex{jqCZ=0@`ZCl?S2ZI7$Q!X9bQYCufW{JmdOs6tp zBUkTqyQA|^cZ@$VQ!+V%7WzR_IkL)YT(N}?HxIwYeILp!#Rs-?2^k3T8 z!%6s2R+sEnD7QYL>JF0zit*MtS^ znmS!3$P5t1zAw3gNpF(goInj&xXcnL+aXz$MB2l&=Nn^C6Sr>!Jc@=Cn$t+AP!9Gv z$3)MBb)P>fB-?x-3V}V3@A=Ap)Xq3Jn?w=GyL5l-{@Qw**)p-6mXeEA0eq+isk>NJ=?OV2z5`0-*ajOT#g#p@m!h|6yMOld-*+@M=Ek=1J^&ZHFaInZEp7V@%6Kk^ z4W1_-ZLMw(dZuKds1^!!6Y1le<^kJ!#!WmO8Qi_BU}&LuM{rMg6>p+U+VAe$lQTIa z)}AcBoT8bSyd(mGbK~kNiUtKrBOCNxKry!{s9A?Eseqe4GaKX*=cp9M8W>?l{6C_% z&4X?>W(-!FoyaFbzBM;u6U1}fn6&}HbP;2RD?3ngj1p@aNxeTZ(rTU!KX)wP%9Yv; z71KT&7hV8j%95c--?atmcb?}Qv_qlK&gdgUw)6ZU9k%u-+Q=hi|7Bn_|H01%Z=BBt zZxW8K3`KuI$&zc$Htp(4q!3Iq&p>^c!f3Y+Y!RY;hIDiNBDD zhZ1`b6!*9U1fXmd)$p{EH5|o^~2$|D4U0G`5S4d!xi=xGI^K-`3=N}pKg3++XK7JOt z(#9WE29|v}%+{XXY+I8<6OIqH1@Ro)n#*1HuD-DMTG~z&XpsT#E9JiI9%Z%zT%`s# z_-_8%CSkBm#__Ul_b4f&o31v2g(t>8ruzK(lh&7eN<_ur~+%qvn)2U|J8pZLNh|LZsq#r{Y{# zgzif3EFy8G`rE;aLEZKG&QwYA#}VYf+jt*iF}bj9l39GLpT&?G@P09%GMgPoOr<0P z@_S;MZN)jg6($Ngr*wTI`7O50T~8WEZ&UnkvRg!-559;c%c=GJ9g7oI<~m`PN)l`F zeH4_Sk*vtbZrVL?23x-Vb`d4#)Mb=zho;GKqXGQ`@8dNHr^=v-m z9cS;Q#Jhafl>k)OqA(teyiys2WYy)hKO{Nc2=ZdY{t(@DD5z)ONqt0mERwG|lYWIA z@kvwGYWo_EtXJ;H_$hKmw{xRYVr0dsl16xl$H5_zE80gFkEmRFi9oo5&Y1!E|9^UOwZ zQ4r@JdkYXRoPimMgWUPL``7z~(NLLA6Ai%>^Sh=updd(n!G z{EGz0%gD>NZ%X8_>jYoIMmFZ7U=@j+p+y}|0H2qz8vG!iw0P6q>Z-fRCp;I8&HSG# ze|`Nz%Kktm7>wX)6S@~3j!FjllHx+W z33L{Fj@-=EWRt(A=?h46;UxiVoJ9pM`sffjLqn7LUc$knf*Rtj0a@J3Ga789<8H;ycJ5IJK3Kf9U_>vBQ3)lxvtziwQ^PIbFm4_aA+3!UX^@UC0ET!B zfmL1OXR{lk#v*pgVQ3DnO5#QuI7o~%VLzOb8U|4r&YT?CZ=kb#(f9pycmu%7L~+RXjnsM=af3Wy zM8%&lW{wp@EHm=pw4eQ^0G8F1tj+?|{RzA{+;oHyYgC}T+FAG%W`~otUALJ38rQ&; zL&5KsNmg_F4UP|y1$c|b^I?gc@6Mv?a5B7aRikxGgdazoF`K?koL(t;@nm#CWNR~S zyq?k$n$GYRbixogZu7K~@Ru;YOm+spts3EPy8)MVo3+F8w37!fQ zg3YESs=Fp)1ah<9Z$Wtiv=Kiqb`JZvfTIW?ryY?zuM}8){bbjBJXsJwuOv=|Nh2J< zqI+xUgibs-NXGX2HK?S!CNth_qW3CZcH9hLJok7E1nBs&IYYm4{o%VOy9y73k6X0K zqT&z^5YswoiBqK!p>fjgRaQ^b*?eHrcu$l22-bFguQUwh`ET8TtxinJ-wMy5p2gus z7I7f%{-g7Xm}M9OCIh@XB0}dUelj;RmU$`3E>Eq7oLEzEoz;{za4iO(F^;_i?{i-Q zF}eEUx=ZYZG5DU`cNr0SwhKbVvNjSY>gQENhLAQ-vu4XCaMIGkAhugwX1ReBZ#xDx zPQ+2CUx6zW?KeCeKXk-v1VJV4*58YwZ#F!(n!?ZNVxMu(^n;&RIG80D+M47Dy99f= z$Hetk^6Men!y?wHmUJt4Q}FI%mhD~Yo;!y-xsA|q=Mam9Y_AKS1tX4T%DT$jGr%3E z?Ps$xGR=-MNTMPAjGG>w2Xll`cf5e#Xx-O+#?qhLw~H!$QE)sI<~wyx14AJnL(YE~ zoh|MfefV*0$v(|xzJaE#)xiHiYzD&{y>0wZaqF++`0#T)>!}|?t8@Eci)Tbn2vptn zyBDzIqL%b{OU5%ov28Z6)K0@~sd72H(EKr@AciVb;EPTS2`2gvP+f5~*SR!}rEtn$ zV$8>qi)^%S{L0S37oj;k*eTFFYAB4k%(T(6kZ5v-dFAPT+0ofVM}3HzwV7`Kqo9v3lKvMsGxrBcIb)5t&1UR~&bya`d=ssl` z2vo{i3P#?y$+$)cn)gv9Ol%V~MIXpKCt)%}TKY;m&1WA4Kgr76uq%=fzL~j^Ue9;X zZaee&>|ZYor>s7aEvHL6yIeQ^h>y=$*VA%;dn)$I*B;_x z>{_Ynu~k+eA@X_e>Ut_pWagFE*N{W7d`A4Pn}0oVP#NXG_ z{!Koi=Jx=CB`?u+ z*OXfR$tCT{1Sn~8>t(IGSJ=~xz4cD?g`S00CUn5?q0y$*d3SX$yc6m6P3&o2`*Q4q z78;mm7?!NE#2*R;q&>01S0~jr@y>kn@`s5la7^OXhkkdm`7m;0`j!QcE+xvaCA0ko zQxSvvxvOW_*N#1mx7Cb^`CL|Ikc5JtqG^hp(=%@{)+s;Tp2*bh{uK#2ED$mO@M0|G zaMOP#xcwRvH%6ii(crZ3{>+C2MdMf~&p7+J_{$uZj)iGnkN#O1lQ~+jeaWkPXP~UB zs@OX^bAxU4_TLXjtG|16{z_-oh+mHz`hG8W0)_7D+b5||yNJDma=xMEcS54g0kZMe zJE$T8B4p7kv)*u073A*oaXE&G+?!*6Fr+~B?sKRBabwxz@_6o>V5T9Gx=uEGt@6}i zDuL~W?$%nS27ycyKvumT8m%F|wbKa(oNlQ5j1xmDbH@+(3Fbh^n}diXw9r`)d@yob zxXhz(qdp0OIWUp()Z^U-_2Mr>eLsMHjINw|b!IH)omSZJwY>9xz)CvzwBLJZTmrb@ zJuV%D$$%a{j!=(=%Kt#)?tTR0rt$1#PJhjfnI}`ImHaR5^rMJ!R6xvAWN^yqwaF!# zQMM%@!M$U}2qDnVeec*U*!}qT4qia@+dnK#@L@GhgTdE4m{t&topz>%9F2u$oyGyY z7OralA_lfNK>lH!8kWTIPsfqyb`V;eimE(01L&Sga|!DKqS8~v#6qk8rB&4wIcHRH7RS2BY4O4M>N`vGyO7(^nC#g2qPD)jA z7AM(ie-KXk%PJ10O0(<+KVbhDKR&Mg8hR%DqBS8b=^}-aIIl(cMT+mS_(#0TlYA86 zv3JAKHM>8)$=%V`nO|k%?@heA5PhIwd#$pid9ieO-DeJzimv;Fgskj3Sh|l4AfDOQ z{rJw{Ht%u!Z;s%=QO=;K3io#Z8y)NPI1NK^H~Lc7QD^zg(xHRVZMISKziTflVtXJm z(v!7{YzU2_3)!Qli>%ynpf)|#`?bvQkA{#7`W}pVl5Uj~ZiReq+d97!vGUoKb$waw ztbfsUKVS?i;#rkjX;rySNh#L#%zmKMoE68XHeJ9lCn$ZU|4rq{4rJg>CC+c=L9NZi zwV7Ab$1mBmksM(C?F{2AVK;*pe%23)D)Pr{Esa!a0w!mcqz>^+a^)kl<{{RWz?4kA^R$9hSNseF(%QO zUL2nU%`HW?gyQaKE0zCU>N@BwUtF>XtXQ)>q!zAoRJx?jBR?qCriD;NYVH{WHquDJb5+}x9B4~N+# z*L!&8eP4*{gaqm#3;^>PkF!j_MD?+@s(+HI{cVWlKU^y0`e^p$D(+^ko0l~jm%J8w zc;k*=d25jh`%#*t>^kATMs;SZ=xz3(^(m-R_ek17s#E94!5BON7t$@vyZKW41vE*J zIQagB;9E5~(Wc>7lKtNRt>-veg?WLL`KAOk6tI6IpnrDL8TK`+IFo%RM6 z5^?YYrRi&0e=BdKVfMX}ZXJniX~x|?{8GbG`@6cnx&rw-NzigXjxTKxkHUYZGb@u9 zqk}TH_4cTjGdFh21_8T%*k75IvfGe>*OdVaCe^&oZO`xs1YqB5fkk|!30|yk3TC@! z0@cspYP@imJ1DBm^^8NSd~Qi(zq5RD3G*o#oeHq7h_|cf99Bo1uTwIU{`J>QPmi~O1k&fTFPWE54L)@uq# z3V_@3T5yx#TScKYTf_eSwbKW@Pw!O8tzNr3X~z|d)_e+lgc=2S=Tw zJ~%|zln+;_O!7^GHjLr3-v?wX3oFOo-5-*45_K6X*28HgEl{O~vWn+B5astrX>_R9 zySvYfy=*Cl4FsaV5hN7kjG}S$>=PAn2wo}gxdkEniq@;Ys&!1kkvFfu_G=;E5I+Vy zh+V`oo_Wu(g+8Pch874FCspi=>v~U2>6jUlA`|SReed2LsqY$mcr)@ga+Y}hf4|{A zdGtu9i|iNpurTsrMs;|ST)245FdHhQbNJnZ8V=PW?*ObfgrYTp1_UkhF|3jkHa_`b*A_`&EaFG;@wvlWdRAf9get+{F&hsTK?9f)0u=0d0Jn{Lb{mz_s1#!Dd@HGzUDk25y`&yeXdb-Oy~u z+EL0lkvX#4;Y|?_maz#yg_i^_&_7llFW$aQ81Ie63TmEXbL9RDwte#ehdkJMN-28ndenCv{+`9>3#t#b%RYcg{%it42r*MOq| zI}I>tu>fTkL0o%A8vNz%zJ;(DKZd&xBOvt-{|tPxJ83j}!`R_wz=A2FAOg}Bq^Cjz yR6?SthPMckOCUT_qlk!R#sL~QBhS@RZ~+_S6A22(9qP>)Y8(@*4Eb1(b3h_)zj0{ z*Vi{NFfcSUJaFK^!Gi~ljEoK)I&}E(;UhTU<;oRTS64STH+Oe;4-XGdPfsr| zFK=(}t5>i3`1ttx`d+(s&Ck!z-`^jD!2kdd5D*X;7#I{36dW8J5)u*`8X6WBhQ(rW zI9zym`1R}8Z``;M5fKp?85tE7b@S%UTeoiAzJ2@7ojZ5$-o1D4UUYPHOiaxE`}ZF_ zc<}Jy!`Rr^xVX6Z`1pi`gv7+eq@<+elw+7Zel}78Vv26%`j3 zmz0#ee*L<%w6v_O43EdZdGn^cyu6~KqO!7*Kp<3ARaIA4zkU0bNF>(O)YR72*45R$ zd-v}B`}g(r^$iUTA3l6&Y;0_5YHDt7ZfR+0ZEbC9YinI)T`TF(i=;-L! z*x2~^__uH0zJLEdF)=YYIXN{oH9b8&Gc!Y>P#_4Jot>SVo134X|MBC;!otGh;v$tw zU0PaNUS3{VSy^3O{rU6f+S=Os`ufJk#+O375cmu*c^|d%MIc0@Hved1MrWN6h@FUI zhYp+t(x!$mSl+|c3=oArLFOpuDOy%R#@k{S5An7%?F^UU=B4A~$qMIY736$(BbWvkG9~^d4eRc1`mmbTLv8z!;-WL zW)jR^!lWnv^Td&q{pX2WDm9RD(qPr2{}CwZLQ(3nZXUGZA*9{fLvVUeT(b2u-9&Or zeNd#D-QRKkRoH&@3H!*VSIRxzvWj}G z_n#j7m_iygQ6;aPjiRRg0ZWa~mXyDH?$k=i)Wdg`J$8B(i7peZPUt))^voe15bp;J zjJ@>T)H?9h$;qAqd#Y--%0&)oapU)6+X<7k34VX4_E^c@D=KP}5uE1sCh)%9ST{Va zsVX_-Xq14k@8{p_$r4bGlMiE>9qUy5`kbQk!q(*DH&&twz9H8N-l|+5?*Z}y*BipV z%!ZA=qztdOoNLERlk75{v|%WX<_#N54Vkkd>nB#t+A6xqtyaT9{&zwTlcB|E4^#d8 z+jglhn&o}ntDYI{+ZYMj8Tb5aJuSi4SC5%l3J9+okhDk$wiOqS`$c2|oj%{GK|^_G z8xwwzDT4&De;`DOCj1&(oA-F}lS-*BmKNKH+2kr_lPkLos9eV~gt9Dash636rM?vL z%cvY)q=dcqT~e5CPxBLv8HZwmW4>APvQzFAdBwu3#JEfpHxF7%8`NOmr)TAC=bzS-Kydn_cLQJ89>iY~vQ5sPpj#e#ddm_KOR}4F2k?iXh-s1vOx{{{WiCKd`egm>oqSuS=82`9!mu~Cz z%F-RZMW|!Ap@Yrw`2(p#n0;#|2Gl&-@wT1~N@+@il~$kU7+{a|4CEJ#PX(Da?UK_C z(&(|>Tr*@nO$E>0c(3 zD?Cy9!3{hIbc`T%8#DG4^UE0S*aZY|9|PJEp*J&GUo{@1{IZG42cfy$521CoB?=Hm zx|jBQNq>O7Sa>)1#8J8lvHx(EckkKkQYTSP>wEeyBYcDropFc@oHnckf|WXSq=&XR zmZ`1e|Hd5?#vqa!JF~SqUUG<8SV8WF&Wl^mw7zF-N6{jd&Mpme9H?2ey=L~GLC9jH z#1hlB2{|;Gqgg>)>p2WiP+~pgDr8dZoqzB}=?PhNK?0D2e8rYf%x_>2h47)aB1QfW zcsbEp6m&AA{?FqgqQ598j(y_uQSX;d+~p+b-jX0NJTcrDSg*7YVEdnepeHq9+)x=^ zXyXCumUzRVnf=6Fu;^(lzCH@uV*UW|78Pw)8>9vuWMA3hlIsSB&Ku1QuHvq0eaqaE z4JW99JrN64Gup;qU*D1?EjgWiFz$wB*kq9D|G*#><(Vk_k4*mOF)ehB8=bdn;(wSa zK#V;j=?V49y#0sAN>uY1D1&2v{IJ2640aOIu?1%!b~@(|lz&+4CNA<4IA}0U|2_^m zWqhJWhvAKF=*E^@0-*$fCr(0OJ1&2Y!EkG@87LfvQL2ROh|5x8i0$N|^l8bFmIDG^ z%}+V7TY}*L>4;K%kQl?OSbfBnc=dqH6H`}{BdHP&kAKkoy5oPHqHi^;ir$uVggTsb z_P;Pn#IMYNIKz=+;)t!KiV-YP3YNsxJsp-Sh+mGwuLJsnRKK z)9J_Q&~9ms8ZeHyt}00|!j6x!KYiZg77uwIYgLF9+&*tR%Hr}7pfvKiB!+QoS6pGe4$es? ztqB*JPjGID?K88OXw$&OnK=ekbC{dlN(1c+hiZWQ?k3y(CD61xYX;|3u+^wtXBkwj@*j_C@K zMcH-t`m%0`ycs)-%=hHFv2i%bHEXMjGN)WmZ_to>?f^k4xGWI{?8l6viy1) zHI;&IPW?N%C`vaY_+mIlufzO*29Sg}cmPk>lX6sqc5Acv2~{}EL$i~RYgCp)F5$q| zZe6Y!pgW%)d@+)GjdUj9-<2FCC4S{mAza7y&C&m1cw_2|7i^ow5Y&o!}ozC#A4)C?3j(iY6EZW1!J#(?N&}xOc=2xO%W0^MKL4a%2{DKk zihXVVoXzX)p7uV=Z2^esGsKhA?fan&hTxqZyvOS*=`|axBe%jsA7y?(bD;%EQ6tWO zI`UYRP=ZBGxowL*r8N-W+iUoN1{C#}aKtAFq(7^G&)XJ$rv0Gff0|)M3fb#BYk4p( zQiI;%i3e2$hL>-%-LkU^HEfz0ikWdZ=+H&#*rVu^FAtt*T70C zlMn?h-E+4y!SLw$ewfRGZpPB5_YOJ%iQi_va1HF+4uZZM7wQ~=zup<&$eE=~h}lCD zy(x-0hblc-?;s3)`-0UW&n>Oedjp$0Ix1~e2o#=LE zogJ)KUhttk4C3OB2}RaIXvP)_1L2CL@wPRWvjTc+sx06L&TBWD(FMQ;m3jnW*4M?g zl}$KaK_mOgtb|mhSrTgc&0GNd#64A@ha9|Od2Acd$KkGgGlSM}%dpJF8&5AhXQ4z9 zcl67$%T{fNVn0w5{iAa~AdSMqELA}IOspqb5@wwLfx3dNlFe|gS>^Y>^$UoNc-BL* zqb7fw9F>c6pZheO=O@@}&G7Bfov0n)TRPh5>R?cLeA||Ppnv4}ettiIiGNi7^y+gK zuQPE|N9C)_o1blmnp5&N-K65Nohr=WGL4JCNP6E`_eK`BJxkcyIpw*83pKUwfEkTN z^Ny%usG9x9NAW=933peftvrlm`<`lFGihOvhUn%~|9C%vN`sl?=y6%}QIFULrOfpP z|0O_u(h{35!xdrKvU)MaywrFh~`bI)$|L+R&UJtz;^5z?ie?mse0Eo zt$NT#wB&0qA$PexE=s%loSDK(N_jWZCNWTYZ#$L;tBqtYF-VZv9b?KVc8**{my{O# ziB|338BI>f&JWUqDp<4ZyGG~W002Cpuf@EiRGG3R2=3FKguT7=-~pohUKGp~zf6BZ zu#e|xMMLB^3w1D*Ho8p&o>2qB#^Gd`DGGF&`xo5rUsyTnw9N$UvPa~&u)CAenQWz< zcHXY7Wc&u3(J%$(ts^0I$=p>6ch;R0GJJu?i)_vdGT=VGa5>{H5HG!T{%+`c1sl7e zC}xI1Fju^wELPx5JDNehHGezNN#x82n5o<@qmW-zBUrT;E}2qg=;rMce)T66wctbv z)7Z>QtcOg1=E=vN0TbW(A9?trwiNaF2essw+7vy)IF0xR!J8>iK23B1fEHjY7Tzug zc_hCJ`xL3mDMQL}r)%vhQt|nhqtT;1o>l3g4QN>>}HdKlgzho%i6vaxv$V z-GpYWuL^?#jipQJ7MRzPRV*mJi_ZqoK?v`@d*~P(lSI0(gA5h_L&f~#m2Pna73py6 z#se893MZ+rrH1N1AhTs`G=8?Iw^|iOU<4ISYLCX?Z%o^`Zg48S-t@tEMP+fXRW&sJ|hq!8@Cv3-d$iY0R& z_`!HX0VYXvE>O!btnLDbLvkt8mJZgL8FUVvErVucY7cN9$&w&A;#S$BdJye4sat!k z@iUDr_;kP}mV$0pDJOEwp~HXzJ*X%GI+lcOGx2q1#tx375A+Dq2>U1lZa%Vy%Svb0 zGgRFxldXdx9Lj#^0r`%95U`41sTIGq8Imi3F?m;5?yU}FZ{>wS=!^gxoADwPjmTgO z+s#~CiPUTb2=w3FJ+={blsrL1?O>lKr@L3`<$sf5q;wKbjm$8N233@5>yN z;8e2@U!LqFXdum!nS~xlmu|cGjoKLuTQ-TTOWJlFJ^+|8SR^q=tLAHGZaYFo?YbnN zy2pA1C#lO~>!)~cU<}U6s_~^cr4SNXx5R4Hu2S#Bl1?%?8PdzOa_aMS3{OYBtukkl z+m%EA-BMtOikP66<~1z!Y^9yhVPidD7#Wy);s{Nw+`VlA3-qMPP!iE5>L38QACI3i z6s(__HuY`1nZfmFqtNrY4a2CUZWJv*uSe zDGTYvxACk1*n?lO+aaCYK?7n= zuA(A%M@e$I_vjO{GO?0!higey;(|mB{a;YZV;MzLzz5soU!wTYoE=oa#^yP}5n}cs zK{$jn4R+xq{7P}{gVYb{jlhgr%c-)5$TZdHbUJHLjam%8sp4R_Z>r%hqy*9{+3B9I zG{9k0(_Pq*B|?zIHoS65$El5RUx37zc-=>||1iph!#o)k3g;oXTpGSArQ1|9zy|bK z`zsZ8*h;X1D}~^rDZX&aUrsA6XofAh*I){<)1#S!_BYi8?Yv#AzlRm|EcL{pn$W z?rTnTHicY+94WBCgb338a^Ed1*yLKIvPjePyie}C>F@Z9>SgBeVz!qHl*Eb~iQRF9 zx{cH4rarBiUzF#g^9mxJCrM_UVMPDRRdNAlMJ?kPIJ0F?s{6G_hMr=*I`B#dDSVPH zi{yc=u)NwPE%`fJdWht~lJqP^yEaG;vi;y_&I%^taO&@sNFir%JK>Z`|2>BKxiq+f zw3$V{NgUu+Giiv1qT5r#_UYcP(V+*3&z4+CQk%qrKga;@}FK2;Ha^X}|U zMsSi_fXp$LYIfu|+n0%zjBk3+k{AohI9&TqMsx2dg|G19pQjF6pzKc4g_BG|uVA!? zgO&ei1_~6&lV#AX3u1*r-ds0l0rwJH{YMA##6@Xqf_Mv$ReqXr)*AnFJcJ;9`a#cq z-jR6e!rg;4&*>f%w{+;R!#% zE-fM2i^W}C><$jY(s85{U7D#g^;btxpc_u$BwZV%e=)>&zpiV|fM6G<-y)4Y*jbk! zMKNwX(Iks&6Ora3lm!$}+kTV`KVzHF^H~%-llP(pP}E6i^M`A8Su~XQM2Ryv6~a6q z5HuQn8uCQ+5A@hF6FfIj;7dHEtnsqWj@Wi%DQ6lq9qwRie5DSycx1yFy=im zNKf(1iS^xUNidRz>;`y)9uQ6;jsqt6VRu(2RA~8p%$X`dE z_x?Ot^`hlkVdW}fHE}nb;AaEe9=|9j(t$kK0wdA8ry;TLn$rPv-ubiVSqa7{gUf{Z zMp!^UPSojWm+3BR_IT&joORaj6%sxG(VOii4JD*qzjT*{uoCnJZzOu}I5hJTSI>Sf z75n5~!$p$EP3>DzeYTqrmHBjQ~hr+>JOU)f%> z+QiDZWjEI+J{x8hlm2#ZR~#u@^OBM`%6EisC8w9OA_G!#_PiS;Y+f- z{b6{qa@r`2;TYR=;mLGZve10u3+f<8eSLO{=eNuzgLNq0U}RQry^S@)V5EFvIp%E^ zG?4M)?Jc#$Z*M(v>J3ooMxw2mVG%2Ho>!MWR!?X+l%BCOAUQe?ON0)@;%+rcyUzX?%>fz##?MM{^ z&|&+<=N|s9Z@kCM^K19;TDMQ6PedZyh1etD;azI?EIa8@3d)&>djLCfm28>B@=~Dt z@n>ykoqKko`74RR40M}yB%;o%FK^xU$V09SSs%D~xXc;B%umC9ea^ayZQe4p;5;t7 zQJR`FD^p0LTOt5XsC*=10s-FNZ$ z)G_#cOVCiXtTd7;YJ&DEDzto*p{3B`vj-EB&haBD`p@G7=jhrW3egt)f0gBCN%7}5 z;IfgIfE<_*M1uSG< zb`zDw@Qonq9y0<4F9uO72wr9TThcJ%y^WALA`5-%lA0&B=d82-`2d$;5Pz~YrR)S; zYU75wjZi0U2@@y?y*iP5+E4-|B2ZrE`plh)NNX-QQAMAV=})Kcq<8O+Glaz$)3BHF zme;K6d7n(GGiLz1h_~dslD%pla?wx@Ik>OvZU4{a(|}&B0>V63uUqEc3#k=})`r?% z2BTaPJ&95A#u6k^=9Z%dqT_Ekz2WAFUw14WU_e`8b=#J#CqidqwD|%!wyyToq0`b! zf>eb7G}eCbk(j$X|0B0=M;mqUfhy%?8YGyy9*ePkNl`4{j|3g}<>UmnDP`XMk8vUI zlI#zBV2x+&({N)^fa3_+IdLKf%eBdhhpiHlrc$I+4;ZRm9y-_fV97EQtWM>J>iI(A~D${*aPOUY`qeIS~{iVtVrRRqU!@`ycOvm!!va-es>(ge8L` zg){02D_k6l&u6nn#m~>t5_MRUGPHoc;t;}#|D?#l@XEgKO)6CT)7`%vGulmi;3nrA)l&%iGs5WV&(4WY&*82f zyygvzCsC~&GynQGj6@wCL06a*lRDddmTXQ7ib`D``*=yRW7j5h6i$aVN|P4<`{J?>zuLUnejN-NprF`l^dkz)m|?8Wy@7tQ6bH?f`{iaQsiS!AP_TUn_yBhs|+8_CVm>_73 z9WbHGv>rz4{PFiE>Q+@c^m98yoy6dtgPdz zRvvi#7G{<{A$JNC2&f5?C{%w%^MZ!*kr>#1MCXpT_xpJwoRQtHoT%!O_D2zT7RYw2 zwsGga!Cp{1ox@LKCIHiQ$SBg;{$G-OKS$>wHwoT!6(6ZyDL zi+KA-=OZYAKPx`_n;0oH;mq&7f|^hN zz7+lqLvF1=Xa?O(m~%=Gk?8{4Q6^vkUrbR_6^2_VLWOw20HRYumYLvRt8^#?SiKao zBR`jbZd<7IWaH*#yLG6Z$})kI}e{GMM&2?o#bq;}y22>l0SE)5=g zptFy-dM992r9p6}ik+F#O6=?|9+O$LRX8XKjKVD>@C#yg%kKl7bjj1mSFBeI_rU?g zx0+8gB~4wQuGa=VXq8Sp)BD$;!o1i#vR?G$&VaAV7M4xw)t!nd*+cw~>{hOv0%9~? zP1`)c5#1xVi6150i`s#xqK`V@XT1 zn_!}Flfv&Gd5R#6E}TmA(C9dW>w4irLoT&@G4DuHjr9GqQMv?5UntvGCJOyX+t-Uv z5Ck{uNS`$t&gTX4bAmlM8moxx!EQ2IT>^}sI;WisncbD15I-=IJKVImkmN-v-;uB z#&hD}r;D#Ixv%JTC@t*YNmv~?InwodJo&%94cM%5H_0zVV)zHbOY|RZK=PRphlDni6STqXq;c_kz@c@!s1eO4n;v={tt=gToTGF<+%}hfZ*W ztswN`kYfE4czy}}$dQJI1FFC}IH~uz$=AvLao#wk|Ni?A3bV4le zgP&1&F4w7x9zkr-!MS6KfHA_XKi=M=9Dm>UkG;_*Oip`wI$`m`P^h3}Qy8#d(D@`; zco?O7KbV^p)F&b<=Zf~nn*B#EJM~u55lhu}aQ;O;j#x_)c1Z|ep{Lv;_V|yMU~_fN z{v5*zsQN+G;foTikUnBiwEpItIC{-)OmnQBMRw7Ro!-m$Y)MtctobOvK-=$Du3Hn3 zDT8P6Ubtt0ufD3TJeCTfSqU|RfXRE^LPIzYSx-~OH^AbN@Vzwhw>G@2)2Ue>+JPcu z77`NYVhK@r(ZUDiSFc=H8E7?xCW0|#1y>?n)jR20|C=GYurJlZF&twik-#;vTO3uh`fS8$G*(46Pv=kk{<1EJPO%4;C^}EcwQ#zam>e91p&KaU;L}1L zm4D8|2sRRruBM#W@t+3y0dO0T$89UpG-I$p?aetcxFEwO(%O#HKc)*8;5SHfH$qzN zh_nSIe-5KILAo!0&j(sB1&6DQl1)KCl-6J~={}A~cn3EHtRm*8-JG5HfBL~Ky_?qI zY!qJYlm73t{vuzLxCzaMzy`CIWtB_li#<`2}V2?ObMqi>^Gw zI|NWHr4CR=TJeDT0J8^GQ0b3$-mZfi)`~Z=%@C3|Vq}KN>5av6Z}!$34K`!F%Y85fWOc%1IGFQl2vnS)L*59b%cHO{x zvVjy2VHhFJC~jU|2d7jMDR;+lZl#7$C|%lDTODF3jW(R)+4Rz~GzrFt)aj;Vl3YQw zbFFb41rocNl^5)?pDyq+jucXPadqdwcB#)qO_YtojSvh^?z@~r)_+wa*a#*ZDZHfT zoyO0Irrw!W(c8v&I#^P?*&(qPFtpCtEH1VM9JiWa_CNr}6{ZSS52~g6{^at^g+cpI z_*~}*Hn3T@Ky2k0x^DI6hy`a`pSaX0jx^0c_-8=ss1`w5c}nhz2`ga0 zNnm*N!9$wNGi0~t_pRR#RZqQEV1)xrqyVGXgM@KN-B5H!)Ubda&5ZQ2VoIs(qMCWh ze}!9*HZ#-D*(jHCOm_E@hDe1eUWH#(2yVFOLFs#RV$4X`i@D{wfI;xs*~2|$o7qs; z&6diW9(2M4Yf)8hokxe}cA(cJ-xv|f!epvn7o^D?`c?l*5DhyA(kqO_ z)fD3A=?y`d9Dh@#f7#&?_W8E4OiZc>=$=hd1~JQ* z%x_Q=>#$6>q#F?F>QU~V%CL3&9H~*&e$ii$yoS&;`wBd4bOdq`8q1o~*GMWGP(r*z z7?mH7;;85{<^+fRFq7@3x|Ib|-aj%gndHj}8iL;x$?@~bMI zW5-OG5l2&;9=JTS`000&7Va4qTr-~do>7U*sa4b10q@xHy4BK=bqBbOX@SR5noc?f zb_RpLjJzJeO8=~@?C_Pm&!IaOdzce6)x^({kRt~!Z=NgF&E~j)p2FGz@cTeH0_Iov z$vcmav^gh_4;p?GhFjstGje6TBt`rRW9AN;N`3gpqs zIy5H$vKa;$j8~;B1wm|-%Os_kJtn74kDV4h0OUHNM{6dZb7kO@;m%rfA@o|+r@TeA zR}h+`h4=Tn0gW~tOC?Cn9s>dj+oPM3h6oKH)dPW_V?}5t|rC$QRSHDp`d9`yn>g{GDeft^I z_{L9mZQvSiJwCTOY*qFvJ6!%MEm)Qm+YnE%Ok!c>hq>{maIM{LS?;8U#a!anIk2Q% z#GmqW#9(8#&rOy$Awad92Y8ol9o6G9TvOtL|7Q6baN(fzOT0!W1g|++SNMVpRrR@QhuLOC1#}##!l{S0XU`nmw9KP7OKfTd9&wzQ))a#dUK>kUZFaKJ~Cx zce+fiyUqGDL8Lq6Tbz?k#I-zC!h-qmBhD(d(iFLD)A(ick0EK&0<6ip+x z;C_uT8C?9WR#s(#SedJxVxg;GxAsL;ptQh=gnu)-*HT}XQi-+8Wu@dFeC_l6Vx(n* z^UF6}Qn7g02JNR}#!iv~-$LlI(s(C{5T4uvnw!_4AIXj>&0T)4&016MdV{lFNYdoS z#Pud9ltX0l)O%LS?wo05Jzpc9C=Z@FesD|%oT0Qx87jPm{Anx#)rDdQ%{uo!2*=yt zJvWZ7yE50f2{6DP0pu6v^=fXA-73mtR3V$nwFpP&(6dd$rA^SD>Pdf?HLBmEw*_qr zW<6|E8~Ss6V5XkMA@4>F;;m4!N5nx&SWi2$N2})uGkW*<&l>LV9(i^s+HZKnVPMWB zGIO}>9k4)ty4E+XObSkeXb?a(=mdhc!Twwv<0UjNSQTv<$4F3p1+^*nC(o&^n zdzrjFIsMz}%RA4e?+CqJy^g7xUyv|Tm&W_~9)C(|wfc;MvsY@9C)|@Zp!@l)EW}Ek zCryy)HMBK$2RcvdWx40m%c&m5NYRO`OHb^as%wJ+u;~Um2%VpsMb7sfEq=eQ(+Q%D zxSysp#jA?pa)V!V6Wn{J`~B2=b}#9ed%PZBQuoowf)IY5^* zgEGMp?ackBA$CojBJH+5mlI#gl$(gFb{9>g+ooLUT1Z+4oB#$IUy+x++0pkf_*aOI?oHvRh??5ngn0REw7WRM1dQR`=mT=h{nvI(9!+TlB1KVzHvCJ97$p( zF;GY|$t4yMPu3F$h9BP+1s@PEwS|uJNf*f&AkJSnlb!?R)0_SXnG;=!;s}G-X~&c| zGX_)VckG3&+!a}McZ7PsuDm(jk~3C6_AfI(O=^K^7$X z)D_(b48LM8wQ(i$%k(;F8cvgRxNCb?IXXQhiMpmAJJQ)G;>bbis`fYN*a%Y{PioIq zCgjoNFl|gh^3b5`$A_(fc+uD}lpAx$=dnBGFx>6|m(W$hi;ewr4Di8qD0dqP$ku=z@%;!?TrURZua{k$Mx4Clm8VR&XFl)(UZNLvBtTovz+m>h^~5q$nLsiuu^FOH zwb?pSvsr*JswV4|ifML!RJzI7y$1aLpmEVPg=St@XBQ!LKE({jV}Pr zxsM~xi0TkVyNblk3ZCF5PJC(?FG**P&wKym$=_EWMUDg)->ga9 zpRLd%c#(x-F)oE3^yO~Xzrb8q$+VQZiPK-RAOFf(Ip;&6^vqcQ^9NOtKB2Xhd5jG7 z-vYc;Av%hV`)0yUGw~P&{uTq&9r&X7gqc981nIs%j4-^OX(cSnN*O2aF!d9G{4cEf zOAoo|ktUkzSa8RzJmz@dHdIfVKu@-%6^!~l521o*3s;lP`1b-7v4q}?E4_-x1}%>8 z0h#okKd3%-xCgI1_#!PgXg)W*h(>|9wh~;)Tr-*27}*!>J1x&SE=`Div-92E9n*6|_D@N95oTYmy}-$pLG0t1hAC~u$j@uIqP$wD%_sT7I~s-gun-ej z3cc#EgN%$@Wcaymi)ALtx$3drOP@H-PmB|qt-_{E@R^l~C!dmrIM$k(&}F@~!X%ro zo>N{4e34Wxl6;OfJCIYdabdzh)@{E^{NUwzeI*0(^tQv${=kU|Z{MVr*&qCn_xapCcjfR!VImzAID>{@sgPPWf_A1j43vFo)a zY3Q4>R&AWwB+@7^!WcC#cQ}BFqW#F|eun*3yBC96rAZqCsy-lx_GzddqYxC>#OrW- zFKvO{6v>Y6+T2>W+woI#QfE#?kf*18@*+{_Ja(aC)q!iA-mcyETzRme30Z_2)N|v9 zN0aApZ_j;x>tgS)a-Jj{_40B}>b`6@0&CIro~y&+&up729Pia`8g-qnS>k|@!yDg6 zQ>>2y7FQ|_;v5v3r}x8rrO#A82Am~31IMhakUuWD_cH*UkN1T`AjW>_lXVs&L2Pv$ zxMau18&d!2)CC}hHuUPt5ggT>BuTN*K$cE-OH9)1ddN4P0D@M}i*_c>O@KC-J!e z&9{r2Py>jvfh&qRQn!~db4Lju{rmKK#d%XUB<8u`Ono(2DCC1AmUFmCSRx9P)$PWD-RyYD zL-R+e{@-8AA6o0^JGWWqm=3DiI22i)7i+o0k37UGLO$P!qRbOHWA+$`z?YjJV1(iG zj(V|EoV?aCy69H+gBBb$m}DiLsefjG@(_6`!AQv*PjZfBV;Z)D6aL_ZVZpJV=QF?4 zv-*+OlqXfHcj-bC-_j<*iHNCQUH<9h+aHG+joO`6E>aW2m4~ylOa;$Av<8$&!*=#189%+pOK41`04w< z@^B0&NQ{9%#7Va91x;9)cRup#K%SBS|JGedE?W55A`IsL$eQNQ^9TsqrxF>O9 zR1Ie?zc9@Ar26XN;out>`?x8_?ga@0aWXhsK3yB2Z$(SayQlHP-tv*z7m||g4&{nl z&uP3MykP&LGpnr53l_?G{JHmUNcZ4+Y>%fqP1@v&-nT1b&8Y#56pjo_8{Lxb_Vgr` zw49qx<2xGaxo+UEa)Tb)Bye$0E`U2nW_mc8;0Y{mtZs%u}@)ZB}W=P*DlDp-pKQ` zn4{KDgk6rITPaX@e7JX_o)3r7^7e;%LXet+j&cTmWIZ15>MJQM zprzb!^bQp|nc(-6bnx00fu#gX2Ky1k;o`+WoV^c)#rOaB!vWv_&-HH^$odLOb1 zwzNs(s;-3B9b9!=x{@80;p3GhPiR224S0LktnToxFzWikO)_m4I8Q5L6%ZE%iLoi> zQ>M}c9q$;%IPFx7glM81U(hq>4KBAJ{SPau0?rwzo+cd2i1CN z^hNR%+R&?-@iMimnM`u2lN>w`HS*b*g@+EsVX46mMOXp(jnrm-Y$M#Wj=ucWwvn!& z``v|m)1nP14=eEDJ!N@RMi>;zp2q!#62!I&sze5`t(-m5Km9%JC@;BdKIluL6RN^? z**OVx&Y~rF4CX{DyQp_uOSM5ck>%iT3ffA8A^&SjPxTPbDQ~_OD7i5gnK{pse_p3r zQM&dKR8Vj3&Br+rmql80w1=K>nFCVBbnqIy2lstX;lW+?TxhCYW%GXMD<@76K;Ch` zEsnT7><|=T8d)$t&jFGpf}!W!Ml^93KYh^=jihCsp%NN!x!XXhGq&`I=h}3^hF#7`0Ct zP7xiS|? z@KTv+ZA%Iz8s=y_k@Y~o02)(ZHAQ2-w_8jz64TY@xDPEk45t^PDv4xmLFMFqGnGtaq8xSb88u&~Gjxoau1ZrW z`eNc!T?2nuWNJ8EY0r>9radCoLouHIQmCc@CvBODa5>}EhaT}MLUd^{q)r6oOVc*L z3@Om9Ks_HLd@eYn9{;F&>|Jc|b?V`s9Uoiz*61kl*JW{u%PX4o>yD=IcfhKR-i3~z z?mWI~vxAPLH`Kr!=xJrobC{h+;#>qKarO9I8YE9E-z3r^=QB9itfoY|_0F-nMn?!Z z1@nYQiI%r%rUtF%f{Vk$hdI%mJy(YJSlndQVGWF!11G`1h`37Qoj?-v^y@!#;2bbq zT;ANnX$q8D$eg@j6RO|QvK-3W!+K0^`MwL3;5@ANMYa+n-i(iVzlS8#rk~JjeW1Q8)~>#)vt79ckl}dhL9jCSbI*;w8XZ~e_2zkY zkUD6fqv%4N5evSPRz(3qT9n{CUN5gP3+RELr130h>0Ra?Jcj_ee!49LjmeXMN}qG& zbjHES)2%EN;*T#od~b*EHyPjuq$#BIwDM8;^Zt}-dH^?aWBl%bzhZr;zSV1zNqkeL zQ^E#>-Z?hFdZvuR(o(Y5k`IKlcy=!X$W=VR(Xb^##=vw>M!80Lze`3UTU-R4F ziqKyJzYq2A9k#3kvzO^9dy~6D!kwryS7s8!UX?dBaC24Br0(d34F*GF5NxDdsJofB;1P=s$$Q2-WO*|sMLh`=Z zKimB96TJ*N(;iMwt}uNMqRxCeC{lYBxe?9RxO_={l^ZS;J)}Y)%b>s!g-+b{68Tdv znZ3?@_Q@TKw2UJ7&uM!V+OiL(+C!k^g#F0OkhSFJ3tk&M-n%i<2ED&p0CrQzqC35Z z#T}al`c9rX1Lp|1RWZ5ak<_Vosz1)4?5Av5UpFhj)n7q;A@wFZg$n`qbT#8Ve^!0Q zm%#r@;Q=9v3hbIR9r$|qQTc+i^LLvl z>V6W>*kU`%Xep>DeX~|@6s#NIR4ezq;?l0vry|K0fsyh~vC-2YP*HxGiA}|=f)1DU zYbr~$Q*OeqV;-&9`mEkX&5Tn<4_5vv&wkY*2v2(j@jmFm)+dNI!T=BEncp>f*HvZ( z&b~5~JnrJLONeEo;DbmgU_f8-3nlJ~UO)^hxw2g@-DbK1{up-mFxigr2W#$=Se#C) z)NS|+9q+tNCi=Ax4CrIjDH6LienR?^?n9iSU_(HetUkxm{kH<}{R0=HU|HdLx^!+yP*^%jy4ZCI29TgOpd}Nt>*QJd?cr*5}Z<$j1dO2)H(JJ$=v&} z{DPyX)(5Ed17oZXH(nT;176hgE;1O%^Tl;;rD2O@MgxM&QsD3v0Z}jpSCTwHxwoPp z*mqfj3GTJqe3!Lmbv>y#i?h@uw{agcMNN#lJPv=V6O)vFEjVJc#JK0O3a=d%)?^cS1e}@e`VJ={LdNyycmz5ClI#ZQ20Q|B;@MX zYq@KgQ?uPnBMepC{Q@o=!ez)IG~9JFH8Fqjtj5gAd>Mir?wsd>)(!km1gTSGp_Ppi z{0RT38g9*3pM%<1s-MleS}Qm_E`^)y9_Yd~Tkj)DA>T8vG3;RHi=fKHcsctpdR;ut z*FJGmqK=J1OJY9|B2AiZ3H9m#9MUp9kMy=|_D{j{rq4JIg=7R%;#!2c1(Bbqz) zeUxnM38071VdMVH{aI!W0t#nIyO55hUQES5VK1i#Kr;<9q=r>9TzrE|mR@vwBKrGA ziBj>#w`*-wN@NQ|e3&R+(ujibXKtQA3=d{C5D7PkU#lM*!gBn)R?_SI`>?ZnnJsG2 zt9#qBocv=F_Af{Gj?5KSw5If)4Z}WfH zdh>Xwzb}5=zAu$ELX)dnBJ@?*op7)${|2OVT^1WBR(i3DHu1up(;EVwkK5=im z3663mso}}~{EP8;?gdU$Na_gmQo=2*^^%&d$b-TBv-J_#V`s&Zc5B;r2_|9#3oH}@ z^*j992SvfCKMS@E8m_=1TN7PdRxG?6=h5jCi97m^c~e5VabR$2nhH=(bR$dm_BMMD z<8AM5W$u=dMoquP2+H5DGHRebIFUFK?E&Q;(O>#9{s>CA?uvZmj{O1kG}4XiA&3Ro zPR{hh;s?nK(3vMf=V!2Y1xk)q~cVkp2Vr8Ehe z<$noywHU1Qr6A?un?wsk0E=srP-x!qo(Lm4(TIXOp(NwU>&m2vrmiotT?U^C=)m8! z3-0>o)j|Kq+lW1=?G<9_z+e+R3Mk5URypigYxk~HL02GvmD2ylA)@2)iruPpMU*L`E@Q7d7*JX==GBImcZWAkJfvw&fWLjBe<;8B1n=flSlgMg1EU0cN83~v;EC-W4MN4Z?sgJn zpIUfx0z_gAN`0Ge@cg?gGAu+3=In(2$zjOz0Te8>=6rYCSDxSpH&u`R3DaU7kXi=S z+>=$?U*D9}OM2{d&*&sJPp6}|Y;Ns5dgqPgUg=c-yg8z7pqdLnwSQ0^bcFDMeNQf6 zJosp@3K`HHUiZ~E<>ihMrJu7Gc+qpCxn%Ru_3e&dO?6MIS0q6p@jq^)7pz1b)EF=2 z)ZR4&Hj0YEV`5cVw_~(hRbnP?);1(cXY{s;Nu+_ z2%-z`fWI#w%KMsNUo_y~cpJJ6QhOuq?mZ!Q4N;=@thY1-R>San;`TiPZ?v=}CmL$#1^)jHz4Xkp z_hJNg5<0NyqQZji$>OwF3#XRwR523lR;Trq9X>SxCCQi7)V;U|{+XUEN$~!U=paeWi}4Mz!bK^|3+MtenBPU_ zSuDDk4oNUP&$ab@R*nz!{Wst1l)(y;PlnEWCMg|#9B8IzA)6~qMBU`cNec@jUF+cw?7s*(%qW^DY zA%_}lKsYJ=uaNdCk`TCsD&TmH_EFC$RIvvQLJD2t`n_yliN&*gE_Zx-_meVh%Ut`` z7o_cRc+UNfkzR6a^_sYb@_Nw``-#ifcPZVux?QqhiA#S*dJv;EvjH@%707Vc-_V&k z!pLd5ypUJY&TaDU&FYH=w_6Ep7Cc=tbL)@`VI zRqwlrYP!V9guItojk`S_th*fbnEC2z70QD82PZ;eDJ2z zmDpUJ(_QrsiB?l08OO&zJw&XR5r_WlWyCVxvWo3dzP!g9Y6I1ZtUP|6M7Co@#+x;> zWQi12aF`;z%}7`CEXWD{>Rx)sx6l=)+jCf<7O<(lR6w#y0c5JD4(m-m@BZ$9{A!>6 zNxBPa>qH|JPLp!H^B}m&|7OM-`QsJr_b<^gY(rnjUC0?uhYNSvocXo1J305?luL&_ zPJ=t4c7KiRhA=9)R&LD|?@NCO#@+ya^RNi1D`WH6eB`%An}VrQs%B`9^v31T>0D$w z4@N%ngqSEJStru6iE@|B1#58Lm2|ZQPu#HLJwa)BtxpPj?`m*DelxZkQ=xpLOe13h zP%h%;1Te$-o~@eX8J$du#qI(Z)}fBA@5_XX`Pn3pYcCi+Zh0}gKfv~teY4}lS*KuR ztGGY$S!>kD)0_0_HXU`N$FH_LNaF=M+3LFqVJ?Ls53Rne#cXFE^@baMsvt##f=GwQ zw%z1div_9|5g!(}99nxCU7FY_+8yEbZfX~AKnXh4V)$;KXR!BNAf3dn~s9xA+?az-nk=>fD;6v z315t`q(JM$pk>-uV({-beMiUz8L=h_%l>}~-g;22dGinV1K%02ZqbYL`>*Ko*jiHX>o97J)8Y*WTw}8 zt`4-s|L#oos^aE#P`vt=uD$6Jt^9tdK?`uW`5W*&`Zp(IADJeJWz(F`%UvLDpDVOQ zQT4kqnqZ7LgPhY_V*`Lc2ZzPvW!qYGVT%LJxfeo%u$68IxC+I-RJJ5 zzfm}Tps_T(OOECtx^SfbW@}fvnOu6-lW#BP0#xPr^!Z%ld?VNP@bXs24V(EpfWjrJ z&33V%Nk(7*zwzu3jJdD^sr)6VFSKYe8g6%<>B2Oe3oV${PZD}D2YqfB{!CWN?=u}1 zm!9Sx0`VX{Xda>p=7aW8zK~2(LK$r7h)1TxvTxE#87&t@X)163I^yl~Z3+Z$= zw4HQ4;);j#SlfJkhNSe9u|8fg3M1w}&L5#8>KPeV)pd&qvP(;Zko_TSze)~7y^;IE z43927HE1548-I|O0JpBg-#g)nm9%}xvh!;3`FV8Fc)`IuyVD7zGaA^C1(bMvi+|`B z89#09wO^y&N4c*rJ2JX0%oRs{uJnmaZ;(ofIv})t01(a&ZVNC$~!oZt16nK zk{kkgeV{IC;~CK%S#LHZKic~(-L*q*P}^k2DAYN`B7J#Px=FEXp9Z8qkfFQ6I`if} zw_JH2#7@G&#Wb}LL8{niCL8N@UVj4ebNf_5@jvO?BkfEd&mD0$#`F+}q>X#*9&wrM zN$AhLBMA?b)iy*3SyH2M_t`()htx7)x*0&8He`XE83?+vWlTPQ1MlFTR_8jopvn!5 zn0;hbl$_M1fgyhJqCMQU3Fa@HlufRc(SJOe#!iU>`a=}nuD;X_RGzE&5dGoV%DZDR za2MKxm!UDqJm>*RMS}=u&EHlElpPZ@OTE^jY(oCEA0O=#ln39gQXbwjB! zP&vguMa7h_>bQF2YGHbn>!d^_-6v)G-(rmwY$y8txwOWBd_zXqBcl9~Klw|!o0ad&=*=_jUno)4(A z&K0A;K1&e!6VaG(V{?be*~TnJiVey<`2+V4Bi->s4kkbvse{VhJu@8IN|n~Ba;uDX z9$j69l27iCA39LayZx<otv>T&QMD%FI(hYx`kA{)d?0cKXFBsbYVL0l` zk=xwKr+X~cgrx(zcK&HRgi4-~gS-kI&K@!N`ve}Vb~1k|E?US-e%nK^-0?SwxQ#s6 zo^Pb|9>fJ=5K%CCR+V2S;hYQDw9EZ>nk;G2Zs&-qSuT@{Py`UI@WjrX6l*n9J(FAL zK3qQFpPLl{C5x}-h}03lo1`t0!;p!j|GI>}na}sBJBb8n+6Tk;4a3t<3XN{2ErMdu z)e5qtNc2+nIt!tcH;`T*l~f=&9UL!?@O+iDG)jjnfzTW z<^{WaGmgco7 zLjg8kE1-*dI(1u_94pQ{FBnSENk2O?gVfF@HwKJDS{+<-=B2{S`2p3JJ^59PaaMuTf@EK1)KYk`tuo%zAz9ycIA{laS^svlB@Y9ON^} zDi@1@Ldrn3Y!1+8u5<2RITsgI3zaUk;wEm+Z0mE7f~pKTrC zRtYyA=;r1jY&sds@9$*sU4FE0N2u*qR(q1WCbQ!wi^x|h?8_qi;+~a@^+3dZp z{~5}R)_KT?okH$HieQCp-6iHd_%HygUU@~bx?Sss&CgSa3Htk`_UZCS09%}bG=wwL zIy7{LU))Lg-Ff5mJ|I$ZOU=V(DT)8{p)2oBmK?QOXiX<~OW%p&e>#o}s>P-Yaly92 z=0=xPR#-tR^4~B2x~@|Cdl`-{pFD@!QZU6^GNR=uJ;j`j=*7V=q)d*x1Y;^#wP1>U zBqAs}hO8|Ws&NQIR^lgrlpfv4^09t)s$~~IKefXe%XB4naSZmuQgvjX`$)Sn#{A{P z6>!1uLH_41gE1DQ?$8}eM%Wewa_Aw)Tj%&@wRM_#nwkqRBED^~b?(Zi=9#;$oYxyM zt<>P0>bA7{*KlTasNVu_pESsqd>D=5`LW~eKSs(#{M>rX({VgGI!0p*d?A4cFfZ^f zXhOu9&|iAzOMF=F09~~8UmDEC7Pr=p_WlS-JBC6vWUW2zbrg;E_y;^>27gqUpriF> z0$k|&RSpOGL~FZg63@DC<)L8_MD>uPf>vRu-q@jq(DlMia7v6C3uQf>cgv*pRAjtEB{NVhxHX86f#=XAT#SV_&8%Jgc$|-WFnY!+?MV_ra`Rc;+%!mV1mcl-r zgAnoH%o)qaYm3l1^{A|`BS}-;snerGjM~4Odq{4KEb%-#oUF#!DOV4`2IVzAzE%s< zfNwBx_{}Z)F3I^g>!^FSw5(Z(v=ma0(Kp)ZMOr~xO`C#;)L^8{}@k&D7>hn$~y-M>-jj0&;__R}q^Rg^ZF zz~Asor`E^dAC6o_Kl^ln3Y^X%k9h=P&sOr3Of`>{ml&}fYTIIKUw4IV_n}Y}%8qh| z5778iFW4bA{o#w67O3XA_ z7#nY<@*Zf&s_|vIoeAXyVZ<4Hdj#vd_<=`L?fAh-3Faf2x znBmfp8CkP2Q_5W{OB{t7yo47`Zj5~XEFim2kbDbi+;7n#^~7J6$H@8r%>}@MnAV8C5*ut(tNGe!SA_$&n10`DQR%jPr_HzRV|&kuFE-v5A+lQ5lL2{FjnMB&C-MBl7ZRw+<0`dz&$`Yn)7cW-1iQw7J%05B*7 zoArc~y?fVp#b3pi7RU5jzjv52Gsk82KSkuP+&Jz(pAY0M6G`4?93H#vs)I1(=o^DAQO)ACP+_t>%ZjVAo& zj$&cG3Tr%6s12=;7zg^X^P|MTTWkn(g{#&~oH#?|TUsTrGhI2VVL;+%2fDL;R zz5U|}lR0QK=XG~4-(=%)23Y97XYj-QBJP>BM1&ew%XF8eZ3@2SrMZ{kWkGcIOBu7P z#voL|V<{mahtW*SN2X@`qcN(NyJYQX*_*YMJ8liLBA8#K;C&0NWs9`f{NIb9UZftA zeatrlP49pWmM2&9B=#S^zlI7A`h7R7v^TuK0A?7n+e>(Ye_jVSWLye)`;+@~Mpz2m zkG@Jw;o{%RbDM$xk%W~Kmafy-f`e{s8p4HROOi9Ly&Dgn(v{NL3+oxeCG>Hf<E?P{P+K(*Uq=mFCr zr5oet7E>p}{y3$VYnow*Rb<>1xAncXFcP|9DR}#Z922enB)F~IIPI0tP9UQT%PYJl zvcQ)>Hr_apHn?*EYf5*5_8@=#`w}H&R1mmd ziD3B6?d^FH*Xg{yZ$)~DnWF}VI>u_u6s|oC9!eA5JBQ`)9o9RVKE63Xy#vjSX$s!K zX+G)J>n^BAuU{6np^1+BuB^B*F4D9-Gz9VVDIiStA>q8TBS?(K{D}8b;^zLG%WIq! z7QM=kmPWo9$s4Oqt9aQ+p?bPX&A^Q4j4N~w$C!vhi-U22mCPE>+!7U3E=ZX;a*oN; zwO83J{H2xGE-L)}1ozKU%gITb-Yzou`z{~}ZijSxUcy2CCtuAR(wivSbdh1+kqW9Tq zYOrJCI(m?ylmY~D^D~wVOZ6Y?L!Q|`F%EYTbKEoXJ5Mg&y8}9yn%1w>NFHJ$hATf- zesTt%?XeC^5m64H)G0NRDROzbu|)7rClv4 z_|UQ9t&*65~lRk$n_6~j($qrY$u32oGouVK&_^nZ;f&Xf6c(cAOcu^3 zyDy8O8@eL~#P}g7cU~(wPYU*d{$AU$gkkN^~9J;2YU zzHPmTwq%7vVZS%`;U6|e-HXqdiqqn~ZIPmwgufX7wxMbLSFUyuD+`k~)XLrTu5M2)w`OW(fK+y0Kn+Z9XK zOy*h-gV@P4G%32Fu6H2{Cs`q@7*`ZchRdf@Sr}PSb@Gqn|3E@CFObAU++OPVw)?Ei ziq}i$Oy3iCLf#1H`KAZNYx=2?WrlTU|+N4Pu=YiX2*2gjtusYQ|gx$x5L4x-}1mb zqj1lt2N{GzV*qTh)V4CZUFbPeNOhh2dV>wPSMkFrBIoPYl(;9`e}sa>T9ph~=y9DS zn}QR&`c8J)p>E=6YlFdTiEc-*hiz}L-~2KK2 z(b}KmgZ7kQjNx&1mtxLWBZJ;{ko;a>2kyndo>ddZ0nJp&`4}O!AcZEzTwLsxJclK0 zGY54vWUU42x+mSK1KLS{${o${{QZEDgf^5P$?)4x;{g8}stLG7z%sgt)xO%W==s5ju;JEBq+QbBG2iZ~N(B&HiN}muCYO0pb_18u2d{ z55Xc6aS{46I$J3z*plSUUTyH?CC|U02G{D|T{bNFJ!3vW92+(mu_^aSlodOUe64Mm z)i_)wvWCjYZgwsPx@t7{KiuQ-dqRiG4mmx?lHp$Z!7oHKIWOSO`OoEen*KW(jn}`5 z;OMso3&`ef(Qk>P1Cci&wpg(-NN#OIv_jrnU-{Zf^K0l_ixEk-fS0?k{2&+UYi}+X zF;#%sUkq4q&JOK~Cb&&!B7i(ble)`Q!<`saTbFkgSK~3Nyl?DBT`Sh!2~Oc$ivc(p z@7P8_y?s7W<@B^-!FC|MAiflI2dl8cH^+*fqM*(-fK5>Zs-1bqUAK-N6|Q!@v#bwT zuy4?8Fa451i;1Wt+wfM?gSCm>lQNr*!|e0R;9xYf(8jbQS(|3iPK?Qx+4^P!mZZ&m zIPZu{P)x2j0TtQ@l5grre)vF^_>N_U7Q^#iO};3GV(0k?)0tZEzkg|Sp*D0lEWZ7^ z{+H!)NCE6KCW3TQs%khAL%cL8Q#BcniMXU#RCYJ2nv1!VGmF>Q3UX3?iZKpzOkdi0 z;G+M@b8y$%1dL>O9{zWdQewlkP22@1=^J-orXEKXiHW#_C@f)x2=OSEmG$K#sompX z1-#2)wu0m4O3MGuljX;ge9Zn5yHoA$hEN;*igp=xL_?)spt0P)-tfF% zo+>uUW#~q-*0X z;LF$0i+$^fuF-wR`O4abUiQ41st_jr*j~4Y*xOFME4V| z2))H+G<`Hb>7&P#lcuGrkQG~CI;dKnVD?vUFIdgrks^(F_ek6W7kLTIEvb&Hc_v@v z_WOKqyLDjs^AB?Ml1Fu6-YT}8z=pipW2?&}l$kY_sVb*Cy&hQJuADMa5bjDfp)M3I zXFdq6sEL}FIqyF_ONYt_o9KmW&99Z_ZRw6SwZhilDF~Z}>ND&rj&8s6vIidAiU)?&bDw_0a?;NUUijs7TBW zbvl?@L>xiKkD41pWL2?+ zD>xDKD6|T4bT7W?>75)r! z&Qgv7H_kqg^@efNS#5Kr>~DoB7-y)WHm@fbpPLADO|SB`EmF>#g7^MVzzTs-{z{angQ&~T)t`}FPvJ|BVI19SRik(OcFeJEdNTHtsLjdh;f)Dl~ALbb=&2@ znXP^1#i%k!gy;m&bd~^(lh+QZvoV>Ny9*`-LOjE!HHcky>}H{hVTXtWx<5u-i#GQT ztN$+5N<%DL6!o1P=5Ve6<2Wb}iHQci9Gs~i1jjuiz1Q*XB5a2TRoPSTUA1ZgnqBit zJ1E_=mI^{RY}^V&dFvLU7-EZHz;0B=Sfv7ApednJ($j!hL&~ZM<9e0_pou zHM1Q^6aza=A->Yd^6B{9nM}b{b6dS#fL&4PY0C$)jGq|dN5Sa`xA#M~A}R+Lk}%cE zvaN`F@c`*3I4gpR&uxXy6nqG7-iY44y@oScmV`2EGj7p1n1M4%zz6Dv_cPh8sTE*Qh&P6kM(>g=XNx(a_r=<+$pOcd7KR z+MzdWLTUJeMRDUzOslOAp9$dnXn#3EcNnv*cV@rD@O$C>m{dF}el8w2h&0e(B5Jta zoV(VvpqyeI=M$64lVY87drf~@)pfnTR1}U=@+o$UPI(H0qELgWMbR;LzC)#ouXyF2q?XKT*PI1KS)7CMmuCG z6~BP_rbs0si2nY3cSqy`!f86<>V>%t6T7s1GYpT@!&`rLe|1dUD$kL0jdl7Lex zKN@9IuL|z0&}{sqGnq(^*OR+;&VRS6DZ}`|O3az8AwOjH`|ses)iYJF1AbLLF^qx) z(Qup))-61n*+CCXB%RKta}&9MO)IZZVH|DLbCaNrBagW$o)_qTqUoPG@GDCSy(ZzN z=SDcSI?L5cx(E43?*O+odX?X;ft~-j%j-F?#q2gSkAItCwwNfy@2qIO0Qe+CXo;qt zdn-ny`8I2tG%D`3KMy5p?^GM~sNf=-m;&za498->-2qPyo7vTcQI*Xf)TGE%%?s2= zXP(U>5qEKS*a#mozqQXYyv4NQd>2UiA|oe`RcQx@#9i3yu^H-s3m|l_s>A#=BEo3REcIxZx z&PCKaM!GNBi|_j{81-~8y$~08!G_&cC!fi^S#Y|YxMf+o%>ChjR++JQZQVpuMogk$ zyJ!?niJJ56Vou2upxs@H>{f{ls6+OXn_XVB6xVgb_T|Y-q<1PK{)jUG^8BiRAu=US zy*|X!k&`L_e0aNq`$JZWatf73us&$Mq?aC1l~SqNn=fg-rLEa#kW~ar9MBW zcvBDtwVTcwEllgJ+I|Xruqf)*Xl#}}<86D0(e)j$d~uzqQk3|3>kVfTo^~PNXHf@= zQ1RlZy%c&r<~OJ=!N;v{2Kz22itF?SXY!F(j;lv7dF?{izgyU!Zg4V;*&jqeAMvq$5r!yoTuw#?DdujPiuA!q=GVixI zw0UPJHC!GalkNVHX@eMSw$uYXNGh|%MFdW@RX%?T zYNIO7sx^F{7x{homPdbk?uuacP06mPuAp6&Z|rfeHBX(7Z?6(2ZnGlDQY(J^kdqo! zhu#{2SPH2uYFuP!gut`&ilYz81ni;c%(|d}IL*fPo_bpT!b@OdTzmOLWLl&;xs6u6 zWXh#e@hm^f{<=~MSWdD51HQzo3#?OWn9DE^$E6_$Rg|(?FWk=7zBk;nC%ejL>G0bq z34gM}J}bI8a(a}`BImo#T^yCWXHP#%igo-8UOD^E{VEUpFVN%iGr0Xc8H{mE%pcx9 zR+Gf=j9kAEDp?x@6!l!dlEaKUxDK5{mQWd|XIjM{l6p4{5g6NhGV0c9K0$>rHN$JY z1kQk0Q^Wa~ImZ>si0cpwfjuS(YseRi@l5*Q{KrpXrHQMObF`B#ty5)Za*X#w2(<`I zF6*Oq+Dw1SB3%#SK0lf=GtHkkupo*a^gM6%{>ddtOa~=r_F<^bn%H|%T79s*%eqwj ziZIrDLROX2?o_#7C)g&h5i&8B#fjkp)sb}CJ@@%x9zhnIRYSjlRJd~!mE{{K#-|G~ zSeel-vYKWvgj%6~$eKQOq7+NxsAqwWLa~>4fozN=MgX7K8ijjnYigj*Voo63Ef;#N;`c)`RO%!Psk}eQ^x?sXW?#zF>PXkO>T`R_-6r zjd3mUqq(EIE;4QjLcw|K9rD%%0kk%fJ=>ok`tOH@uq;l=?v>KE;0#&RaXdyMEd-Z8 zrN|zSvAiD^{xL92pjGYOU*o)?3(UAd-QzEET+{lX@T#CE13d>$iKq77O24}^(-Na8 z7)36Lp9RQjS7zr$(IYk-{>BT3o7O4TX>rlzC?B8N_rc5%YOqyNCViwgs}B-L{Ij1f zCFDYVSk{uih4^-hxX)_?t@sfi^s>h|23F-~Z7S-cyq8_dyFmq<|tDpvajTZyy z)IYsdpbbcdOIYN-9bHe!1%mb?)o4qQ_E#2@o10kfNe0aS85BdJm{1#uzBoyQ-`h$p zT!nOxgwH`DGJiz1_crLkHR$o1A8HIMVVDqzG6cyRnk7#d_}9XD7n2p_UVZNPyN;=j zA$p6#93P~@g=($0l~I*<9CnpTM3xWx#r#)X1kj0KL#NLoKiXsW!cqbx34~PYN1)l( zucNP{lz;fV?3YG9+Jofan88F`w#I)c0y5XgRm5t-891-aX&Uq@Bgh;K6AsQ{Iph1r zr(2TY*8=XY@4YmU$y7K8p)XaRz5UV`u_X82>Fk(+YLo2#yKvv&Q$D`#hiSV!oTYnv z<&@0EgV>bA=uH`{HlY@yMjP@CckRFzg1NY49tGg2g^JzR@bMaXkMhG1? zb&n*sMBw`ohcg7UH-C~PMi1`EIEupf9;7ytdvhfa%)yGQQ4Lr&D;|0k!Hy{VUP8(( zOGesR6d}2v7#B9%Yd0ZgE`+G=KKFpJn-$R@dYQc*N_)R4LCC}Gf2s%6`w)tTxC$A5 z?3inomZc2$XKk>5#@RBCqhuQsF|spB3!jBl6kW0WZ0};N%Nyuo2kWJ6o8j@XFFZ;M zcjROX8k6cMTr&YH9#aIfSV3*51Wwt=ef00Bt#x=C!^8MghNFib!i=*dKN3{}Y|co$ zN-$8j?L;#umM!{aoiT#w=li6E6KkLqTVb!6VrAQHK-|9qJ+Z_+5Fg5c4RoJh2wMpv{o9|P!=EJgoDDA204Gcg-u5{^+IA2$X9Pm; z^nd=I03FYJVs)CIQjBMJ6@UxeI3@1FUHTKNmn|u9qn3-_4gsYHgt({|doXf6N<#J)JN9XU^dX{2lIsbCkT_X` z9;8d$rwp(+eGji+c}L$VX5Wm`0rh8`%sQZ3%=}#uVzS5V|qR=8uS_TZTe9<&|{$z_&rscFS-Ga587ndMfxFTCWa_N^jP? zShq2AOf~@u0guXxdf2hgzlZoa7&~RecgsUaOTjU4m{86V+fZBBgM?Eq4fpR_S>vUvZlMG-t#(grd$W}=d3Ae1q(f^yh9 zE-#$11L*!0l^oT~&;VL$2C73rUEkEJSldVBQsGS!0(USS)QV^ePX(M2nbGyJDA8F| z?zdj$tDD(D&Jak%I4v2PUl~eZxr>yN*&!j}L)^WsX#s(#KdHY8moEH7R&5X;%7R5{--UI5a)2u56?mLv`QquFQzvdx z0Dt!OV@OfCr`#U>dl%OPYakP_^znx;(5|BY>^vP}IGzzi$QXUMdk2K*R>=E%udq+) zEk5kk1&ur`vL8{c2%$?XM!cwy4j@bPUK_b%B9~Gybm2wCM-vRcm}Y=GdLGu=^rvSH zpT_$Gq0`KyO?4;absmeB)FI)OLacgXi>#FYTP@srAa8)z(#So}54HYpduO=c+!y(n z3pA4&z{~;YqD?q@$-DMZOOX}__6wUQ?Z=?pNa&X2@-y$hD|sHCc>tbg@ z=Sr}(mD`WB3G;qVi@{e@tP`Vtr3X~|B=55wq-6jIS?iP$Xxp+&R0-!#gyM3F&~L_u zJak2=3UZ29?5^8Fz~`rM#VHPiaely$=lROj))I6!?PC3d$W2fiqE@;!?C0gT7z8yQ zh*-LcUPEdo+-gsPyDx4e>;!ONyMN_f9TuM*UQETmeaHALXbv*%%Qv3kGpzZz;DdG4 z4>H18?ThSkEx%H07e_Aot=pShC85gc45s+e&>%cN|`zH*B+c;XR{vRqz9`S}#krMX^5~xtx4LCl^X)Laxmi+4Y z9%wAvO0sI@cU34GV@%Biurdd-NNsQ~hSFUL|49oZnqeezux=3dRO~@=;4D|my({B= zNY%rBRs^qVjBvf9ltr!$w>U16nl(`tBkmKKGpLYt^JDey{mHkI$Z(kq%yC?1C`@L70 zqUGo9-vYQ!s!LAAF0^28`;EfTxnd@i5BY}N1p5PuOI2p+0rY|2m7otb7Pdz{c1PfR znZ)}-=$TQ+t1V_%(KFqW@bRSAfKGAh`iz&Q2sEfv=*^O9Gfd}lb*=j%SBmxPnfef) zeClT=Q&R4jJhw8EM=zkR&QS_K>L_5C>fGb7$x~i$o4EZAE!;I-8^@A`v)2>>A&2h- zZpdJrQTp9)pacn)vF$#@D1;Ab>SeBzEegWuO+fjiVvu0s)QETGR=2Qlc#au!Z!jot z#N9feSBKoDxIGysszP0myI8Nt$qc%D*P`k48OJ!ZiPvUs`tOu#)AEYId=p%^Go>sI z{5TcPAg;?FMbO%rlf4?vW+q_5xyKV#sEzLq+?-dZtjY*WCLn1G_3wgzf5ih3-~0ku zu;%U+vPsY_mE!3C_W_97FsP*Z+$YBdC0DTeldxM91?`ro?^K zh=>2NHH+G~#2B0}{A0TTvsuB4Q0s~2zT`pe)cFlo$AYE3MdzV<8@J7I{3{-+i$4|o z07Gn3uAO*z5^78y5pM~7k^ZhS`ax2~z08jL!f4t%W_?MRt*2Se#xT!ljNFq22pNHS ztW>0hwd!A&N8EN{Pq8jQ+`FHqD;cT&wY!JpCS7{aUg(?OI|6jVtYRv5eP5ZERT zN&xZz_JI9MPRylw_l04rQqi;RGiEdx9_qK;EylKIf|LL}A3`0IW3d}0dLR_flV7J) z{KYorT!Ul59zF`Oq(9#)&hEg-cBWYom`=q4K_PR}#$E?U<#gBQV-$s=sn>_U$#9tf zU|~2Gz*}8!9i1h(YBER4z%gM8YPOuSv2J{9@UM3xn0keZ(Ln@#h|JOqf0g(@Nwq2# z!pm>o@pE$!MPD}1Nojv|kX!_HA;eRj{?{Y=O5A}6^Z!Uwb;V*M>@WO-$l5gN>4C;# zTP#{Qv}>Ww?IPfd$TF6h?tlMehk!0S677q4QMAUT=NAyuqZ6Dd5U_zSETTs#a{`w= z(|6BoMhCYdV!PAP)M#@WMUg+$)&sqV)Llf-ZA_jle=Kc^ps>ZAa?^zLf7+muB)J#P zW|6%tKU#oc?5(_uwYp|GEtr4_c|;-g6GETIe%ulLqzxqkLiSYxaF=b+J^+ysGd)P0 zwm8JhXf;!?$&BDL3=ge6_x0cyK%KOSezJg$6~Rvd0S{@{Ht8YL$gd&IpSRjWfF%cJjbJVIs=?Q1V_jV-zs?h*do`NXur_$fb+c6?&O35HzHqmp~ zF=Qzz!93=FN-mg*uJ|%1zexw(_r1h0el{pfpXP-U$Qmw+xyo$4F4TZBh0`fEjA;KS zC0PO)Pb%Yv)tOF$4nK9?U8GAs&G*TOjfd_W2a(jD+RS7BBi$BJceLO2!ep$Po7=C$b2 z!v9tZTY$vhNb&$!p!wOK{I|r)UWlw)$3DiXQC(swyP^F**|lqeMgK;M1;7LK&;E#L z;MloWIDCldU}%vs@ksgK7^WM-hwg`Rh^nIJBVuGxVk~$15cLX{Qv>!zw@vSI(EOOF#swS3vWBakqEsO z(1T{_RJ3`*=(|W-%{H?HXuLq2GBmHvGUT-+-bva$@Z;*PgOQK!snHhNp|26^+pSlqpRIPAx z7)IjS-%i1Wtd%E_kOruBkY}2@&mmtJT^%!|CnpCTqcqUf6#t9Ag2d&_UhSFu9>3Jcx`P{Jc#GFO-TFSG!Zk59 zqhE%Eg{WE);x>TN3*Aeh_5wdVyqnfuue$%mO5M8}B^>p0=4blJ7R}~vRJp%-48Na5 zB!XGEox(mLA`mlV;-eiv#4_Nl1>=9ewkrwP|N?PYU$^@w9gy9B-9MKUEVhqZy2^)<|{KI2FkU+AK1p z)Q7jOxYBj{e?;2y_}WvGfn^<708+1Qa{*g%Y-cJ0g9lq!$Iue?j}-#BWou}7K?PkQYKo-MF&IX z?m)WO7Ae$m;9(+OSOc5HKtz-D@_!NEtKMGS_&adq6K6Oh=?Ggkpv?kh)hxuL?KNJ6agcmBu^PCP$7wuB8rTHD3b$-p@0$w zD>0=6vdJIBH>CxAb{z;Ky7%w_1>TNb5t`Ot<(7DX`4A`{S9mzHn5mvfcH-c+lD%g+Ig4m2n) zoQPpRUK;b4x>~IczH;j_=b9#v5CA?BS7|q7jE@>TOn>^BgK(M!p2mBI9MoOWB7ce~ z@7SG^x-b{|YdZXW>T)8pq+PS1Fyx@jU9BBl2hDoKTitRnRzLx1QG?(HK-$EKdl!fz zInMesYsZ!&-`E}y8ys$j*MKj0 zP?ANhKD`{Vh1bDRIR-$L*sswu;|vI=X62UClO>dB@Y!b10wBIad-Hz(L|{;uDK`Dd zaT6e+xbUDQY#F^`C{i>KsqDPCEI41qv3XE_MMJ^06rg4M#eoCdM)2mu%&HZdtEY&f zuo_UIgF4aRlft@6{lnpJEWJpCFl_9k%nB4lYgEzDlXP*A2~f-2a#~K&QB&H|LEtOh zZ}f=vkwts32pOPfc^a??FCGJ_X@`lg0*{o)$Z4ikNt*;`4kp$9!BC;OOr<3(7`*lI zH-3WXo&;>=drvoDTHYuxtqO|XAB}0w+1;}6E7FkB(3pPDL)yh=C?c0Zg`on!Zi!EF z&;FD{(r^Ye_~R|wzasCJOW?g7PQ(?~N`#L32M+xjZaP-D%F{|YXhm~^>7Gi1AwBVa z-Bh_sYj}{f2CP;A>9SACCuqeVHehdMOhO3*4BUo-P+7VzP2@B99mFVEH^XuzhDagg zxom4g5q#6_2^!9M(zv<%738kacG$F*iBzJm#Rt# z01UQw??1JoQq@+Zx}7h`c2(w^j!)RCD$q9m(N^0#KH&;%Sbr?*_PhHyQ|!5%w<|hf zlE&`)Jp1~Fha1N?uCJ6fMQ#dFA{QC$+U(oec;;uBr>yKoZyeR$5q!Nic%f)k zOc>ul)w?J9#=GeW>$g=J=?@k%M)93TdH0$6E#c>rOr^ctNSA|;#h4tv`%|CioK`e9 z&BwOiVU|G{Dbbb>R_Kp3uD6tOiEudARj$U`|=B<-xXD0OF`XR z*-D6`^|)%Y?~~cr60q|JNAmmmg9CNE`(#SIY4dusdL?PfVy;?w0eYN)n9wGS zzLL|amU!k>4eT`GplWd%V21W_SQ^$1$}n_S|Db#@lFU~9YYepV0!qn8UDWfW45wNp z4Z1zRVQGB+zYv7>|BezG?kn>XC3hK#&2tmzGiT*S=D=)to{!g`uTDIoeDFWnwNI)xkM=}q@gBHLzp(>vCY>qd72 zPvGP_``v(zgE7Y+1K1#pIi>Q9P432=VOhpYL0SW`IoE!wp`5C_8dYdN#f1J0cjnKY z?PkJO(ZV_}fWig`a&(;H*Z!eQ0N@x`UJ-GfZmXrLxo(R8d9Gm!tlgWQ0>kAHDWVai zyvTu{q2{A=J_MT8eJRZFe^b)be*aZ&j~jlbI`64lu-!!KEMuI zXOv+lkrbm~4gI~5AC!ipgY+VbhEI2GO5laYbV+&;85`o9irF{2G0z?Pz!YK)X)0fA zSZ4UdIev4jy}5;C#46D#-r&VdG)^z9X!umuR041KWLGm%&te!YG%Xd33BQi_MfF9i z^UFvdDwqvzV*4X4(VXRJ8R>yJ@;4zGV+SNE7pHA-B5YnRaj```CS(R*~x9(4D1t6 z0Y*f`fh1>AhK~+LR)Mv#Jf}d=PaTN#6ssXvZi(AmzkGSqD>k2THjaBkFk(ug>7(Gc z!N>a_dq3G!mOiUDCR4qy)3Jkha|Bccp$lQSEn>0ucX=~g7G{rgYtpE#Tf7i((&Kb@ z1M&WgV%Nw^U_X$f4|EzH6bSlK5yMuanOb4Mv|D#6dc;U>Z=8YO1O4A5cVCSs)|>t| zH&w30(6g7Zre$86tIlJ)Nrsv@q`hN#g0^%TQQmsq;Y(#8!+)quR0cX@MIQD|&e3_3PF^hB40 z;Gq{CHN3BG-J(Xn!nug2+FDc6s0Q$3Dyi1MBf;z&g>IJTLlB>dT@h3-g*mIa#wB7L zcUUk|-ip>k!Sm*41hgEBsl4`W>cc(OO$U;_Nc z{=46|B!Y9)2ROt14hFbXpZWfcAekN6$N+*v*>OAQfepFGACHu1WXWXixLvrqX2;IF`v> zC%W}lfOj7X#V76V)i)(L+ui{}j{(B;Ufd72iGe&(!L!uOoFv5^-t^YZs^%o5b@{yA zf}zO^_SiUo&66;j3v0AbsNrklwUdaS?_@bHtE3xS#kwjwcW8V(wfM1D&JaK11o<{m za-{p8D%)^r))M)yO}p2+Zpdqfa+^ps9oqxL?@rYOwGCU+cGm1A;9Ctrdz8JxCU7&q zxEN~vsqAyhtq;%U|EPkO^k+5svk%f4Q~Lb~Z_pYBkSb)ordy6bFhiE!I%Go@9VcJC zybkI^5&~@1)109~KgP2f@M#iT3*CWBmSBa^dndnr|1cI4I_ol6Swm!&Xe17#aScOO zGu*l9gKe*D_m<^UFzWo6q2MY=)tyI*ZB#MZCFw7Uw{0el<9}oteG#!{*OkNZ#*-rz zG#%91E2`!uDo}ICyX-5SjTjzGlhGc^&JcAA&;pBfdsZXR$S7LuI~$#A?X<~4T5Xhk zO*8-15@Xlanb2u`i4Bd8tX>Z~1H&Cc{3UffxpAN_y&YvxN+jui1n7@qF-5LS^L3N( v2iA*6?L2MO@P~`>>Oc9)is1I&BbF%j-`7;IDJ$~(4E(q`dpcEOut|RcK8Gjo diff --git a/articles/stars2.html b/articles/stars2.html index c8394da1..ef9fe755 100644 --- a/articles/stars2.html +++ b/articles/stars2.html @@ -297,7 +297,7 @@

Stars proxy objects## downsample set to 18 

##    user  system elapsed 
-##   1.295   0.221   1.160
+## 1.108 0.191 0.967

This takes only around 1 second, since only those pixels are read that can be seen on the plot. If we read the entire image in memory first, as we would do with

@@ -404,12 +404,12 @@

Lazy evaluation, changing eva ## [[1]] ## adrop(x = x, drop = drop) ## attr(,".Environment") -## <environment: 0x56490f93c760> +## <environment: 0x55fa9933ad10> ## ## [[2]] ## x[i = i, 1:10, 1:10, , drop = drop, crop = crop] ## attr(,".Environment") -## <environment: 0x56490f470d60> +## <environment: 0x55fa98e5a300>

Doing this allows for optimizing the order in which operations are done. As an example, for st_apply, reading can be done sequentially over the dimensions over which the function is applied:

@@ -472,14 +472,14 @@

Plotting with changed evaluation ## st_apply(X = X, MARGIN = MARGIN, FUN = FUN, CLUSTER = CLUSTER, ## PROGRESS = PROGRESS, FUTURE = FUTURE, rename = rename, .fname = .fname) ## attr(,".Environment") -## <environment: 0x56490df4b3b8> +## <environment: 0x55fa9791c9b8> ## ## This object has pending lazy operations: dimensions as printed may not reflect this. system.time(plot(s2.ndvi)) # read - compute ndvi - plot ## downsample set to 18 

##    user  system elapsed 
-##   0.829   0.192   0.655
+## 0.721 0.196 0.592 diff --git a/pkgdown.yml b/pkgdown.yml index 8bc96459..91452fc4 100644 --- a/pkgdown.yml +++ b/pkgdown.yml @@ -10,5 +10,5 @@ articles: stars6: stars6.html stars7: stars7.html stars8: stars8.html -last_built: 2023-08-04T04:33Z +last_built: 2023-08-04T20:17Z diff --git a/reference/aggregate.stars-2.png b/reference/aggregate.stars-2.png index a643bdd6f093113856d044d5e1cea2dcd7b35c6f..031f85d649e71bab79efe333ccdf2b6efc188529 100644 GIT binary patch literal 24318 zcmdSBd0dj|`#)+m<&>45YRYo05w*tD%G`3BnHD2cD@#*z%hcR+MMXuYNvF&hv9#P6 zGc|L;G*=KTOCxh%&=AmEaRCJt0fFBQ&V0@}-_QA;^T+wU&Uc2_OHp`uc<$@I*7y6m zp8J=qEp}{^-zFs`wF7$o%oQoA&5=@4n{Ix)1-wE|&szXbTko8A2$hmjN)rEUKu#=r zN=Y4*f}Z*5YGn2t1s+!D;H<$53YVk&XkfLe?EY}{m-KV;7Zsf{4j((^`z})IfPa%y z!G6zQOHVAG&YdFM1WrgmhF3m7@$R+K8{u!?2FprGt)zNDA$s_>)g$H;F>e;hr%5q(hB?%YhM_@C7(Ur8N1jOYB68N&ZP>1N>5Ug zG>kIG_ds`QM1AP;z-vYm6#Y{SY}psHp3EBv zp)bl_gZpV0k^=3tT=H-e)z!nIBC`@_D~CjZ9rRd_Pn<@)3@QfEpe({KBNx4)aau%= zh-3ItbA~~0ds~nts|F(Sp7Yr{r$rmWuHA>2ld*AUQ3(78_PKUJBf`m}u|$sRq*CYTXjy=QZm6T;Hk@Mz`e z&uul4jCs19`O^H0DK*~lJHiIDyRqZE=?**>xs?trogVz2y0_0UMe9dSON9kyqvwm`<( zAjSt}fFV&n$@&NL)u1luG8@Im4;fKY7tFUfhFCPH9z>0ooQV9@0U@Hy+bs;t!J)MW zzZ&R9-pqsdmK`SFIYvZSpQy4DpxXv45=}Jnkq@K>13J%#1T%SlJpt%YOJ+?_XGaZ0 zfT*bxyn~qMzJ2np+4pnWXzA8SBPW5b9bU&->Ue4(^R@R1!}w_+p|Wf^hjDDoqEJRZ z(cbAv=J|Aa=AK@qn&6X^>p@lq3BnYr2mU1GP?G{9i}5>dhoE&Mzs(=T31mmuGGFU_ zo}}I^p|3>6#Gw3ob4^zrp#@AJq(AXvf!HCaCBWjuJPe#awP6J*r+N%R-{M^_OKK-0my26y@+L?tfr#^{pf5j_C8O3ZHW;xMOpNH0gVKrUH{~rR2Rbs-N`q_6o|dPo z5ob{`Z(y`fT^^V(g&i_IRzDjI|IX;DOS$Gx%5L7zzmUQSpxc?n1WvEmt8w$F%SDAU zeyDLMy@T~EY_$2A^79>Y=CbEm!_;N8WvxP! z@|FqbYr{Kr%3TTC6u-|e@xq?4k{E*+*9O%?+71NaM3KoRH<)wk+p}i%|L^^}dr z1~c)@^OZ4~(cl!Xt424|?Iz+lyyezH)1vUKct~$~P@q8@L?DPuTL{KC0(_)5r%S8}}8-z8TXe2*vyRzB#W1sR* z)M4g5jjHV_{aBM!?eA7cesk1O2qx=z-jT^Jez-HTb|z}-XP~sbG&s!TUI605oKscf zmskwp;MbI)?Jxt}3F0Dkxvb-;s4#C9rq0dsU+KNV4vDW?{=9wiI)?6y*CS$kmIq#t zKaKLM4oD$cuC;aZSU3qooQ|)RY-2nOfz_w@7VZdwvKYFNLR-}5BJ%#2lGretsg7N> z0i^iOv-cMRVS^t^Dx+Sq_w?p)g}MiZncbsJ6$AkRnp=Ihb%#ph!aF4s?-Ti(sGO9# zdDGJ*mBzE}j!BvH)*mg+vKcBr%eGJACyXfw*y%DnCq7IxPF~2{h2-+XG~2DcuU=Zb zr(`1QR=ZS-$VuUHvA6#a#z8&4{gmV{m*FxN(yCohL#X}rzW>)Q&Lq|sQ6@_uhQv**mnjNZsfguzE&&%y_RuOUsZ--?R zkbjG5*6dN@RqWb-ao+(7-TA3)7W3snkJ=VKHO$*V_-T38rhRfN3N?!Yf4<>booizp_YBIoCdy?V&$$mlTi0IE zqHmmb=UBmd-t18MIHGSZr4<=bV>UWuC-g*3dCneN$;@tO?^s9;$hYIZ%k|jI6s{!X z%{C(z%mb%+=js*){c~Ta10VUe->tf%!q{Y2WArp{?}6Bx4=9R3i2lLaLSx0CyUhs+ zInm6n<>Fn)`X4Bt`ci7kgg$)Su3AA;*D@@pds-X}>C9&Su)nZ(I*hD4caAp8%o9G$ z=0z{W(s^sxo_W=%8mBW-4|`!b!b3%MCY1YKH79&?*AP3LMafmGbrrMU;P_2?Zh3?7+Xwd`I`doq5O&ZFM# zowwpQHu6P;Z0?MkVEYU7b2PHMv%%pO5IukVRTKLVq znWDEgac6kjS00MGu*@=}>LTEKV(n!q!dJ^=SU%JFX<&!R+Hs-!-B=MDs!W4Zdy{h6 zzwWB0^3sf75&{*ZVF+&iv%FY7g$DE6` z-sgdWA>>`k`1c<&!eg=B90pYGBJIS|arLSp4)a1She@w_EH#*nuYz&Q{YA3;G^h&+ z8|SbEiJRsxE_0+$7~0@XDZAQhyrnYPrD5KjSVY5~vp5ZkyDY7yJv29cT#NoLiKF3g zfwg0nBXHOv(p_$!twpzOqweTD&uWDV^(hCmkVRw}t)aLlKb0-+#D0HQlf)VTahgQe0=@-RWX)oQVJwaby3~pa}MPiN^(F~We z^Ji;iF(Zw~h@2O*PhcM29UhNh@- zEu(Nuu6+Snv^}1Zud+!>ir@0qDX@NGVodp)Y}q&t48h5RQKP2JT?irpQ*>X$WOS>X zb2Pmmu65NydZ*%QB}Cdf*CcATu65&-rr@brtehK+j-9*4jBGW=&v>Zt2b~p2XkK5D zkd?4W+WJxG#Y^wN9}J^AYpcQLpCxtBj#Ez|;9QZ^I_b&`93vc~iGMd$Lk`q*J|T-( zZMG5pp?lRMyV_*(IPw7JUlDVaZQ7bH?0_J+(_*Hc$=HF;F4t&q5nR?8n$k*72L4SX zt*l#>1E-a_dwCUJpk(02)vnE?N6c4~_F=f~w6%7gB@%D!n3BKh`?=kBiQ>`vXfNhj zA9u~1*NxnVaqw`-?0c3quzz-$^fqH35ENL@l;%ls^P~qHiah%_`Ow}Z(>eDK ze(J4Zz*l??`s3@6q!^uh0r7B(8Y$0Jx`Q0N*Xs781KfGW*NXMlrQLb_NEYGrYajexf zcN*KQuC6Zrc2ib4mT^jOx8ss!Y;B^3IhS~CM%ckzvwqT0&>tBaDP*HDgr#Y0etT!9 z920Br9Da?Csvk#LJ|M-2_%v6X*Oe)@XtmYc1?QE5PXkM}zIgFFOw{Va=vO@qp64rB zY=E!tt4Lbo^z-Bk8Kox-Oz({RxR?peA^m29;Prm+t66HWJ)Oc#18ZDe9Md7V4d0b) z=Exi<`^10AtBq_HKi_^Vt}Ugc{C@ZKCt0kJ#Y{Gv zE#AAHo-2!)$;rtd{H$$kPYE08)Qz-76b;PpyG5;H!_*p7t_ksi_ zIC-H-M*M%*;SK-u2fVyHrrhN6rn2%1Zt}|)$HmM&d-iv z%rC~OsIc$>DLX4m(?z$K)HxaxJl&P|RZl}hBbiis9Qm?aCG8Yq59!h@+dO9V4)6eR z){SO!JArQ$3+ivBb^oFHN{Sq*mFHY8_p6?qoZO$r9~vFq5ZMj^3U=6~>IudNRa#!Y z4^uA|vsYQCO3UcSR8^oitIoNZnLoJbLU$^ix(W;zLx2BXtUxD>jh(>1q>u8AiY*0C z&{OiEf*01b;_f!TW#Fkk%F{~Z&5QJe+6g%?7uh%RGql7T_Nmwyim(Y-q%KMp`nwtN%YCk_eAhn(z&bF4(uDsL0 zOwD5IBHQoZzYnZ=sTGLmS#GX2Fjdlmse`v06F~-?zeWay`$qVWlZVJVRw!;Cjsd!vSY?SrUF4O z=g5akRJpX^9MXTH8ux^Bqot%}mM!tD5(6JtZL~xc7Z;1gPLb%opM$frmP=@0V0om~ z;C*=k@RgWuRdun2U!3_2^IQ7OF?3oUjYvWF%CkePJ^yLWQDT@SB_$vH%FD{uGYfCA zYrNs;C^le8+%H|!D_a&M_4*W896fpzMBk<9ZV*3C2})Z?VdBsWJi?6|;!twkukVJ7 zi?&M|yYsb2>jSY9eERI!5tk})g!$a=hdb9dvr7+Oo|cvd6h1Px^f+m1%{JdcqN@(7 zvc=2BSAf1gVcPa|WMf)r(b=E2{m(_>|L}?bZ8jj?Y8o%N2}1Dw%--H!v0cy1_%3Ej zbgDzFmCyPP%t}Np3FeY0Y}H||7j2V5OO-e83=Ith^0+bj#-Bk<~2)10*8D&OyY>BKA-4G+A?P3kXW7|eUFQ&5 zvhUhDy#4zmJ^vAO{>sc|M(U(1{3AYViw1eQs~RR_v6C#~Oo@Qk)I_EpqSwuy`fI zxV2Rx1f$IPaRnu=HXRE5tgWrnwV!pyOac?6a_}52ko@TmV3~MqWV^UF5*w+vIe+Mf za7!%flV&n0=Dn(N9%1{JX&t<_sS5X_1*nX$jE0gh;tvA@1F!lTCo}!TzH-1(@VaHn z)uU9;1-4AFoyMvTN6(gh;4^^dprec=$*P=dOfb+#*0hB=$i(bi+EAx3yY$RNZ8`*8 zWV?mw%w=BN!C2U@;Niu;4PaZX!YE9aO*v8cgFN$x7%vH#2C zk830iBcreLiCW5{LGbfxMs>3x0eA3j>=J!UX=fAOwnWxE_9bJ_w*JlgllTzs)h+xl zZ7rw1zuhHf{P+W;fM7m}F>@H4H9j~h1SP$L5)q4%X+4(SII|b((kNVEwwUZ&5hwOi z{B%j3wo=QK4<^fLa1$YjiZ+j-lHAN&Ap(~3nBuqajJ>#rZKu;rZoZ$F_!C1BMTb}$ z5KOCrg&yoWwLu3vZ`;_0RB2$MAV`HpL-4gDYpgerjFoakC2UB4$DJ+T;O1(w;2BA^ zK6TnzJJu$%sbY!`MK~VY@##Lks+*VJ)z&?4@N>5>sN&YTzk6`ml+Z5J1pWGMP;aQiP@(RS`)3ko_lF&+St026q8jkpENIk;xRp~lO`G? zp0$)zhAdE(SKG@OGtxM6*+{H43PHif1)&I5EP7t+vS`yf9mn)homtVq0ibI^-$UvT zHXF*Q`Veb#@dOEL_H5h=T7H8NXOF5aaH3a?TBhNQC@)mvb98B&9l`qLIOPO&qD7C= z)|ydrnquj~Ys4X9RZSgJBV^{nm)%|{+_Af(i>?~nk}%O7%Lb!mgcU6825Rj}!(J?U z-gL@_6vThB&EtjpMwb?Mk8s9^1H%^p=i+Qhny%?FZ=2-zY~H+w4$!qK811cp`EI-c zF=&aw?+Mdv)gLyXq{}Mskel87U`1rd(Nwy1E?4F>hakr+?B%$pYk(`N4;CGL|j^0C0k^9_4z)MC$~m`rDcYr_X` z*^9967UZsYZ)VnVX3EvL8qo3!u<J;HfwImv&LVOHcQ)1uS2CWo zG)0xRT!9(pn9n;?ue-z5`Ap%DOqSYgXQMvlLdAThNQ=JmhFb|(4JgSZZQKUoLOiLqIg5~f_}jNLXh9ES5+CA-`eagZ2-@_@Qz1lqV6 zY64{#ZKkU~23*rNY7T>d9X$e_Ofxy;#1t5QD(MOE&kcj0cFASj`CS-yYp4At$2$QH z{nr(!sBwzN{?;7TKn1-G1g~kH4D1s8#6}l4<`>P_$fsQG3es||^BO;F>h?4|Kz|ce zy1;3kZ+y>er8zpoqU^CC3`Kxu*gsyXg5veEk`JN+;fX5O5m*h%{ba-u%GQyQhl9@( zf`_gb@IQv7gsP4Rer^yw512|qtwl7LzGtK{2rh(d#(O`cX?rN&Th8oh;B)>0mCYa) zC;cilch=?tYT-zsG#+{;qP_UJ9bG^GI2ZV&dX#)x$aPn&R-$-^dp_ zcLgdn!~x2RRs&aXY2Q$hG1qVAkC&PA?Cf|JgjmoC^+nDbrz!J<)QOUF!w6cKOn1cB zi*UdR*TkfrB|qeZ7d+jGDEAP?3Q~2Isx>p-#{uNGlQG= zz!qNfOXTr-ln7Y`#quq0zHT~ABE(Gd#uCdpn+C9n46KB_G95LQV=6V6>3uzJUm$Zx zpX#r+dCn7FFPp{O2=D)se zjCDi)(e!8}!H_5ybUd*KzG>6k$K?YieP7K>X>q{~&C1q=GPeyF=5OLe{ii$0hN=tU zs)2-?0zBpdi{uo8!&_{R{R|(ViB6-EvU|N{D&Y9TcN^y(g*gp=eqqdKf_TOFJaT3k zt2?NP(4jo|($=FSAJNt&2%0nHM4jgBu<=g|M7~Mki*PW$%2FUAXp2S@(z@~s7O^@W zAO&x)<1O?iG2rihd;JV7t$TsSB|Hh-MS58qq!K-cS)R$Zlob@_@r4{-C=)#n@0s5^ zOdt@P-wnkLOTQqa+{adEA1CksmKNB*Py**5zQ6kug9aQWy4m$=Jf-4VQ&t%HWVT{7 z*>H?$w}B}@0TLgt^TIE_x!PKtOV?^yp4^4hs`fE%3XFoD}m{+w*Y zw6pf!1vBltX=H4#)vq+utLzp3K+2|yjFfy?CS=6wGc2KTYV(0PXy=#7*MD+Ng-(al zvz=tE8t#45j3js`pAy7#ZkRDdiqXUK^qQA9h{buVPT3SrBohzsRoW$Jc8Z%A%<%7S zGHeW==4qU$Q|UMiQ;!mM1;}}Ys=e#Hb;taTx95VnheDi~aso!rR;AnR^q;aaT1Gpo zd>VR5*$*;Wpil=4`aGFm>GK{z$AYlGB}Mw3`6GQWHKmil~ZAe8k-@Q#0V z^u4Vm2nsOL69fvVOaaxv89rYfCp)OMXO>B7IkhcbaGK`n zdYtAd+XWk%4Xo!*W}&e-+}a#Dh#+WV;Q0(T?M1K_J( zQnLWe2lxXlK)Fy(L5C2KdFN6@=r79|oq-Hc1L z0bG`4N}S7Bb?LzD=@c$wOqo;nRnMGL-?8E=+9kA>80x>)?&mjw zw0`#VsiENR%5UpXUyM}{cD@E6Tel=-uY@I;nw$g(e{Sx8Yqb8O%r2O;7C^w5SiLxl z^181NzUsMhKiLC#2coMRu=ZR3s_OG}`NkLttRN=40%F)OARxySJb$n2;@$$wNhM~a z#bRdln-jE>W!|MRwyPLtt2);evbx~DPTW}qMcXdo`6UF$IQabOq@6%$>%|^~JJ@Pw zhnu`+?|cow?cBJOi!WPdJB(@Ej<0%1MWg40B}MbNwQ*2SeIwaxZ;QVXBlB-?Vja=# z>$?in$U6J5OK4miKC)ec>HGEPJbemYk?iY>jw#v&fVoPx0pP6F)zxBHmX&@~TidSK zSXb8;HyI~#366Uv=3lCwaH&g6VPdF;R4MP;>&T|uyLS(KAV%aDgLcz+q+|?4x5Hrg z5^hq0ZvfOB5IBBIA00zK$|JHQM215?bDba?_y@r{R$@ZbNKfw?Zk;Y%Clf;E244f_ zX5YRCz=9>Tpc8iuD9II^`V?9oaIs?32jWZ;GhwZ!zba*AXDb5Ia2(+4W6B%(S5u5! zQ)*T)TRVVr_F^2y!eL^9 z$m*W~gZ~$elxUB|BgG>wYzYUmj@v>c;*{Xi>ok{^jEu~mOrn@vfid6T-vhAQX=6Q} z$CW8RM~_koHme@a8~Q&0-dG9X{B99B@TB3SorHJ=zk1H!~gL4^Tow=^jku+K7#;ITinV3$buijC5o7xlLM%f zsHpnLb_t6`+i&^5b&ZFKck0j5^3vA7V7x|V&VJ@V8nc5n120biw#bG_|Aj>9MUye z0(p}L20-AEz}4vz`_%v)6~LAyjxr-XJ@e&OzRkuEwdhF+`tqjV6JRqGlJ_ETNK1(83&$XbTx%G z@xr>J=M#+q%@K!W|A>g1e~ML0nE$xr$B$peO@94)6OisL&ma=MNkVWr%(Bs9HDpVe z>UVY7hQT-2`4yNX4nZ8&;c(Dg@k2Opnd0~%Zm}pnj(p`VW&ztB1@02{vzzRK=0q(? zS~T<~0nlwg3A0_yw6wGY?%>jF5J{fU34mNXF?Dfq1~6Y;pR)7A?f!<%690CD|Fxq- z%o{Wbk4a=HagP$BP@VYc(}l%Mi60!;KP6#Lvk{ZxL_cFt%R=&uN@8%_MGmm%S|mkr!g>Z4LR z33fEoh`H;3vR{>dZ|2}Ht}y)0@TS3JJ3BjI&0-^zP|5A`XgKPqj*cA0NGx2h6s9fe zsJPc*omvHniMxh`h`J%^v{2LIS%dIV!t7fWV#LBN2IPxgT&~|5wLdd!;1aM<2?^sU zF?*Ac@$-wB>q1|rUzS)BU+Dlk)B0A|{MtFbePxS{zH~nA#6QO^K9?|>MiQ52`DfAs zXlHTK;x9?KB~iqQmwCcW(kW2Y(&>`o;xfk3h89ZNbR^Ob4+pi3*vOB#gaSGdln-NK zvX6b^bPC=!-%Crc#c?*=TN0z>+0OejlyUt+>e#+X>&`+&>&97 zkg+bzt0Rc9=0#yy;0&MhP%&m4dRY2CH2UlN`yGBW zIx?UkP-7AIh5~0c=8%pqMr(JsSuRs{duVm5UJ%3{UBnHr_$1eTJ+Pz_Pg?02+L40y zv-R)Cbe3V>{FQm}M^-KU`MkEDd5k-1D=^E*rF<1r@EvpRvheHR0_K>epz36R21Bn> zwdh;-gV(>)`zxT?*<;GzN-8MLT93FmA*t2$+xW7ZH*bDLiK$RR)Ud~f!EH;<@yi9w z|7Jq2Yh?}+bb*xzsa3DnAYMel)P^#~=N5Ma*hYGyxC!LbEyjv&dyGtpVDiNRuo)po ztz<=4Q3mSuCdBtoTWTDm)h~Uj^>jyYvmo9_E9dOrq&K>oZn=IyAb;H&n^6X=;6PvZ#Sr@b7RODo8Q<5Wz@wjfv<8t^i`sT2KN<&mO0*#z$K@x zF&a{K#(yw5-cFaZR(Tp>i2{>z$B2aUtV9S*_A}y4X0Ks3*4pEnmmiFv!m&E(4HajH zpN>N})doRBu4US$EC*P!vY^&Z%(ol*rrV9U<(+b)^N!-9kh8vVJ$juBNVZ~au{uFK}H^yEN= zmDO{wvQ{ZlD!wgo;#+D%ETxHqhK7WtPPm{aZ<-3oV~IyY12a`y1Fb_lvg;vC8?&k!jjkP0fmKV=6waDKeO^B^ef?15)T~5CUrQ+qykI z+Gd>elT%vOC=2x{=gcX_b>&=M-h3j#BE-`_bN|PVbb8M)i28mPIMGTjS0)~MR4K4q9UW?GgRQ6k+S})oUY1zPBeE*i{j*>F6Tn#@U%XXyB)w9i!Bf z7Ca&Oq@0T%zdFIw9DR?u6a(AG7}=>`7|~>m9>3=E%L5{W(3J_Z-IrV9Rm?Ukj}UJi z{iIwb`PsO1PxiZ;cZ3$bIC6wL3XwDUZSn`-`g=CgHa(*x@S$b z*G#baQc`_(j1?mIeYkeVJC}v>geV=~c78v^n=={fyifV;VxAqPAbPRNDIBQkhf&m| zhcBT&Q)IbmcIMfSN18WM**!Oq&&}s)OXqfNMEM|Rw8x7^s_#JC;d z4n9qMc-e$>Cldb!|N4u-Ikq;B`Sa$Ei|p;aO3Q=3U# zidaL<2TP>;0v7V$tEdF$Bzd`;M~a$ooE;ZM{?>x=7UYi4h=Vfxk5@J@;aetSkH~bA z$Oe&+4;i7Xmqw<04trj2$~wuf6Zp8E-^0`1d!e+T)%o!~(HYT5(qfJ4S{p*recJcwiZF9G=22G95*462PeTrQ>mACNw z$E5M1yC($!UCdkV1o)lzXzu$2CN1@z@%>ngB?}3sp+Or0gj;ep-LF?SLA%kc-F#K9 z$Y>+S6Dn-p-G(V>ja4V2r^a{L04gJ^ktuC1zoy~yZt}fZdE5@CR&E)evxF}%kS+H@ zaJKrbMg{P+6>{TYY{S%X(NbWn9AqeG+`A{nKac6%`wi}{)d`1ajk+N3M1$XK9v&+b zuoLMa7dbng4ZuufFc%0{nw6RDWqi4*KGLA0a;JvHb-BS+v#hiYOe3G@<+8TYUPcPS zph7re6ccoylF^+V?VC7}oiq8VAvRgbXP9x%=Ho)Vedjk9;0KA6_RYbLM438Hf(U;fCv14USlFJT5AX>*QGP6^;Q z1q?D-1E3+p=m^Jc5AFr0I##dsvWb5xoqf8n8kti6YKN4R@>B7B0d^ao`dOgedbOuw z3MOip8Y&JT__0^1O9g=+6swUY!c{9+(Orxw(q6!wdE^?2Yk#vbQ84p zz1!Jf(4N{7J0C}dL1%@n`y8x0zZqz=nHV>3p;dl7;k;DWsln|{;CB+=_3A2qdMCVL ziRi^7R7VExQ+~@&NMMTn9G2i@iSB{Xe~qtosr4Ln=XYA}*|2Tsg?DC4U*-=e%#J=~yZ3k7O|e8ZqUj#iefh!d8=X0eBf z8GdW~{f%5(_(#IUUS!~fQ01lGeFyCMw`<-W95b$5$PbP+ zKeZs(bRaG|@eEi-=S37v-o0KsdU)hsF!12a+Vrvl0-e<4>->9~9DYs#_Z!oZ*W$YZ z^P}7Hw0|ev8h!FF^Q_6QyE9&F-KKq^cP-Fgi}N5so+Nuw6uB?)yt)3=;KM~Eg|QuO(CJAiLv?R8kq6kN(AMT%CIz(l*3Ys8&; zn~AEVZwX60^YyQ^e$(3JDP7&m* z5ugRgHnDFgcU;G*&Fpt|oYI_4Ynn;5czuRG)NDWGSk1}Uz&l_3_az<>r|O3{1fg&z zi&oGIj%}qitvjMQzsoZnZ#k?l2;|uo^`=k9dk$6qpH}d)DPK3HHDqw!*~d)3d*v4h z?C5LiyiwGX5qv}wUpKjw{{bS3`PdmV^t&elp5o!y31aQpmhjH+kuW`^#h%1=Ci+GF zx04|P{+&cLx`est(@~8dRfZm9yDv?%`-k4YY z8Kek*FjXo$a@EpnktMFD1MK7%;*MAaUH|OMJ6FjAanhc4@6}rV$teYX?@9N!u|D!2 zmVG)%tIKVr2zQjLb?C3m93SddxND|reTQ;ojPVF1cT)9(igj;SkPYk6(U@AFE*~H3 zv4!H3I~LO+=Cv)y%e?oP84%mxWA&Qt-O53o#TGwcCKhkMtI#un5M>LZ_AqpPc)fDH zORbxHtcQ+$>ZigWT;j>8IYAhvB`Iyq5ruKNm2){dxF_Z@7X}BL9NPW4wuoy;tq6tF zK~9jr1qWrBmU)sl1ko;l1!B%u(I}z=98YdZ1zDWgskd#$wWbYcPNunGKD|pW)$%Hc z%@5M!V@tSEJnah4?J|z{8|c!g{U1blv&D#^r(U!*%LLe)&EeyV8w}d&ADmaE^E; zJTU@>*kBM|pwoT4)7Rx2U#nx9cNm0$X8qjdQtxn=s`uAv3yG2!T!gF)7T^jWLug@$P{JCo#!h@H|)iw5QLL-rF)Oo8yk zk2EEQrw-gv z)FB?P1V;0CH$eotDGJ${fIP?{{d)QFputch95$urE#4}JSIhyH!Sk!M;tA#>d|Tb) zRoALBIy#FDn%ycFj&#E;=TB$w;OBA_*XIK+9r<%8vf#hElRu{>|3?q-Z3XiIyXL8l zSav30K#QMG0(u@eg7GhYnEAi7O|!i2InbOF5*^J{Hb3eO=nx=Q-Vk8^faZY_HHM@) zq5n@6)`hOj4cWfX_TQ%#{r>G;X|c?+)mGY2w}8T(r<6a5w6;95DC+3QF*e3*%|8r) zy}8pFm)Z<1k94>F(Y|Yayzk$B_wOL6|G0*Thj1x{Zpq@JKvzwNA7F~ZUBqLOKvW?U zPwXRHLPbL0^@b(pnRW}bHUOE`^g3fB#ID+KDCUAcT#P@GSgEQOrvRVHjt0Y%V$=Wp z`SW+hGFfNuli1WoIFR0RX8J1s(uMo6>?=sby3y7Y?-reIs(U=WOKrut$3%EZ^ z4nRp4v8b)3vKH%X)7AgD?!S{3emTzA;D1J9WhP*98yJ|_KI?;M_zo~hA<+(C)b?lF zudI9abwxb(05HWs)TDCf98zg9Qz9*=`ONW?z6v7>vfQs zsVQ)qFLDKf-3XNnrbYhRdh-?$W$D4{;VFB!82z$7{Qb8=(Eo}O|KS3STTJ6qZUfqf zoeAiU8QkRX@Qo?GqM{;W(2WETaLp^Ve!%5HhOn@pDLo8mRsx>Q$_hl5k+*kqNVnKS z)qeI=@{V))4#SzA%Y=WtpWpkfu`<(gs(pTnb)Q#BX z{v0ut1w88!!03r{l@%t2asD;< zeBFX2OYivnIn1T1Z#GckEa5A2bevZ)!B~yQ1r2T>hU_MP_wXi@DrSFPn`TTKlU(2d zz@(47Ccq`0HvLNPb$27N+dKT))#ZCx=%+bmKMQ`rByQh7LXiK?2*feO>4U`2tvfxC z($#|S@vPNcSGPB+9dP9!_kHE`XH>Ra%N>l_scbSB)$SPmUSjoW(Jj0d13X~YpdsMS zA%Df3U)#lzR-D?kskJk|fURTCN*g-u_Y(whe?G8k7C3)t1=74vcA8VLU4 zT@VPagcqm%9W%hbM-b4NVH7mHY3MxYI5>sjf_76-8F}Y~+fC`&7|*`}qPlXklw2Fc z1R*p#xaB|&$waW!3&Q6w!pbht3Y!+`@}-<0k2w(pw-{z zJ4Dm0CJ>$|oeDdTH~{V&vv?5^sbeZS@K47Rf@L=j4u6AdijG8}ija~f-`TlM zP`nTL7JY*aIu*){iy`6xLUr{wN{8S2`T3A*0u(s^dN6d6z|V}c8H=MDutN11Q(jv7 zEVko?c7o2}w79bvQm;vj@=)GZL7d;uk%})HOGU=KKz#ql??4?vVR4#VA39Z+bm_Af zk3w3y-eNisELtn@AAhaot;>1vp>K`LVvO`;V>`pWO+-u=l!9#xifqroBo+qIl zMjAl>MWSBGj%pEfMJq}A3p7V0Q4~ccO0*EX5+@vq*-fVHs0l}veBSW z?*#Wmd4FJbu?lRIBA5?Gf{9Y(7aY?i@O$y(Dm7!A6^z^@Q8_PmCIk=)=@7Ic`?{N2 zE^2%YA~GNk)+lwq12$ucEZsd?p4Vm9!`mgJGZN2_j=6=qPZujD}+H3e<3Y)l{_p|9$(u#5b28Iss(z7>s_yTqg~UlJ=^qh$-$TN;v{*9ZC{Va zw;7gtV*5ikNWE;4)rdMs%t*r-5H)({-o*Vt^su`$6$)iohOob{)iqW)?sUzb>}wzH zc9nND>#b82?~jW#&l>}kl$m-dsjH*G&_^2ejhtATW$)Z}0{s0cZ*`;8apWl_rR=`` znlIOs_CGPRY}dA`)FF;$oA?G7{PYap7L7gWM+;oOAtm){5#2MlBwYPH%3ygicK+LN zo(h7Gq3qbPZ`#*s{?*Qh7tjS>=+DI}maaaR3YnGEhC%STc&$JH=15g+#74W)jBZhl zo!X90yl%vxZ?J!Jt1GYRFQ1VtIKl^op;KH4pFo4e?0ipYta!~eh8uJ)CEtf+KtOAT z*6B%FAD{Prm+vwX7j-5R=}65TXG5uJ<3oN5>R~ly5%ulOhsCn1KS^e2K^ZO|cs%W~ zih+6kZg46S@u_svvQx)pl0P$T5Ubx-^DK$tgmH+#A6_L&N9n!N4n|(~7kNnwvU_uFU|- z^+W4c=YSIDK=!e1vFT;jv;sTVJ>UeEWKcOtZ68dX{CM{#jp$y+MV1??3J~e;jhJMm zaNTLN_6b2J+11zDo{0`%cNKM3_S3Qc=a}=cK#uyyi*8HlqjZYun}{Rx zZxXnOjPYTJaZ)M&S1M^jNdJ;Pe#l{MN4a#gD^uPbSMl`Uidb_hHsi~5z0|jn39oKs zs4vA*e~;?4tlGqvZtGk91mURF2d8pr!~9cKnHzq#kt6$NNVLx>2X7g$Bvu;MO9)4U zONPj8zbHxoE`&PZD0~R%Z6v>MTH76SpPF6lyx0sp-#&E$mK&sro^`=MZd)Y8*prkbI#16a8If@&%*st$mK$W z36b1;BkZg2q{WYOS_UySzk~HW8A#9u;@r}<*%J_v-M+O>rgBp8GcoW?qyW7%759TiGldHYaz2~Vn>L&}9&}1kQXfmT z8D^^wHUho9jtaHAKBfVm-L{Su4iLveSsy9PcA~9b4DGjBb8TWtnj&)jo@#E+f|yLV zm2}7+D3y#ACAF1ua-fWkceci2F!p6njri`}Qg-ySjTlnl*4wlmEWwz_wJbG2kLyAM zXDDX&zVVWEWX~vsus)JCmI|GJA5WmZQMvI`851c^R$o4r{O$&7t8C3$q;hHtjjT?i zVmhN`K|5E=PhcA6$AFrNTk-ss0UV7P8*7KknbrSZN^1WeF*;Wr<%N>z&3-i6UKYii zwxXqvV@Xj!+bS61kl$B`h)(1{>dW+)D-c8vpXwvYW~B6g??uHNYCqd;4XHQSjML>i=Ew&g&XGA6y0Rfq0NFYFL9ndPGiGYMj z1w>>BgN#WSM8L=>Q-F|!F%TexF(G97p9K4z^}TC-=d6FNv(EcAYe|soBzxb_bx+rI zKl|ZnJ4?Cml)jUZk&%O)I(b$`W&=V-X8pBqH-f)V5?;-Lr_F(<9D`+KRAMCmWaGx? zJ!E8ll7XE(aUPK}Lq&$XadgpI4fyh#k*$&3ufD}kn}6!OVT3uhZp#n5RGRM2e|x0w zcDWUIU$FdCUXt;^eoK!%4a)VffoEAG#}1N%4uoERzJ4#l6SD10U}lzY$2Wy1emPkQ z`Ano#|3nQHA+|3P0*J7zcbv9l7hYuV=Xc!I=C-V8c63dDd-Qg2djH$UZLDj`SO|O6 zcvMCHmtfV@I$xngt83N-Ccj_ z%FH(e@H&3S+`2sn>4qa^dR7YteCYSbzJ2lpDI*j3AP>T;E-_^U^ACS7(?+Vtm>way z$x(HOHuRwqwRmq-W|1e*bZS%4Rz4MCKj|VKs@V8pc<<1L+rq^p2wRo=lT2TUy=M3% zV?5jQ&=7GiC18XfxBg{;msVvlT(|?KS{BY*g@_N3hnI95X?yQOyB$EZ%pbaSr+Y4%#L77R(`M(TV!-z ziLH)Kv00dh7(v3vJKU?IPp0ZAN3_^!P08%yJcSr#PY1v?`%f*HciB3tRm4oF!N|>` z>x;Z;m}}~o_V1=)dQiPDaevg0CeX%*{gl#Putad{wprhE)$C=e9toa3JjyMP7_n^laO4sRZi#PcHyoHgiCsz*#i1z`vq~}WKk0`j?cAdNA`5M`z{l8;;a^s z_-+v%Vt(j6>e$^C5d?*=UqpGVC~r8V>7Y?*LJ>0KnPnYJZl1WfJ~(EgP;8iiq)lK1 zh>eQB&6aAhf1LXcmDBj0Ya2NhCh}mfM!`hKN!j;RxeGHQ2G0vUh>GE-rCpzm+;l9n z8{vi>Q`<`A@L^^Hc(Xk(Ak^Jv<%8%kJveVqZNv0CNF059^ck_qPBYxS>gh42W-;oy z?lJ0u28>qh2-l*Q)UzBQ;VxljL8p&YO}Ok6?z%xrWj?um3XN+S+U6+~!r@MJP9YoqX+J_$Ao3$=~eY5!sM0}XkqPy&tkQ%qO@^D7nUow3G?Y6fZ*{i;te(Ax!?6QD1 zS{X!G6ILNaL(I{2@gM4aS}?+^zQm?TSe3=?a?_uvKZiT5#%+*K?1!-X$45`H zi}Xkw+O=sWCp^*z?c0@VI(@B*!JU4E=nQYi$%xCB039zglvCX%IjW zaErJ4XBF<8^UpLHxTa;mr(G0A_X+-jDA+CBW4f9c8U~o7$F$%%C)H(3`%*P zC)=2>Ruz4mlx(P1QwHbPqa&%RJ}%g??9SF_F%u-1QIpvbL8h$%gA_3scG{>|9Ex++X@c(xHFktGxOL>W(Jq5U-9jX9JA~ttSX+M z$D(p|UO?f`3DodFSP2zcg)?YUX2mBKJ)LXEoENZ z9NBE#9p2Tk%gr=j6`nG93i zJNyCHczt9KmDs$4`RgAFPu?#7wXIzE>&Eihq|cML;n`{MpCv0QB*M!t_Hi6qs&(+W zRPO4Qy|kySKzK6_V%&qT?n)Y`9}5u{K-8MU%ykU(HXUo-NZq3KrTiNnG!mE(d(OuL_gT)v!1IO9V|r;Jy-v0Tisx~C8)aU$Yw!4~yeJJm?l z_I~C`-wfC37za2jZ(+k3HU`llLc1g z+jt2MZ%mf1Y9D%W@JLk&9^z$4KXalnI+hD%wiOEi_R`~7J0Kb)wg(@gD1+bax-GEv z0fjS#4T~kJJ&>SqJuq4A_K$?0Ow#9WYKcurkBWnLA#K|RJ-t>wm7U3r9Ih?;lN-pd?N}Z* z64>vms@|#VoXEm-LrBv{DwOhicZbDjy^d3URZas@}z z4~g>m=&p+K_n7K!vO~R(`tpEM?KQcIZ}SdWJsh~Q#2t>hS|+{`QpVcN$zU&YPowPT|ueFvP-xvHkZC4NjTo8siveK*v+ ziBB&ULZdE~wFioMA$(ccnFdP?p%O04KCYNeDBbV+V0;zC(Yd$WFpSF4?xIStu1 z&eXgw~=JSKKBlnxn*P7EXs?`vCQ6rg)2|cmvw8drZ<|*=&1Y5 zmKB)<&PRl7MAqfD4_DfsBIlN+A??vlU8!43+!mkQR6CFo0==278cy$6M(QKpH@YIz zqPIHd6|`SzUx5?(v;=+R=R|)Rx9=6jtu&k;y+pL`Y)y(WZ)!Ty$2CtJ%OOsH+QQgg z`3%2|CJfjWWL_JM2-?W+@z>HZLyzGi;)FJ3Tx}HdbZS0tD#|!GO~Bhai>W535u5_3 z*7SRe*EZ;xzZiqJExa)D3@irWrsrBzVkZBQLudZcY1~Cbbd_9(UU$rqikSYw^k&Y1 z(Q2V88~3E5b-1>+GQt5JU|(K-t&@cjWkTF&$QG^6dPp#c6)ln{VHlbV4Sw+h$RP=BZ;w z5oFxwp=XLw=EXerv#o6y_9^(u64vh93{!Jze-u4^_T;wmER&hxWo1qT zv4&N9E>@ej4Y|D$F&Qky;y>Zd!5Bd_y2cLvd-FLa=U3}6H;>c4g!+QEq0gnrPL^=} z9y94-idww>klZuo@&3Q{I-w&`8}0X$c_22hEjm@w_z947y9FbdE9Q%rzd1QATW!5! zGWFt|S-@m46#+kFc z?eR;WwQ)t^(#67Ni@un|oT(PQdrmB{JU zlCG>Dg2AyrToYUajyRz!LRGevN?mKR9madY?eiGKC0{?-H zH(+=gFivZ0Yd836F0VRz+lPNX_pUqti+TW_RW@Sa`*^XkJ*q&|nZbU-`4SiX{-OFq zpQQyQ1I(BKF5Gq=OLjv=&0}@Ow;BvaBY7^JX@W7W>8~fIo((Qln5hM2eyZ3M{IsRD zb*Ebop{VFg)pbox&A-Tbhubb+UR`x?aCk&cNlVjp4UUQ;B3esJ4TM=<({DFN!8<;D z_;tS8#Kgp@>UunOad8oxC24Tb85pKoq(nTJ)79>~^hs%ndSZ3*K>6wtJv1qfue8?j??AXYJ5e-+nS}6}q@=;u&enD( zuCk)y5`i%_B=dsR_K1(GJA3hv0 zm|!pftb5damKQsHBJDB9arpeDTYZm|#N3301n|K6of5+0Kg4GL{(qMz6mT~Yj3ZJ zbIeF2Pb!p70Vmvva~v%_n6r4wS44<7shm(>M9!PXwK$hn2+XAcrW0pE^4MJs-=9&QG~_;veMOxw*Mtkyu$>?Mh&b zja>)mD}Mj}{8u+Nh_-_jgX~1`jHP!enTwUowRFwCnu_Xl>C!&eU}@;Q9O^4b@mZ!y zLug`R;v;gm`tC&crY91xaw{A6yh~6L=KW50adh18s-M%P?n{`}m7snz@=S(h_Y1a) zc{Bmhsw7Ut9FNLwqqM(+~e&Wpo+eBL2iD=RBCeR|*FCD!)LcdeF2*CO{OkftP7+QE6<$aan8`NyiB zaZf3oD(hCaOEX=IuR9DtY$TB1&GQL`g{KLg)@*$#-1C-~$%xn#saHrm!M5%ChX26C z@~=ViZN{jo%tU~@dj_I)hn5`(Ob{b_WN>^{R(?Uj6Xdt<7e?XVajpdg6@5+8(wvea zP18Ax(EO`@e)(3^i>u+W>0)UBb&gysrht8li_Ze^;-H``@|0A6d0D;O()UVixTYlV zjg6cG@SDU-Lvrtwg27bp3yU;q0Du@vQ~LDubc65b-JFykwt69=Gn!%x;BrDTm!X1 zgkwINIX~L;h-?}(a&jKq)zu}by!*@BzWWcV6aUBbW7!0~edorlTOc8fHpMC8j1M0^ zLttDjFDtv4H7l)zq~+0vioCqMA8_GawnjT~;q`JxKj12*j(K*XH1Bu4WJw{fpR=e` zDG8-(IlfS_>4}OmNY~e;0aR&mA=A}dkHtt1C^!pWD;a^UgXQ}kNj<{RUG>Y^wnO^* z=Kz{3nVp?yL7+Cljn626K2TEq{9Ehn|Ji<^+X+2R%58!^y)%}|j+|JuCJS1;%+6I^ z*Tv5igZ^#q_NE_jj@Ge7v?wlBQl3PMr1+F#lDCv??t{>ZPiZNSy1#r4lyvcl}PVxbu*1?Ip(nTTjSo`P&%yJ@VguYGZ4^I5W1qLkv z5H2k(1+_wiknmm!=K)I%Uy|lMgGOFO6Vwj18+3w!yzxXu&OEnmY=P2c6LpvGh0oWm)|thk<$~C zu795EeQ#>r<9Z<`^2nVi)=qboZAT}gLEwz(bzlYZ&v8P30H0c0VX9A3+)53LLR&W; zO1Lu>4|65*<^vi{f0UPo*_Z@rA0}TOpd3U|)Zk$uHTZUSws`Ej+!4~4~tMWf@^&b!| zt4~Eaa>Di=yWLAXdPnHrJ;sxeQsJ$If2(_tN+>CxX{Q^)lusA`4D+W6_N=LP z7(p&X!Bnib<>hY0&KUT$>MidXfEO}P8_PzLadr##VF=e8)d+XAkp}N3+T3~pnp}=5 z61lGY&*QBvlSX%PfKu9i14SW573ntnU&1OMG4l!xsyln>Q{rJe^)Qt?8nOT&z zVw;%>^`zi4#NKKF!_;iCyss+mfr%g_ZuS->UHkI(0S7G}55l%lR9YYC-va+5!8zVv zwQ@YvxJ0XG;LUI+q$bTjsE@1>ej44R5&j!mtvP9td^Q^5a&caTS^P-5tMyJgdUnj4 zZNK0WZ)T)uEUU+7wS@%C0RB|JqAFKyZno@CZX-kt^wnwzDs}9fMclM_!weS_`5sO$ zvFv8qBLZLxiTKB|x7*qwm121=6iRYtuUH!^@$ULVTPYL>%%VZ7q=6G`Yxv;9XFPr?fVX4)M-$ay3}6GqlKKPJ6W}p z&^}FtAEo5pWm_-!68Y5->gOUIg;V9@^$8+(*}i@#v+N?`d=IdYvDIP)i%zM&#Rjd8yfyd$p26WNZIc&WO!8r79e%Z$Q6OMKdJ? z;~tYMJJb58OQntDz+9cTO-?L#F5$87pb3R=elt4qC0y9Ux()WZa7SIjA}-xc`??s1y!x%M#D#nA#OlxYYPdUY-o)$ z&po#J4$drii?a$#Pvna0$uA*R<9tywmiEv(ce|v7}BZ_6FIVj zP*3aXDKdTi$@dF@fO&THQ|q+DO%cChYuba6cPafP>{*wzQ(Vg`g@oOjwXd!K4;%{L z-IB5TYL<^CXjA$8Ov>kBe2I#T+glvd#jKQ9xf*Te<)3x>0}`3ef5lu~-h@7=rMzb$?|8*&5HuRcp>^uc@LJUloC`c*g43=Wd6asR zyNx(OP1aY~EPL!h+Ot{6RwuRgKH;!CcW4puWJkX2rv4MGdIrAs1gBy5Ork@k)1kmB z?!4Olw8cNI-21&R%t3dWkz+dV^@@Q|+vTAal?dTAF-0<5;B4j+Pao~1-yimdrTwiH zvEM<=d+?&qA-Nx_jYxW4NcV+Qf)*)#slZ(OPVVk#J?i}lnN8G*`vq>tL!wspr6S=u zp`-^CtM+X)qYxobqpDe)!vyU5p`VQ3M)gH19{c3_G?*?LN}p&^rNDKeOG09E-0mRp z`c9pblt;lVYPxOthL7YdO3cazm>q<-(lHvnkAi$tpY|}fB9)`#xC z8G^Ger;jFNvxkGZ4hE4HRV>xAW6p9n8aCZ8K=pSlYi)I5Z_0x!P=SOo?clX^m-{OL zXinV^noKoazAak5s=a^cCzDUo^Lks&no%&Ww?MZn6}X*JUa#k zt*+FQe$%60U}l)v>xo8hOg>-B;jRE*`XcYXk7#tLHqAM`&O%2-Wv~(@vOq}H?XYQ) zdotHNY%<)*>znA22NWEQz}ChH8syV)>}M9~i?mjhSeI0=~*EPo&T> zb(`l#F?rlsHM4N#+7tQ(W`dMg{4~RBHzjB|Dliipb?J;KEzh@F#0hc48n;noCSe?#2!7RJpS0yADN9`TSbTSZ3(S&O4SDx}gNhOY2N&c=- zE$ll4#y|OfmxY>>mw>u|h-gY;S#YDwT-NU?0Ogte%%Otv$B3IbwiH=TbF+RGR}Lju z=~z@v_22NpznzDtjh~fe?>KU-lBh*JxndvVLwm-`N6N?-2Q3W~zacyXt~EzEb_dGj z;Y~TG&^1#~jz06pzcdtkEinE+*UgQxsjuwJhlo$x`Sci7xMh{j0f%7Ew*q~OQD_gI zT^(Y15+!~@HQn&Tse z!0YpQbs^fD!WJ7-cufTg9)aeISIrYkxTA~n1tHpMW~Jf6&X5zciCopihmaCu{$?Xt z`9JRr#jHF{WZs?l|mGYc#N0m^%qfN+B$>Ql=J8eX{sR_xc>)tnP`*OEd z@=Y4I$)a7Dt=f2~&e~l0E>Z%HX9V{<3+Vpp>i!MVyRqEa$PKP29ZDe`q z#8`)LqRXP(^bqM9TH(z!r99K5vj59gf8k1odKwbI1RdgJFYv4~UeGd17pH}2N2X)G zAZKXiq_`|(Y^AnKhk$KqDnE33O0A5udN>ZS_E!4z4abZu^(*A+W5EF0OstO5vAo&D zS(|vLJp~(OY8yUADh}D`*}|9ldYc>+s3?mv?y7ASrcgGp7D&F)MDczK>KR_2>Zl_t z^D>lymoectZuRHSy@Hsh_)p(WCk^!)*2I5t(v&&m$!@oPYigoFrC!4}saZ6kBUq*6Ra9+s zQl9|so|hqW%yh{`e&?c#ybREwW_z9dE649OH#h55j6N}`UP?pGCYeU9E_o!nMle^` ztIpkya|v!W2rvzs=~JVzqq)eDicQ}kL&v&v&Sf|KEpt%6K#YN6#eR(ZX%p$0y5(Qu zP=2Si9uTL>>CvDmfe!{*N(fw>_^JXDC<5s#AGIW;LnB#S%_ZUxt(MTKGpp9^%&zPj zvoG)%m#}^h+q?r2Ts$4{>7is7zz3hrPVboq~7tImU#1xOc{%{WDIJ8`^@7_;|?)=kj2Z5Ig!u5cfMQO^A89Qf;b6!Qz* zl0T+p-hZ;~bcUz3u|;f=YxsCP=*G{EPNSAG)WG*cxq}%%*#XVUbetw>2RQkpAO*%x zjzBi4e#e{2#p${nQR98G1QeB%lQz&u0L{`SdKtX5(qvwZXoV9-Rla^+f3xdF0;97N zE$S=@?Y>)Was%|V4>MrVyu{{!tB8@0KpDUs2b7>*x`eF)&2bgJ=#1!8S9>%E=nZCz zN$uTk5lhrBJ}qz{XWhGZ5A=B9i^+h%V6@oq+$c?^jKh*{@9RZg4il^dNi{6Lt5;tk z==t+}=dV{O)h{KK))d0fYMhkG z`p_UDZUEC7{OPh!3s*{l<;`Q0yThqT5|*N*k^MZ}7mFYeK;Ebb4Bv|7*|K z^e!pC0yHeatd2w|sU#2paTZHX$!rr7rOJS!R7pjHI5cA5w92dR@1ERdz&K+x7-%t% z)v`<3CxP_ki=)twpFdm8V@s!c5jrtJYl3RNKrQERjMY?2MsIH~2o8t!Y^Mmn0}|X` zq6v}yfkMnrmz|ye7GeOcJz_v6lmAP6u})4&$vX>|a*F-^{Qx?Gv=6R%QdtG4S}QfC z5-rj5?1aJV`!fN8M3@l||f|JR`b4mQ*}IVmaUYGj4P+N7(>F0OA(1$P|0G^=a|6cn@W?{6 zN|7kFvJD!jRtG|@bLXM?S&hEefxL%2GircZvoZ0eRIJHtvN8#hbUhf)SV|N34X;_UmDe-6n#DRmlYa;dDUx=dgQ1d$+a z-IPcJl~Rf7>;(Vv=(L-}(|0s_NVAAkruQY7b-!~O4b4uFYOuZnfp7O+;)~>Dz;5dv zmzpV9l9OAN{VTvvh;+OnI3l77(VFaEm4mP)rV!sAHp-tDSN^VgR@>|CJPP+a9f;X_ zAcpGGabQ`VxddwdNAukOI`k46GPwTO15Yn608VLWl$IU|c{p4g@>^t?H2Hk|cv7n4 z3Dg`V#Z*aFwNwgZthr@02bP+CA-2d)qW*727D?8`Q@f_!fU#QIy<#j)OG({H$z+6% zFLR>30Su-9RIh0T>iD+?^xRjC$Pp!?Y0hHFyZL4EBwiX=OG5ua=~^n%ONFYnbS({M zup`nblcgoV?@Lrdkidy-UvCiNMpf6voR1Z^8{|oJ{Yt4A1x9>Cm(BS~xMv2g%~E0d zF7a6S0+6|-Dnr@A>Qe~Nz-+to4Co*T?gt)yNt&MyO7p%{3BT&#?td{OQ7aS-Qgnan zJBIm3NP%kuCsHs;bwKIl$XX$Zwz0Q&$Z;9~X(PUBEp047?-AdAQI}3hN%iBBi}cjg z)cmvM@0EmyVQb2>G$cqB?hmfrFBSos!C*=~s50ZL48T+gKq3sxSh%;zN<{r$P!Nge zJyRa}U>Ys>6U6cINge%5G(=(#(3X-mHtqA^T z@t%uyf_m+nkI;Q}UQh3t{_{z^M(=*1M-k}9Y*dZ~Ub))2UaDygwfKQ)kd;=L!n!ND zFR<7MXEbo2$dFDz&wsb%a(g+8Egg81RAT@A(Xsqk!h(n(<&a8k(kn=Sb+HL)14en^ z&D;WHOMdfuO_M!Wb{HFxxSHYC=o!zrfaVd=0vy)n zbd9Dr-GZ!-*jjjG)u0gVug7wIqG6meMubJ1k<>NyTYM(*wWq+wrs{+AKt=Q(*p8oW z{!kM?7JH{T&IWOCwBzm{+p9H5bkA{B(I1e+oh$sTh@!O3&pYK1ifBRi_QmfI4sYDn zYdh{AV!6)376cC;zn5Rt4a9EBO@p?UiA+uPg%NS8We=UjnJ&Blwj-pI0lMel$Wq|{#WeaSxi(GjC6 zX%&U9>a7@F=@{zbO%c~iEr;6r6T#oumW3Zi#vK@TH{ zK$|#q)tI(k-J|QAeRy5>NFB`8kaeantS!Vqq1|E`4g&ybB_FZ?WoTimzeht&h8JezxCw-PZcxvrj3A`3fjXN z+Tf$_qd*%r>PhQPf|s!Ce3cb1DU5PDlOSrdEqs;f!?mHA?Bc8acgp?kZwN(92wd+l z-M1?x&kGUW@*rH-revbevTKk2L?D_A;SEC+ln#rvODguKrjCVs+bx70B}HPPt!cfE zv&(mQUYE;Rdj>gp-#uOJA&pBNkQ%I~LIuX#&WwBiXp@c|`Voep+3F5w53vb`t**DU zldNv}p%vsB4bvIB5}Ko;R&ChrrK$YI9$58W5)D$WS?T#WXq|HVxsnxaU-8p13TDvk z8qFTUoACbg(JQr2lSD+jk`2-w9hc2)K&3L0mE!=eG>OMxX~q@8U(kA*yh{>6@yp|K zuloQW#fMga0P1$xBUYaoWS-nWWH8mIpxOH1OPOUs%f5Y&85lxlFr~-31^Fh*ebS~3 zPF~Xv# zk8>z@#n&Esn8%MPcO9jl=`zPK&V4SM&Atg-xQ$4DLqD~0=b0?G`f`|(Y#1+Jq4@Z?-tXuIY@-r$NX@If$5tD(AmSO%$h^j9@h+DqfJ}QMHZ5)dfS>5seH`|d;8Wg_Ooq^ zd2a$BUe!c=LJb)Fo}S7w7B)nl15$7B)~4o?1=j(6Z_fE$x~Kp&SA%ydd)5nMnpx^> zG~~iOc|uR=Aa@BuPaS*G`<}biA33Ge)b01dw^DFzB52BRcwATOGS@?gn@zck4>*85 z)Xn_m$C?Do)Ln09tOz14- zq@GYwgBqw8G7X1^7m%F-^)9Gj!|9lM<7KR9@DKT?$jy()UiO=qCqL0X(Jx*E&dv3ULT#v*hS+6Y+BS+w93nBV$Is%GYwds zZSUCuwk5HY4%{nUFQqxr32@2tUnG}|C+4yZmt5Y~-sy}qm?=vU{RyI7TaFwp(|9xx zKQHKeuqrMwh^h`n8V#w0-b(X#7dPd5Ti^T6clWvS&E~l!gK2F`0h2a#I+l~u_TGPo zsD9gMgo{^NGZ}%ZvR#R~6Y&dmz)eHc_oCVK&?9~w@^TlAS|!vs7A7m34+4li;(xj& z%Qm^(HA@;9U6wE9X0DvIV;N+FReTJ@3{Pb^f}+@Yx4QY>c3);tqUXH%7drVe!>!!E z#++2Yv7FKf{jKJHRf=~lpMHE1H9Ev8U5f3w$)3VzPvV_w%i_JR-oa~;P^W@F#As>p zdLeF!W4^(wK@O_V-}FZxAc?Jlw-%K+b*Z5l9rAwM(rB=sWAbQ|56~(#{E=s-SI50M zPcGS|yC3hUjJBNSVzh1Cm@O}GyMrh=kNFdTxsQC;M;7w#J+3KND-5DOJJ;kMId)6G zEaXm1SWOjSnXi`34DhQ-Y!J?Ve1Te=&!^MT4ayHKfb_6@hu&_x5Qi4D0Hq)b+FLEQJ z?t{HTWX6*58~*Quh9L(ZwOgUy{7$9Eg%!9x>vD7Vtu#;Hw`krTi~Cd^ z{V<$A85Hm-=QbRPm01xTbsJV$&FE!IqvZkBFO_D3m%gP@bG>=~NC$cky!?5*U2Q{S zSlINDsY-$diFS0;xW7?dlU#IIJLA}sn1ez54-Y6+$cI$u??SVt^PO*-@cjKFzpfI^ zn=YQ&(ubh+RElN}CotRe1wMo8kC)>-MvHy3h;ryIz98JXC9{b1yNrx#u;jh~0A?G;#}0spAh&b*Kh;=u#rfL=?^y~?*yR8ZC<}W! zKX_2&GuWX}8f~8TCC2O2lFb$29;*ct_ZG5coNxNBY~?x8886!9)#PZoyx#iYsgH>k zEX+zlRzRL7vOK{IRG7SmgJwHMygE~yM}oZn{L{MYXpKS$1L>XHXyR0kI{3(9M7uL3 z@Y*q9`{gdz{+!CEo_gt!*O%wuqdQGq#x?7dK%Y%6gg7nHi}AS+}-4$!J9p*)j-J5 zZ>MJ&>qk-)LK!^jQF`|&EOgfZl#!b1kvQGZKGiM!1zT$j)3piy^%ZA{vw82=I+h$^ zWOE8z$SFvn#rWT7ElE%{S}HtBf2#~|E403&-G0BT=DFv3u6pYD6V32jzLoy9 zCW9}bNe!(xuAZ)mLYHS6H;?`5o5X#?v!Y&Zd{48jfQmTFJMQogy&vFbY_4Z;1V@`{ zl*&=4pGo8=Z-c|o3UCHAO_Siq&31=XzbcuzMLgzhmNNZh^c2>NTTPO2-II%tcAW+LiDIS>n z^q5w-Cp6p%i?a=Znv?vR55j%zQZ*270UEluH%A{P)$E!#ayxR3Mt2!~(Oa?^Tl&VZyi+U3;gM!-4W%_cCqTBN^g^Rl=Zdysx z-97q$oNbgtv|BH5Q^Nx$TS^90$sDM9LVsn8;A^q7k-*Jl%2_+w(obEi0V#3{e>y%p z)0ozmp1pa?taaBuS`q^h>sIn%0ZeJcA4RUv(ioURcy>Q#`p<2P@b$EkuE?yFJKjpG zV3#<$A>FVv6~j0rpKjCjeSqCU38-!(42QR11Wk2_*;6IuP07KlX`eyF#U8pTr*LXP z=xuhFAA%JvH5?TN*<&pX9|xCl{b11tTMr}64c^YzL290jov}WsZ>ML6#T^lgUedlC z)oP6l#^Od}kC!EaI`xQuZ8Ah}riCJhh-rJ@R2t=oWz7!LEA+I}?@DT@Cdkq-fm()O5Nmb|6_;zg@*Ck6Y+laMJF7L_Lon8OcBIk#6%3S(9 zchX04KbY5WeD!gck^m61nCdM*#_y7Q-NEEXpc^SIdZ!CTgBu;uPevOj2yx46#z zN%O59mJ669dZJAQ!wPz5%L6ph#ER8(_g1Z&!C1Y&^%Au}0ku+3Nza+jB*G2op~FAyNb3L{cAWRa2{Ft*0?3!I!M;EsEc^Ed%*PMVqDFS4U&{2S zTP-zZrg0x^r;O{Nc+Ja+KSsgd=N44?G;^r=1?N>yPYLrjf_;EQQKv*MqkzkqnVDf> zR9k*OVs1`Hwo3YUE*6lZGepM29a<4!cdYlD-{Y77?(xr#ZI^6gwVl;ce8AM0VJ zx-K{*bs9A8BcX756nELRUK7MwfP$8>4C_FQT_075A-s_ zX|#0d(^+9rH{X$NWop0nIvBymsIJ>_OT?Q{%yE*ODERv(`8}UN%lVCTNpscLwgUZI z$d7*|V7dWvuBac6TnS_wa9I?xg#Q?`U(D69}${r}q_;JR^s&cT0h34Da4F_8efcf89_P+iYalq@68t8x}w)&4S(f^U7 z`f5YO+!bI$HXYz^d)VxtBe+&RYGrPi=Bs)<`k1t8We9Q=ACTKYzZ#)YEPs2ChXFB3{0c~Ksc`ilu=;K9J0$pZt-?*jpVRJ z6g8B*>>A9b0i50qdcGnqP4L5P2b3aXVgfALHOl*s!ERQz?jDDcYva`CzwU`Vz5nZ; z$gHp8eEe6j?B9C8fFV=%=E>mTU?SNxWb!oI0L~idLAKV%C~yG`C4_%B%jw~S+1lj+ zwGu$@Y`b}0=0{&#LiM@N92P|jdbenXiZ4G!y|YPy13Wq6@`zBj@yv)pu@r0xefM>j zMTG(M>b;@-izDGypYzUX(A1?6-#ognXf}RDoS)$LHnZhYdDYqW3v{3Gb{G491RhKM zI@k9-;LP*`s{qlB=IaV3ZiwWR)KnJmLP~i6o9GFQw_m?EiqDY*xrpyZ`znLI0BUEc z6o6W(ht9SDQrEzGsd#&P)LAkJZSpF|k1~HQ{H>>0j))SAXkbG$*xxLnIgz+-j{j!h z-TfVbzc30CZ6%XEGWCVieS!nUy zR1-L$lzVW|p=<*MRntCXYo?7ky~N8NST!&E&=Y`W`-pFM=$o6nfe;a0wg$^7!2Rar z6Vi%#-Nj~!lO`G>xc%qrdky^9@fBi?-mdM_=O0ewg#9Cc_&2-1X4e5cJb-Ob9zdrd zTP)%;E)H z#09p&)jezWdI-`-RQ5@f&1cg$`uh4rGGVp~R7OdVHOQwykrB8`5IkwVA3V>#W+$B8 zyW?$+W%ok0)2}%*Z#@4I@cbGlrI{KGDgZ>$h@e~q8;@Loi}p)B6>RvFm<$)ulPjqU zD-Q&TrR9;WVY)Q0tgXbs9(AjI^8?Ar$tAsUm(cxACY#plJK!N zbS;r>XK&LeQ@Em^t-2dAg?yKDu9i&F;>x)V0 z=^(7GRYQ+Uo?oUlTP>wR))s`ASjRZsHC^xq6hCpfHZNWOBcVn?k9EAVP_&KsNtt9q z=d}TeF!Z9>akbwo9fYsoHsfqi2PW}RwD1W@0(QqfM>>NlL^Q4U2n4W$51X>4HT1$^ zlKlH%i*ChBE_Nav6)ow+{!oa#@~oxhS{Rx7u6;MrDRu0?v5%yA9wK8 zNxIJbi-buJSklBhVBryBB#5=E){nq(7aUv+m_Hx758S&O>1ZoXUa|%K5130yIvzMw z`yq3aR6?vxq9lxQ*1E~)mWYto88Usx|F;sOw5O5&_$Bm>CRFB%bzj0*owV7hJA%kP3Un}S>_bjYj*YFiN#Qnxj&4}5 zBj|s>ZRioD1Y}O!P=_Wc4+r(1ifi)myW130YFIz2kld3BrzJt)kjfh$EMyHU{eYlX z80s83-yqujhupP@h=@*$zSCe&vL^KIh!3jGsBI?^zR#>|^6-32>tve=yJe?? z^I_&y8K;v(wF~Pd*KjlFKS`kf`7aCB_W4KP|H{4MZ48atJ#rUB= zw}54kTShz{ zhC^NEz;>hR7xyU1Xpvs!Us;n4a+06|nRUCLlE{F9fCO*Tn(slv4?eL6>F42@*< zYMC63{qS)$kPP~Gx)p&K%x#mj|+xn0YsJW3je0jfVh)AYy5 z<0hnXP2+?yS#Xq$%y||Ua}ZML*}49YZE0zqLct@L!Z!(l=dhtm^BC1{AJ2_?_qMxX zmwvf&cd;uk-BJtsz0A}I#8-kLng6@>L|_$iqd7Zma^IEr!x7=_#ldxBgI&DM$`4gP z{~jhDx+eTa=C%RWu2`Q0mhPK`IRYfnHsbrjyIPQN4)8E*#1*u!garDdc6))%!t&oN zg!D}RFaD@KQebmyUh;(%M|$mLWF{LpVA|jogk*^(7?Ld73mfs6g9n3+YjAbN8cRiX z9LG%qOEy09ACFFV1z)Trs9M2%9nF_dgL@hA{(v+AO`n8EN1C?YpVz{eu5O)*G$cjA z%&I<)pCHD*Xf42n7UPb0yzx4VG4foN#j09)e|`5Zgbmsq=C2|!Tk7&Qte~5Drf$+O zP8zdEs;D@fahtyG7W&e*J#(XjW`F9~FLta}#2d-m_d9s9rn6PSt&VlX#;y04;~u{V z8@)2%5O>CFWhY)dK=0^#y?R-T|8Bisgr>pDNjq`XYSP9V5&N>1ilV1p$sC-{1CDbg z)lW?jIsL#pfYnlx(!9~!yoj-_sAsvP8_LkR~t$b&`Isp-tJ->Ryr=*>6{;eoli| zS6+sZR%P(c=IK|@-}f%-f3c9g^v7+*J}cGdV+4rXrE9BmoS4`%z7<*x?Hb`{(OfN_ zGnR;?rH$>(Rnv4j1+0-iZMc=0baQ9KKIK%^?`n&`A=F;HMH`xMv9?j8nYB4Ss5#J@ zR0i%HtBo<$CV^eD5m?kWsN>sR(86qEm}LY606 zNziQ}TXrbshKymdUY4<=75|o<@2WYZ@(`&7h$|*5m7V5+UK-)QB#55QtPD-4xIb20 zy`;s@ldP%JJ>XASG3yHV%IX#NIHzkaMR6W@x7(FG6Etaeulxl8vU=_It{U&T#SWj1 zpAx#7j`w@1-00GmUitwj*dBgd_1PG>i*Neaa6YBRi1aJkD3oEYM;aVD(o-db-rvgt1m{yPH8MEb(B0u2H1nE3;mb ze*XGV01%QDK=x-yewYy0Mdr%g0QxVM`!>iQ4enU$5;rQXTdr)_)cFm*TrQfHJXYs*X|!o$^LJ~vZs;YA z8<$SZ!pFN`DODp|#?>%m@vtYqt=$@|upnC3_7E}{odaPjIg2qn6OgWGlaiGVc}X4c zE~Gbe6ZqoXrPp=sMDKM2Mq3NmrxrRq5}ZygFd;_ry6HLwzevx_jvETTh2_4f9BN9M zuk)kBHjKHm^z9ddU9m`9D_y6r&sT^=nWsNmx1aGUP z+`Nafo_!_D?#_C0o^8Li54at3fUU@HlKv7)&08l`zW48#ljB=|MZ$D$3NJ%L7HCMO zVU~^ZNoV%`{;D_49vNMo_3zJDIR&7Z>L4>sL1x-!GTm9K_g>=6a|2#ryC@439$AHT zlb-X`)nDfNyf5{`=j_QbfjKS=3wfEm11@AThhd42W&z=9wx{D&eg~%-c9|rH~>gTe~DWM4f D@)XL~ diff --git a/reference/read_stars.html b/reference/read_stars.html index 1c9a3773..d49ace36 100644 --- a/reference/read_stars.html +++ b/reference/read_stars.html @@ -256,7 +256,7 @@

Examples#> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. -#> file61ab592fa6b2.tif 1 30.75 60.5 60.5 90.25 120 +#> file5be73519d78b.tif 1 30.75 60.5 60.5 90.25 120 #> dimension(s): #> from to offset delta x/y #> x 1 10 0 1 [x] @@ -271,7 +271,7 @@

Examples#> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. -#> file61ab592fa6b2.tif 33 36.75 65.5 65.5 94.25 98 +#> file5be73519d78b.tif 33 36.75 65.5 65.5 94.25 98 #> dimension(s): #> from to offset delta x/y #> x 1 2 0 5 [x] diff --git a/search.json b/search.json index 67e7a61c..261fa70b 100644 --- a/search.json +++ b/search.json @@ -1 +1 @@ -[{"path":"/PROPOSAL.html","id":null,"dir":"","previous_headings":"","what":"Scalable, spatiotemporal Tidy Arrays for R","title":"Scalable, spatiotemporal Tidy Arrays for R","text":"Edzer Pebesma, Michael Sumner, Etienne Racine","code":""},{"path":"/PROPOSAL.html","id":"summary","dir":"","previous_headings":"","what":"Summary","title":"Scalable, spatiotemporal Tidy Arrays for R","text":"lot spatiotemporal data takes form dense, multidimensional arrays. Examples population counts region, year age group weather data variable, time step sensor location satellite imagery, e.g. energy spectral band, location (pixel) time collection climate model data, e.g. surface temperature location, time climate scenario. financial data, e.g. share price company time Although data can represented long tables, larger datasets array form beneficial replicate dimension indexes, array form provides faster access implicitly indexed. R’s native arrays number limitations, handle heterogeneous data records (e.g. consisting numeric, logical Date) like typically data.frame’s, can deal -memory data, handle spatial temporal array dimensions. project () implement flexible generic multidimensional array model heterogeneous records (ii) handles strong spatial temporal referencing array indexes, (iii) scales moderately sized - memory data, large -disk data, massive data held remote servers, using unified user interface follows tidy tools manifesto.","code":""},{"path":"/PROPOSAL.html","id":"the-problem","dir":"","previous_headings":"","what":"The Problem","title":"Scalable, spatiotemporal Tidy Arrays for R","text":"handle analyze large amounts spatially referenced time series data R? handle satellite imagery don’t fit local disc R, need small cluster finish computation within acceptable time? can quickly easily develop analysis testing small portion spatiotemporal datasets, deploying massive data set? can use pipe-based workflows dplyr-verbs data sets? can visualy explore high-dimensional raster data? Today, people use R large spatiotemporal data, hit limits related usability, user interface, scalability. r-sig-geo mailing list documents many cases. Now simple features R project largely modernized handling analysis vector data (points, lines, polygons) R tidyverse-friendly fashion, time raster data catch . proposal aims spatiotemporal raster data, well time series feature data.","code":""},{"path":"/PROPOSAL.html","id":"existing-work","dir":"","previous_headings":"The Problem","what":"Existing work","title":"Scalable, spatiotemporal Tidy Arrays for R","text":"Base R supports n-dimensional homogeneous arrays basic types (double, integer, logical, logical), -memory. Package ff supports --memory data structures, held local disc, spatial temporal references dimensions. Spatial packages include rgdal, lets read write raster data, possibly piece--piece, one 142 different file formats. Package raster allows users work raster maps stacks , stack can either refer different bands (color) different time steps, . Package raster can iterate functions large files disc, takes care caching, using either rgdal ncdf4. Another package reading writing NetCDF RNetCDF. Packages dedicated single data source type include include RStoolbox, MODIS, landsat, hsdar; relies raster rgdal file-based /O. CRAN package spacetime provides heterogeneous records, using data.frame attributes. keeps indexes record spatial geometry (grid cell/point/polygon) time instance period; keeps data memory builds xts temporal, sp spatial reference. support R Consortium, Distributed Computing Working Group started develop API distributed computing; initial version available package ddR. aims generic R data structures, works towards relieving users worrying data distributed. Relevant work outside R includes GDAL, particular gdal virtual tiles building arbitrary large grid data sets many individual files, SciDB, open source array database spatial temporal capabilities, strongly scalable architecture, extremely flexible array manipulation methods SciDB4geo, SciDB Plugin Managing Spatial Temporal Reference Information Arrays, SciDB4gdal, GDAL driver SciDB arrays, two activities make SciDB databases aware space time PostGIS Raster, raster data extension PostGIS Rasdaman, array database dedicate images, partially open source. Since definite trend downloading Earth observation data longer feasible, work towards solutions data accessed web service interface. Cloud services AWS starting give access large remote sensing imagery archives e.g. Landsat, MODIS Sentinel satellites.","code":""},{"path":"/PROPOSAL.html","id":"the-plan","dir":"","previous_headings":"","what":"The Plan:","title":"Scalable, spatiotemporal Tidy Arrays for R","text":"develop R package container infrastructure supports dense, n-dimensional arrays heterogeneous records, supports flexible reference array dimensions space, space can gridded (2D/3D raster) set simple features (1D, irregular) supports flexible reference array dimensions time (POSIXct, Date) supports regular arrays (fixed cell size / time step) well irregular arrays allows working memory, local disc, remote computer (using web service interface), allows R functions passed web service back-end, executed parallel, uses -memory proxies large arrays, allowing work first n records computations carried full arrays (similar dplyr ) allows pipe-based workflows, using data.frames, dplyr-style verbs. document software provide tutorials reproducible data analysis examples using locally downloaded imagery, well scalable examples accessing larger (> 1 Tb) datasets using docker container images. document RESTful API connects R client web service holding (processing) big Earth observation data. also develop discuss migration path raster package (43K lines R, C C++ code), functionality, new infrastructure. publish resulting products open access form, R journal, also journal (conference) directed Earth observation community. Timeline: Month 1-2: work design, decide web service technology, basic web service API design Month 3-6: programming R package, testing smaller data sets Month 7-8: testing larger datasets, develop test cases, deploy docker containers Month 9-12: write tutorials, develop teaching material reproducible examples Month 9-12: experiment different back-ends: file-based, database SciDB Failure modes: can’t get RESTful API work properly; solution path: ask rOpenSci community help (Scott Chamberlain, Jeroen Ooms) downloading large image sets cumbersome (slow) larger tutorial examples; solution path: deploy test server teaching/experimenting purposes Amazon cloud, Landsat Sentinel imagery readily available","code":""},{"path":"/PROPOSAL.html","id":"how-can-the-isc-help","dir":"","previous_headings":"","what":"How Can The ISC Help:","title":"Scalable, spatiotemporal Tidy Arrays for R","text":"use funding develop R package web service API. Total costs 10,000 USD, breaks : workshop: travel costs Etienne Racine Michael Sumner visit Muenster, another venue can meet (USD 2500). Programming, project communication: (USD 7000). Cloud deployment Amazon cloud (USD 500).","code":""},{"path":"/PROPOSAL.html","id":"dissemination","dir":"","previous_headings":"","what":"Dissemination:","title":"Scalable, spatiotemporal Tidy Arrays for R","text":"regularly post blogs project r-spatial.org, use twitter, post r-sig-geo, stackoverflow, communicate github issues gitter discussion. project live GitHub, r-spatial organisation. work permissive open source license, probably LGPL-2.1. Pull requests encouraged. R consortium blogs provided start end. Publications R Journal scientific outlets foreseen.","code":""},{"path":"/articles/stars1.html","id":"reading-a-satellite-image","dir":"Articles","previous_headings":"","what":"Reading a satellite image","title":"1. introduction","text":"can read satellite image GDAL, e.g. GeoTIFF file package: see image geographically referenced (coordinate values along axes), object returned (x) three dimensions called x, y band, one attribute: dimension name; meaning fields single dimension : means index (starting \\(=1\\)) along certain dimension, corresponding dimension value (coordinate, time) \\(\\mbox{offset} + (-1) \\times \\mbox{delta}\\). value refers start (edge) cell interval; order get interval middle cell centre, one needs add half offset. Dimension band simple sequence 1 6. Since bands refer colors, one put wavelength values values field. particular dataset (raster datasets), see delta dimension y negative: means consecutive array values decreasing \\(y\\) values: cell indexes increase top bottom, direction opposite \\(y\\) axis. read_stars reads bands raster dataset, optionally subset raster datasets, single stars array structure. , raster values (often UINT8 UINT16) converted double (numeric) values, scaled back original values needed file encodes scaling parameters. data structure stars generalisation tbl_cube found cubelyr; can convert cause loss certain properties (cell size, reference system, vector geometries)","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) plot(x, axes = TRUE) x ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 1 54 69 68.91242 86 255 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 6 NA NA NA NA library(cubelyr) as.tbl_cube(x) ## Source: local array [737,088 x 3] ## D: x [dbl, 349] ## D: y [dbl, 352] ## D: band [int, 6] ## M: L7_ETMs.tif [dbl[,352,6]]"},{"path":"/articles/stars1.html","id":"switching-attributes-to-dimensions-and-back","dir":"Articles","previous_headings":"Reading a satellite image","what":"Switching attributes to dimensions and back","title":"1. introduction","text":"see newly created dimension lost name, single attribute got default name. can set attribute names setNames, dimension names values st_set_dimensions:","code":"(x.spl = split(x, \"band\")) ## stars object with 2 dimensions and 6 attributes ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## X1 47 67 78 79.14772 89 255 ## X2 32 55 66 67.57465 79 255 ## X3 21 49 63 64.35886 77 255 ## X4 9 52 63 59.23541 75 255 ## X5 1 63 89 83.18266 112 255 ## X6 1 32 60 59.97521 88 255 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] merge(x.spl) ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## X1.X2.X3.X4.X5.X6 1 54 69 68.91242 86 255 ## dimension(s): ## from to offset delta refsys point values ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL ## attributes 1 6 NA NA NA NA X1,...,X6 ## x/y ## x [x] ## y [y] ## attributes merge(x.spl) |> setNames(names(x)) |> st_set_dimensions(3, values = paste0(\"band\", 1:6)) |> st_set_dimensions(names = c(\"x\", \"y\", \"band\")) ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 1 54 69 68.91242 86 255 ## dimension(s): ## from to offset delta refsys point values ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL ## band 1 6 NA NA NA NA band1,...,band6 ## x/y ## x [x] ## y [y] ## band"},{"path":"/articles/stars1.html","id":"subsetting","dir":"Articles","previous_headings":"Reading a satellite image","what":"Subsetting","title":"1. introduction","text":"Besides tidyverse subsetting selection operators explained vignette, can also use [ [[. Since stars objects list arrays metadata table describing dimensions, list extraction (assignment) works expected: level, can work array objects directly. stars subset operator [ works bit different: first argument selects attributes second argument selects first dimension third argument selects second dimension, etc Thus, selects second attribute, first 10 columns (x-coordinate), rows, bands 2-4. Alternatively, [ given single argument class sf, sfc bbox, [ work crop operator:","code":"class(x[[1]]) ## [1] \"array\" dim(x[[1]]) ## x y band ## 349 352 6 x$two = 2 * x[[1]] x ## stars object with 3 dimensions and 2 attributes ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 1 54 69 68.91242 86 255 ## two 2 108 138 137.82484 172 510 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 6 NA NA NA NA x[\"two\", 1:10, , 2:4] ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## two 36 100 116 119.7326 136 470 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 10 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 2 4 NA NA NA NA circle = st_sfc(st_buffer(st_point(c(293749.5, 9115745)), 400), crs = st_crs(x)) plot(x[circle][, , , 1], reset = FALSE) plot(circle, col = NA, border = 'red', add = TRUE, lwd = 2)"},{"path":"/articles/stars1.html","id":"overviews","dir":"Articles","previous_headings":"Reading a satellite image","what":"Overviews","title":"1. introduction","text":"can read rasters lower resolution contain -called overviews. GeoTIFF file, created gdaladdo utility, particular adds coarse resolution versions using average resampling method compute values based blocks pixels. can read ","code":"gdaladdo -r average L7_ETMs.tif 2 4 8 16 x1 = read_stars(tif, options = c(\"OVERVIEW_LEVEL=1\")) x2 = read_stars(tif, options = c(\"OVERVIEW_LEVEL=2\")) x3 = read_stars(tif, options = c(\"OVERVIEW_LEVEL=3\")) dim(x1) ## x y band ## 88 88 6 dim(x2) ## x y band ## 44 44 6 dim(x3) ## x y band ## 22 22 6 par(mfrow = c(1, 3), mar = rep(0.2, 4)) image(x1[,,,1]) image(x2[,,,1]) image(x3[,,,1])"},{"path":"/articles/stars1.html","id":"reading-a-raster-time-series-netcdf","dir":"Articles","previous_headings":"","what":"Reading a raster time series: NetCDF","title":"1. introduction","text":"Another example read raster time series model outputs NetCDF file, e.g. see dataset can see variables units associated (wrong unit, C assigned temperature) time now dimension, proper units time steps Alternatively, dataset can read using read_ncdf, difference read_ncdf read_stars NetCDF files former uses package RNetCDF directly read NetCDF file, latter uses GDAL driver NetCDF files.","code":"system.file(\"nc/bcsd_obs_1999.nc\", package = \"stars\") |> read_stars() -> w ## pr, tas, w ## stars object with 3 dimensions and 2 attributes ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's ## pr [mm/m] 0.5900000 56.139999 81.88000 101.26433 121.07250 848.54999 7116 ## tas [C] -0.4209678 8.898887 15.65763 15.48932 21.77979 29.38581 7116 ## dimension(s): ## from to offset delta refsys values x/y ## x 1 81 -85 0.125 NA NULL [x] ## y 1 33 37.12 -0.125 NA NULL [y] ## time 1 12 NA NA POSIXct 1999-01-31,...,1999-12-31 system.file(\"nc/bcsd_obs_1999.nc\", package = \"stars\") |> read_ncdf() ## no 'var' specified, using pr, tas ## other available variables: ## latitude, longitude, time ## Will return stars object with 32076 cells. ## No projection information found in nc file. ## Coordinate variable units found to be degrees, ## assuming WGS84 Lat/Lon. ## stars object with 3 dimensions and 2 attributes ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's ## pr [mm/m] 0.5900000 56.139999 81.88000 101.26433 121.07250 848.54999 7116 ## tas [C] -0.4209678 8.898887 15.65763 15.48932 21.77979 29.38581 7116 ## dimension(s): ## from to offset delta refsys values x/y ## longitude 1 81 -85 0.125 WGS 84 NULL [x] ## latitude 1 33 33 0.125 WGS 84 NULL [y] ## time 1 12 NA NA POSIXct 1999-01-31,...,1999-12-31"},{"path":"/articles/stars1.html","id":"reading-datasets-from-multiple-files","dir":"Articles","previous_headings":"Reading a raster time series: NetCDF","what":"Reading datasets from multiple files","title":"1. introduction","text":"Model data often spread across many files. example 0.25 degree grid, global daily sea surface temperature product found ; subset 1981 used downloaded NOAA ftp site longer available form. (ftp site used eclipse.ncdc.noaa.gov/pub/OI-daily-v2/NetCDF/1981/AVHRR/). read data giving read_stars vector character names: Next, select sea surface temperature (sst), drop singular zlev (depth) dimension using adrop: can now graph sea surface temperature (SST) using ggplot, needs data long table form, without units:","code":"x = c( \"avhrr-only-v2.19810901.nc\", \"avhrr-only-v2.19810902.nc\", \"avhrr-only-v2.19810903.nc\", \"avhrr-only-v2.19810904.nc\", \"avhrr-only-v2.19810905.nc\", \"avhrr-only-v2.19810906.nc\", \"avhrr-only-v2.19810907.nc\", \"avhrr-only-v2.19810908.nc\", \"avhrr-only-v2.19810909.nc\" ) # see the second vignette: # install.packages(\"starsdata\", repos = \"http://pebesma.staff.ifgi.de\", type = \"source\") file_list = system.file(paste0(\"netcdf/\", x), package = \"starsdata\") (y = read_stars(file_list, quiet = TRUE)) ## stars object with 4 dimensions and 4 attributes ## attribute(s), summary of first 1e+05 cells: ## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's ## sst [°*C] -1.80 -1.19 -1.05 -0.3201670 -0.20 9.36 13360 ## anom [°*C] -4.69 -0.06 0.52 0.2299385 0.71 3.70 13360 ## err [°*C] 0.11 0.30 0.30 0.2949421 0.30 0.48 13360 ## ice [percent] 0.01 0.73 0.83 0.7657695 0.87 1.00 27377 ## dimension(s): ## from to offset delta refsys x/y ## x 1 1440 0 0.25 NA [x] ## y 1 720 90 -0.25 NA [y] ## zlev 1 1 0 [m] NA NA ## time 1 9 1981-09-01 UTC 1 days POSIXct library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(abind) z <- y |> select(sst) |> adrop() # convert POSIXct time to character, to please ggplot's facet_wrap() z1 = st_set_dimensions(z, 3, values = as.character(st_get_dimension_values(z, 3))) library(ggplot2) library(viridis) ## Loading required package: viridisLite library(ggthemes) ggplot() + geom_stars(data = z1[1], alpha = 0.8, downsample = c(10, 10, 1)) + facet_wrap(\"time\") + scale_fill_viridis() + coord_equal() + theme_map() + theme(legend.position = \"bottom\") + theme(legend.key.width = unit(2, \"cm\"))"},{"path":"/articles/stars1.html","id":"writing-stars-objects-to-disk","dir":"Articles","previous_headings":"","what":"Writing stars objects to disk","title":"1. introduction","text":"can write stars object disk using write_stars; used GDAL write engine. Writing NetCDF files without going GDAL interface currently supported. write_stars currently writes single attribute: See explanation merge see multiple attributes can merged (folded) dimension.","code":"write_stars(adrop(y[1]), \"sst.tif\")"},{"path":"/articles/stars1.html","id":"cropping-a-rasters-extent","dir":"Articles","previous_headings":"","what":"Cropping a raster’s extent","title":"1. introduction","text":"Using curvilinear grid, taken example read_ncdf: can now crop grid cells falling selection prec_slice[nc] essentially calls st_crop(prec_slice, nc) get cropped selection. happened cells intersecting North Carolina (sea) set NA values. regular grids, extent resulting stars object also reduced (cropped) default; can controlled crop parameter st_crop [.stars.","code":"prec_file = system.file(\"nc/test_stageiv_xyt.nc\", package = \"stars\") prec = read_ncdf(prec_file, curvilinear = c(\"lon\", \"lat\")) ## no 'var' specified, using Total_precipitation_surface_1_Hour_Accumulation ## other available variables: ## lat, lon, time ## Will return stars object with 236118 cells. ## No projection information found in nc file. ## Coordinate variable units found to be degrees, ## assuming WGS84 Lat/Lon. ##plot(prec) ## gives error about unique breaks ## remove NAs, zeros, and give a large number ## of breaks (used for validating in detail) qu_0_omit = function(x, ..., n = 22) { if (inherits(x, \"units\")) x = units::drop_units(na.omit(x)) c(0, quantile(x[x > 0], seq(0, 1, length.out = n))) } library(dplyr) # loads slice generic prec_slice = slice(prec, index = 17, along = \"time\") plot(prec_slice, border = NA, breaks = qu_0_omit(prec_slice[[1]]), reset = FALSE) nc = sf::read_sf(system.file(\"gpkg/nc.gpkg\", package = \"sf\"), \"nc.gpkg\") plot(st_geometry(nc), add = TRUE, reset = FALSE, col = NA, border = 'red') nc = st_transform(nc, st_crs(prec_slice)) # datum transformation plot(prec_slice[nc], border = NA, breaks = qu_0_omit(prec_slice[[1]]), reset = FALSE) plot(st_geometry(nc), add = TRUE, reset = FALSE, col = NA, border = 'red')"},{"path":"/articles/stars1.html","id":"vector-data-cube-example","dir":"Articles","previous_headings":"","what":"Vector data cube example","title":"1. introduction","text":"Like tbl_cube, stars arrays limits number dimensions handle. example origin-destination (OD) matrix, time travel mode.","code":""},{"path":"/articles/stars1.html","id":"od-space-x-space-x-travel-mode-x-time-x-time","dir":"Articles","previous_headings":"Vector data cube example","what":"OD: space x space x travel mode x time x time","title":"1. introduction","text":"create 5-dimensional matrix traffic regions, day, time day, travel mode. day time day dimension advantage want compute patterns day, certain period. array contains simple feature geometries origin destination can directly plot every slice without additional table joins. want represent array tbl_cube, simple feature geometry dimensions need replaced indexes: following demonstrates can use dplyr filter travel mode bike, compute mean bike traffic hour day:","code":"nc = st_read(system.file(\"gpkg/nc.gpkg\", package=\"sf\")) ## Reading layer `nc.gpkg' from data source ## `/home/runner/work/_temp/Library/sf/gpkg/nc.gpkg' using driver `GPKG' ## Simple feature collection with 100 features and 14 fields ## Geometry type: MULTIPOLYGON ## Dimension: XY ## Bounding box: xmin: -84.32385 ymin: 33.88199 xmax: -75.45698 ymax: 36.58965 ## Geodetic CRS: NAD27 to = from = st_geometry(nc) # 100 polygons: O and D regions mode = c(\"car\", \"bike\", \"foot\") # travel mode day = 1:100 # arbitrary library(units) ## udunits database from /usr/share/xml/udunits/udunits2.xml units(day) = as_units(\"days since 2015-01-01\") hour = set_units(0:23, h) # hour of day dims = st_dimensions(origin = from, destination = to, mode = mode, day = day, hour = hour) (n = dim(dims)) ## origin destination mode day hour ## 100 100 3 100 24 traffic = array(rpois(prod(n), 10), dim = n) # simulated traffic counts (st = st_as_stars(list(traffic = traffic), dimensions = dims)) ## stars object with 5 dimensions and 1 attribute ## attribute(s), summary of first 1e+05 cells: ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## traffic 0 8 10 9.98628 12 26 ## dimension(s): ## from to offset delta ## origin 1 100 NA NA ## destination 1 100 NA NA ## mode 1 3 NA NA ## day 1 100 1 [(days since 2015-01-01)] 1 [(days since 2015-01-01)] ## hour 1 24 0 [h] 1 [h] ## refsys point ## origin NAD27 FALSE ## destination NAD27 FALSE ## mode NA FALSE ## day udunits FALSE ## hour udunits FALSE ## values ## origin MULTIPOLYGON (((-81.47276...,...,MULTIPOLYGON (((-78.65572... ## destination MULTIPOLYGON (((-81.47276...,...,MULTIPOLYGON (((-78.65572... ## mode car , bike, foot ## day NULL ## hour NULL st |> as.tbl_cube() ## Source: local array [72,000,000 x 5] ## D: origin [int, 100] ## D: destination [int, 100] ## D: mode [chr, 3] ## D: day [[(days since 2015-01-01)], 100] ## D: hour [[h], 24] ## M: traffic [int[,100,3,100,24]] b <- st |> as.tbl_cube() |> filter(mode == \"bike\") |> group_by(hour) |> summarise(traffic = mean(traffic)) |> as.data.frame() require(ggforce) # for plotting a units variable ## Loading required package: ggforce ggplot() + geom_line(data = b, aes(x = hour, y = traffic))"},{"path":"/articles/stars1.html","id":"extracting-at-point-locations-aggregating-over-polygons","dir":"Articles","previous_headings":"","what":"Extracting at point locations, aggregating over polygons","title":"1. introduction","text":"Data cube values point location can extracted st_extract, example found vignette 7 Aggregates, mean, maximum modal values can obtained aggregate. example use categorical raster, try find modal (frequent) class within two circular polygons: find modal value, need function gives back label corresponding class frequent, using table: can call aggregate raster map, set two circular polygons pol1 pol2, pass function f:","code":"s = system.file(\"tif/lc.tif\", package = \"stars\") r = read_stars(s, proxy = FALSE) |> droplevels() st_point(c(3190631, 3125)) |> st_sfc(crs = st_crs(r)) |> st_buffer(25000) -> pol1 st_point(c(3233847, 21027)) |> st_sfc(crs = st_crs(r)) |> st_buffer(10000) -> pol2 if (isTRUE(dev.capabilities()$rasterImage == \"yes\")) { plot(r, key.width = lcm(4), reset = FALSE, key.pos = 4) plot(c(pol1, pol2), col = NA, border = c('yellow', 'green'), lwd = 2, add = TRUE) } f = function(x) { tb = table(x); names(tb)[which.max(tb)] } aggregate(r, c(pol1, pol2), f) |> st_as_sf() ## Simple feature collection with 2 features and 1 field ## Geometry type: POLYGON ## Dimension: XY ## Bounding box: xmin: 3165631 ymin: -21875 xmax: 3243847 ymax: 31027 ## Projected CRS: Albers Conical Equal Area ## lc.tif geometry ## 1 Evergreen Forest POLYGON ((3215631 3125, 321... ## 2 Developed, Medium Intensity POLYGON ((3243847 21027, 32..."},{"path":"/articles/stars2.html","id":"preamble-the-starsdata-package","dir":"Articles","previous_headings":"","what":"Preamble: the starsdata package","title":"2. stars proxy objects","text":"run examples vignette, must install package datasets large (1 Gb) held stars package. drat repo, installation done ","code":"install.packages(\"starsdata\", repos = \"http://gis-bigdata.uni-muenster.de/pebesma\", type = \"source\") # possibly after: options(timeout = 100) # or from an alternative repository: # install.packages(\"starsdata\", repos = \"http://pebesma.staff.ifgi.de\", type = \"source\")"},{"path":"/articles/stars2.html","id":"reading-chunks-change-resolution-select-bands","dir":"Articles","previous_headings":"","what":"Reading chunks, change resolution, select bands","title":"2. stars proxy objects","text":"read_stars argument called RasterIO controls GDAL dataset read. default, pixels bands read memory. can consume lot time require lot memory. Remember file may compressed, pixel values represented file bytes converted 8-byte doubles R. reason using RasterIO parameters use directly mapped GDAL RasterIO function used (adapting 1-based offset index R 0-based offset C++).","code":""},{"path":"/articles/stars2.html","id":"reading-a-particular-chunk","dir":"Articles","previous_headings":"Reading chunks, change resolution, select bands","what":"Reading a particular chunk","title":"2. stars proxy objects","text":"example using RasterIO Compare see delta values remain , offset (x/y coordinates origin) grid remain reflect new area, relate new delta values dim(x) reflects new size, three bands read","code":"library(stars) ## Loading required package: abind ## Loading required package: sf ## Linking to GEOS 3.10.2, GDAL 3.4.1, PROJ 8.2.1; sf_use_s2() is TRUE tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") rasterio = list(nXOff = 6, nYOff = 6, nXSize = 100, nYSize = 100, bands = c(1, 3, 4)) (x = read_stars(tif, RasterIO = rasterio)) ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 23 54 63 62.05977 73.25 235 ## dimension(s): ## from to offset delta refsys point x/y ## x 6 105 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 6 105 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 3 NA NA NA NA dim(x) ## x y band ## 100 100 3 st_dimensions(read_stars(tif)) ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 6 NA NA NA NA"},{"path":"/articles/stars2.html","id":"reading-at-a-different-resolution","dir":"Articles","previous_headings":"Reading chunks, change resolution, select bands","what":"Reading at a different resolution","title":"2. stars proxy objects","text":"Reading datasets lower (also higher!) resolution can done setting nBufXSize nBufYSize see addition: delta (raster cell size) values increased factor 5, nBufXSize nBufYSize set values factor 5 smaller nXSize nYSize offset coordinates grid still reflect new area, relate new delta cell size values can also read higher resolution; read 3 x 3 area blow 100 x 100: reason “see” three grid cells default sampling method “nearest neighbour”. can modify following methods allowed parameter resample: methods implemented GDAL; methods exactly , refer GDAL documentation source code.","code":"rasterio = list(nXOff = 6, nYOff = 6, nXSize = 100, nYSize = 100, nBufXSize = 20, nBufYSize = 20, bands = c(1, 3, 4)) (x = read_stars(tif, RasterIO = rasterio)) ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 27 53 63 62.09417 74 151 ## dimension(s): ## from to offset delta refsys point x/y ## x 2 21 288776 142.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 2 21 9120761 -142.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 3 NA NA NA NA rasterio = list(nXOff = 6, nYOff = 6, nXSize = 3, nYSize = 3, nBufXSize = 100, nBufYSize = 100, bands = 1) x = read_stars(tif, RasterIO = rasterio) dim(x) ## x y ## 100 100 plot(x) rasterio = list(nXOff = 6, nYOff = 6, nXSize = 3, nYSize = 3, nBufXSize = 100, nBufYSize = 100, bands = 1, resample = \"cubic_spline\") x = read_stars(tif, RasterIO = rasterio) dim(x) ## x y ## 100 100 plot(x)"},{"path":"/articles/stars2.html","id":"stars-proxy-objects","dir":"Articles","previous_headings":"","what":"Stars proxy objects","title":"2. stars proxy objects","text":"Stars proxy objects take another approach: upon creation contain data , pointers data can read. Data read needed, much needed: plot proxy objects, data read resolution pixels screen, rather native resolution, e.g. 10000 x 10000 Sentinel 2 (level 1C) image, can open happens instantly, data read. plot object, takes around 1 second, since pixels read can seen plot. read entire image memory first, reading take minute, require 5 Gb memory.","code":"granule = system.file(\"sentinel/S2A_MSIL1C_20180220T105051_N0206_R051_T32ULE_20180221T134037.zip\", package = \"starsdata\") s2 = paste0(\"SENTINEL2_L1C:/vsizip/\", granule, \"/S2A_MSIL1C_20180220T105051_N0206_R051_T32ULE_20180221T134037.SAFE/MTD_MSIL1C.xml:10m:EPSG_32632\") (p = read_stars(s2, proxy = TRUE)) ## stars_proxy object with 1 attribute in 1 file(s): ## $EPSG_32632 ## [1] \"[...]/MTD_MSIL1C.xml:10m:EPSG_32632\" ## ## dimension(s): ## from to offset delta refsys values x/y ## x 1 10980 3e+05 10 WGS 84 / UTM zone 32N NULL [x] ## y 1 10980 6e+06 -10 WGS 84 / UTM zone 32N NULL [y] ## band 1 4 NA NA NA B4,...,B8 system.time(plot(p)) ## downsample set to 18 ## user system elapsed ## 1.295 0.221 1.160 p = read_stars(s2, proxy = FALSE)"},{"path":"/articles/stars2.html","id":"methods-for-stars-proxy-objects","dir":"Articles","previous_headings":"Stars proxy objects","what":"Methods for stars proxy objects","title":"2. stars proxy objects","text":"","code":"methods(class = \"stars_proxy\") ## [1] [ [[<- [<- adrop ## [5] aggregate aperm as.data.frame c ## [9] coerce dim droplevels filter ## [13] hist initialize is.na Math ## [17] merge Ops plot predict ## [21] print show slotsFromS3 split ## [25] st_apply st_as_sf st_as_stars st_crop ## [29] st_dimensions<- st_downsample st_mosaic st_normalize ## [33] st_redimension st_sample st_set_bbox write_stars ## see '?methods' for accessing help and source code"},{"path":"/articles/stars2.html","id":"select-attributes","dir":"Articles","previous_headings":"Stars proxy objects","what":"Select attributes","title":"2. stars proxy objects","text":"can select attributes regular stars objects, using first argument [: Note selection limits reading 4 1 subdataset 9 NetCDF files.","code":"x = c(\"avhrr-only-v2.19810901.nc\", \"avhrr-only-v2.19810902.nc\", \"avhrr-only-v2.19810903.nc\", \"avhrr-only-v2.19810904.nc\", \"avhrr-only-v2.19810905.nc\", \"avhrr-only-v2.19810906.nc\", \"avhrr-only-v2.19810907.nc\", \"avhrr-only-v2.19810908.nc\", \"avhrr-only-v2.19810909.nc\") file_list = system.file(paste0(\"netcdf/\", x), package = \"starsdata\") y = read_stars(file_list, quiet = TRUE, proxy = TRUE) names(y) ## [1] \"sst\" \"anom\" \"err\" \"ice\" y[\"sst\"] ## stars_proxy object with 1 attribute in 9 file(s): ## $sst ## [1] \"[...]/avhrr-only-v2.19810901.nc:sst\" \"[...]/avhrr-only-v2.19810902.nc:sst\" ## [3] \"[...]/avhrr-only-v2.19810903.nc:sst\" \"[...]/avhrr-only-v2.19810904.nc:sst\" ## [5] \"[...]/avhrr-only-v2.19810905.nc:sst\" \"[...]/avhrr-only-v2.19810906.nc:sst\" ## [7] \"[...]/avhrr-only-v2.19810907.nc:sst\" \"[...]/avhrr-only-v2.19810908.nc:sst\" ## [9] \"[...]/avhrr-only-v2.19810909.nc:sst\" ## ## dimension(s): ## from to offset delta refsys x/y ## x 1 1440 0 0.25 NA [x] ## y 1 720 90 -0.25 NA [y] ## zlev 1 1 0 [m] NA NA ## time 1 9 1981-09-01 UTC 1 days POSIXct"},{"path":"/articles/stars2.html","id":"select-an-area","dir":"Articles","previous_headings":"Stars proxy objects","what":"Select an area","title":"2. stars proxy objects","text":"Another possibility crop, select rectangular region based spatial object. can done passing bbox object, sf, sfc stars object bounding box taken. example:","code":"bb = st_bbox(c(xmin = 10.125, ymin = 0.125, xmax = 70.125, ymax = 70.125)) ysub = y[bb] st_dimensions(ysub) ## from to offset delta refsys x/y ## x 41 281 0 0.25 NA [x] ## y 80 360 90 -0.25 NA [y] ## zlev 1 1 0 [m] NA NA ## time 1 9 1981-09-01 UTC 1 days POSIXct class(ysub) # still no data here!! ## [1] \"stars_proxy\" \"stars\" plot(ysub, reset = FALSE) # plot reads the data, at resolution that is relevant plot(st_as_sfc(bb), add = TRUE, lwd = .5, border = 'red')"},{"path":"/articles/stars2.html","id":"lazy-evaluation-changing-evaluation-order","dir":"Articles","previous_headings":"Stars proxy objects","what":"Lazy evaluation, changing evaluation order","title":"2. stars proxy objects","text":"actions can carried stars_proxy objects, effect delayed data actually needed (plot, write_stars). instance, range selections dimensions shown first need data, can carried . functions added object, attribute called call_list: allows optimizing order operations done. example, st_apply, reading can done sequentially dimensions function applied: example function applied band (: compute band quantiles), bands can read sequentially, discarded quantiles computed. time series function applied pixel time series result plotted map, time series function evaluated pixels actually plotted. means e.g. order evaluation reversed: plot knows pixels going shown, controls x downsampled st_apply carried subset.","code":"yy = adrop(y) yyy = yy[,1:10,1:10,] class(yyy) # still no data ## [1] \"stars_proxy\" \"stars\" st_dimensions(yyy) # and dimensions not adjusted ## from to offset delta refsys x/y ## x 1 1440 0 0.25 NA [x] ## y 1 720 90 -0.25 NA [y] ## zlev 1 1 0 [m] NA NA ## time 1 9 1981-09-01 UTC 1 days POSIXct attr(yyy, \"call_list\") # the name of object in the call (y) is replaced with x: ## [[1]] ## adrop(x = x, drop = drop) ## attr(,\".Environment\") ## ## ## [[2]] ## x[i = i, 1:10, 1:10, , drop = drop, crop = crop] ## attr(,\".Environment\") ## plot(st_apply(x, c(\"x\", \"y\"), range))"},{"path":"/articles/stars2.html","id":"fetching-the-data","dir":"Articles","previous_headings":"Stars proxy objects > Lazy evaluation, changing evaluation order","what":"Fetching the data","title":"2. stars proxy objects","text":"Fetching data now involves reading whole array evaluating call_list , sequentially:","code":"(x = st_as_stars(yyy)) # read, adrop, subset ## stars object with 3 dimensions and 4 attributes ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## sst [°*C] -1.28 -1.17 -1.11 -1.1163555 -1.06 -0.95 ## anom [°*C] 0.48 0.62 0.69 0.6649555 0.72 0.77 ## err [°*C] 0.30 0.30 0.30 0.3000000 0.30 0.30 ## ice [percent] 0.76 0.79 0.81 0.8062889 0.82 0.85 ## dimension(s): ## from to offset delta refsys x/y ## x 1 10 0 0.25 NA [x] ## y 1 10 90 -0.25 NA [y] ## time 1 9 1981-09-01 UTC 1 days POSIXct"},{"path":"/articles/stars2.html","id":"plotting-with-changed-evaluation-order","dir":"Articles","previous_headings":"Stars proxy objects > Lazy evaluation, changing evaluation order","what":"Plotting with changed evaluation order","title":"2. stars proxy objects","text":"Sentinel 2 data, band 4 represents NIR band 1 red, can compute NDVI ","code":"# S2 10m: band 4: near infrared, band 1: red. #ndvi = function(x) (x[4] - x[1])/(x[4] + x[1]) ndvi = function(x1, x2, x3, x4) (x4 - x1)/(x4 + x1) rm(x) (s2.ndvi = st_apply(p, c(\"x\", \"y\"), ndvi)) ## stars_proxy object with 1 attribute in 1 file(s): ## $EPSG_32632 ## [1] \"[...]/MTD_MSIL1C.xml:10m:EPSG_32632\" ## ## dimension(s): ## from to offset delta refsys values x/y ## x 1 10980 3e+05 10 WGS 84 / UTM zone 32N NULL [x] ## y 1 10980 6e+06 -10 WGS 84 / UTM zone 32N NULL [y] ## band 1 4 NA NA NA B4,...,B8 ## call_list: ## [[1]] ## st_apply(X = X, MARGIN = MARGIN, FUN = FUN, CLUSTER = CLUSTER, ## PROGRESS = PROGRESS, FUTURE = FUTURE, rename = rename, .fname = .fname) ## attr(,\".Environment\") ## ## ## This object has pending lazy operations: dimensions as printed may not reflect this. system.time(plot(s2.ndvi)) # read - compute ndvi - plot ## downsample set to 18 ## user system elapsed ## 0.829 0.192 0.655"},{"path":"/articles/stars2.html","id":"multi-resolution-proxy-objects","dir":"Articles","previous_headings":"","what":"Multi-resolution proxy objects","title":"2. stars proxy objects","text":"sections shows examples stars_proxy objects deal situation different maps dissimilar resolution. assumptions : maps need origin coordinates (typically upper-left corner) CRS. first map determines “working” resolution, e.g. native downsampled resolutions refer ’ll create four maps cells size 1, 2 3: created three rasters identical cell values dimensions, different cell sizes, hence extents. bind single proxy object, see multi-resolution mentioned printed summary. converting stars object, secondary rasters resampled cellsize + extent first: sub-range, defined object resolutions, get: now create four maps, region ([0,4] x [0,4]), different resolutions (cell size 1, 1/2 1/3): Finally, example first raster higher resolution:","code":"s1 = st_as_stars(matrix(1:16, 4)) s2 = st_as_stars(matrix(1:16, 4)) s3 = st_as_stars(matrix(1:16, 4)) attr(s1, \"dimensions\")$X1$offset = 0 attr(s1, \"dimensions\")$X2$offset = 4 attr(s2, \"dimensions\")$X1$offset = 0 attr(s2, \"dimensions\")$X2$offset = 4 attr(s3, \"dimensions\")$X1$offset = 0 attr(s3, \"dimensions\")$X2$offset = 4 attr(s1, \"dimensions\")$X1$delta = 1 attr(s1, \"dimensions\")$X2$delta = -1 attr(s2, \"dimensions\")$X1$delta = 2 attr(s2, \"dimensions\")$X2$delta = -2 attr(s3, \"dimensions\")$X1$delta = 3 attr(s3, \"dimensions\")$X2$delta = -3 plot(s1, axes = TRUE, text_values = TRUE, text_color = 'orange') plot(s2, axes = TRUE, text_values = TRUE, text_color = 'orange') plot(s3, axes = TRUE, text_values = TRUE, text_color = 'orange') fn1 = paste0(tempdir(), .Platform$file.sep, \"img1.tif\") fn2 = paste0(tempdir(), .Platform$file.sep, \"img2.tif\") fn3 = paste0(tempdir(), .Platform$file.sep, \"img3.tif\") write_stars(s1, fn1) write_stars(s2, fn2) write_stars(s3, fn3) (r1 = read_stars(c(fn1, fn2, fn3), proxy = TRUE)) ## multi-resolution stars_proxy object with 3 attributes in 3 file(s): ## $`1` ## [1] \"[...]/img1.tif\" ## ## $`2` ## [1] \"[...]/img2.tif\" ## ## $`3` ## [1] \"[...]/img3.tif\" ## ## dimension(s): ## from to offset delta x/y ## x 1 4 0 1 [x] ## y 1 4 4 -1 [y] st_as_stars(r1) %>% merge() %>% plot(breaks = \"equal\", text_values = TRUE, text_color = 'orange', axes = TRUE) st_as_stars(r1[,2:4,2:4]) %>% merge() %>% plot(breaks = \"equal\", text_values = TRUE, text_color = 'orange', axes = TRUE) s4 = st_as_stars(matrix(1: 16, 4)) s5 = st_as_stars(matrix(1: 64, 8)) s6 = st_as_stars(matrix(1:144,12)) attr(s4, \"dimensions\")$X1$offset = 0 attr(s4, \"dimensions\")$X2$offset = 4 attr(s5, \"dimensions\")$X1$offset = 0 attr(s5, \"dimensions\")$X2$offset = 4 attr(s6, \"dimensions\")$X1$offset = 0 attr(s6, \"dimensions\")$X2$offset = 4 attr(s4, \"dimensions\")$X1$delta = 1 attr(s4, \"dimensions\")$X2$delta = -1 attr(s5, \"dimensions\")$X1$delta = 1/2 attr(s5, \"dimensions\")$X2$delta = -1/2 attr(s6, \"dimensions\")$X1$delta = 1/3 attr(s6, \"dimensions\")$X2$delta = -1/3 plot(s4, axes = TRUE, text_values = TRUE, text_color = 'orange') plot(s5, axes = TRUE, text_values = TRUE, text_color = 'orange') plot(s6, axes = TRUE, text_values = TRUE, text_color = 'orange') fn4 = paste0(tempdir(), .Platform$file.sep, \"img4.tif\") fn5 = paste0(tempdir(), .Platform$file.sep, \"img5.tif\") fn6 = paste0(tempdir(), .Platform$file.sep, \"img6.tif\") write_stars(s4, fn4) write_stars(s5, fn5) write_stars(s6, fn6) (r2 = read_stars(c(fn4, fn5, fn6), proxy = TRUE)) ## multi-resolution stars_proxy object with 3 attributes in 3 file(s): ## $`4` ## [1] \"[...]/img4.tif\" ## ## $`5` ## [1] \"[...]/img5.tif\" ## ## $`6` ## [1] \"[...]/img6.tif\" ## ## dimension(s): ## from to offset delta x/y ## x 1 4 0 1 [x] ## y 1 4 4 -1 [y] st_as_stars(r2) %>% merge() %>% plot(breaks = \"equal\", text_values = TRUE, text_color = 'orange', axes = TRUE) st_as_stars(r2[,2:4,2:4]) %>% merge() %>% plot(breaks = \"equal\", text_values = TRUE, text_color = 'orange', axes = TRUE) (r3 = read_stars(c(fn6, fn5, fn4), proxy = TRUE)) ## multi-resolution stars_proxy object with 3 attributes in 3 file(s): ## $`6` ## [1] \"[...]/img6.tif\" ## ## $`5` ## [1] \"[...]/img5.tif\" ## ## $`4` ## [1] \"[...]/img4.tif\" ## ## dimension(s): ## from to offset delta x/y ## x 1 12 0 0.3333 [x] ## y 1 12 4 -0.3333 [y] st_as_stars(r3) %>% merge() %>% plot(breaks = \"equal\", text_values = TRUE, text_color = 'orange', axes = TRUE) st_as_stars(r3[,2:6,3:6]) %>% merge() %>% plot(breaks = \"equal\", text_values = TRUE, text_color = 'orange', axes = TRUE)"},{"path":"/articles/stars3.html","id":"slice","dir":"Articles","previous_headings":"","what":"slice","title":"3. stars tidyverse methods","text":"slice slices sub-array cube; done specifying dimension act, slice number. returns lower-dimensional array single element selected along slice dimension.","code":"x %>% slice(band, 6) -> x6 x6 ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 1 32 60 59.97521 88 255 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y]"},{"path":"/articles/stars3.html","id":"filter","dir":"Articles","previous_headings":"","what":"filter","title":"3. stars tidyverse methods","text":"Similar slice, filter selects dimensions evaluates values rather index: subarray created based x coordinate values. Note filter converts object tbl_cube, uses dplyr filter method tbl_cube objects. limitation stars objects rectilinear, curvilinear simple feature geometries handled. objects, using regular [ selection using st_crop may alternative.","code":"x %>% filter(x > 289000, x < 291000, band > 3) -> x7 x7 ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 5 54 70 71.79194 88 252 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 70 289004 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 3 4 1 NA NA"},{"path":"/articles/stars3.html","id":"pull","dir":"Articles","previous_headings":"","what":"pull","title":"3. stars tidyverse methods","text":"pull pulls array stars object:","code":"x %>% pull(1) -> x8 class(x8) ## [1] \"array\" dim(x8) ## x y band ## 349 352 6"},{"path":"/articles/stars3.html","id":"mutate","dir":"Articles","previous_headings":"","what":"mutate","title":"3. stars tidyverse methods","text":"","code":"x %>% mutate(band2 = 2 * L7_ETMs.tif) -> x2 x2 ## stars object with 3 dimensions and 2 attributes ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 1 54 69 68.91242 86 255 ## band2 2 108 138 137.82484 172 510 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 6 NA NA NA NA"},{"path":"/articles/stars3.html","id":"select","dir":"Articles","previous_headings":"","what":"select","title":"3. stars tidyverse methods","text":"select selects attribute, set attributes:","code":"x2 %>% select(band2) -> x9 x9 ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## band2 2 108 138 137.8248 172 510 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 6 NA NA NA NA"},{"path":"/articles/stars3.html","id":"geom_stars","dir":"Articles","previous_headings":"","what":"geom_stars","title":"3. stars tidyverse methods","text":"geom_raster ggplot2 geom function accepts stars objects data argument sets raster vector spatial coordinates plot dimensions, first attribute fill variable allows downsampling (without choosing suitable downsampling level) chooses using geom_raster, geom_rect geom_sf depending whether geometry regular, rectilinear vector geometries example use ","code":"library(ggplot2) library(viridis) ## Loading required package: viridisLite ggplot() + geom_stars(data = x) + coord_equal() + facet_wrap(~band) + theme_void() + scale_fill_viridis() + scale_x_discrete(expand = c(0, 0)) + scale_y_discrete(expand = c(0, 0))"},{"path":"/articles/stars4.html","id":"stars-objects","dir":"Articles","previous_headings":"","what":"Stars objects","title":"4. stars data model","text":"stars objects consist (possibly empty) named list arrays, named dimensions (dim) attribute attribute called dimensions class dimensions carries dimension metadata class name includes stars dimensions object named list dimension elements, describing semantics dimension data arrays (space, time, type etc). addition , dimensions object attribute called raster class stars_raster, named list three elements: dimensions length 2 character; dimension names constitute spatial raster (NA) affine length 2 numeric; two affine parameters geotransform (NA) curvilinear boolean indicating whether raster curvilinear raster (NA) affine curvilinear values relevant case raster data, indicated dimensions non-NA values. dimension object describes single dimension; list named elements : (numeric length 1): start index array : (numeric length 1): end index array offset: (numeric length 1): start coordinate (time) value first pixel (.e., pixel/cell boundary) delta: (numeric length 1): increment, cell size refsys: (character, crs): object describing reference system; e.g. PROJ string, string POSIXct PCICt (360 365 days/year calendars), object class crs (containing EPSG code proj4string) point: (logical length 1): boolean indicating whether cells/pixels refer areas/periods, points/instances (may NA) NULL (missing), vector coordinate values (numeric, POSIXct, PCICt, sfc), object class intervals (list two vectors, start end, interval start- end-values), matrix longitudes latitudes cells (case curvilinear grids) usually 1 dimension size, may larger 1 case sub-grid got selected (cropped). offset delta apply regularly discretized dimensions, NA case. NA, dimension values may held values field. Rectilinear curvilinear grids need grid values values can either: rectilinear grids: irregularly spaced coordinate values, coordinate intervals irregular width (rectilinear grid can one dimension regular), curvilinear grids: matrix grid cell centre values row/col combinations (usually longitude latitude). Alternatively, values can contains set spatial geometries encoded sfc vector (“list-column”), case vector data cube.","code":""},{"path":[]},{"path":"/articles/stars4.html","id":"regular-grids","dir":"Articles","previous_headings":"Grid type","what":"Regular grids","title":"4. stars data model","text":"simple file created \\(4 \\times 5\\) matrix see rows (5) mapped first dimension, x-coordinate columns (4) mapped second dimension, y-coordinate fields dimension define range corresponds array dimension: offset delta specify increasing row column index maps x y coordinate values respectively. plot object, using image method stars objects, see \\((0,0)\\) origin grid (grid corner), \\(1\\) coordinate value increase one index (row, col) next. means consecutive matrix columns represent grid lines, going south north. Grids defined way regular: grid cell size constant everywhere. Many actual grid datasets y coordinates (grid rows) going North South (top bottom); realised negative value delta. see grid origing \\((0,0)\\) change: example GeoTIFF carried package, , probably data sources read GDAL, negative delta y-coordinate:","code":"suppressPackageStartupMessages(library(stars)) m = matrix(1:20, nrow = 5, ncol = 4) dim(m) = c(x = 5, y = 4) # named dim (s = st_as_stars(m)) ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## A1 1 5.75 10.5 10.5 15.25 20 ## dimension(s): ## from to offset delta point x/y ## x 1 5 0 1 FALSE [x] ## y 1 4 0 1 FALSE [y] dim(s[[1]]) ## x y ## 5 4 image(s, text_values = TRUE, axes = TRUE) attr(s, \"dimensions\")[[2]]$delta = -1 image(s, text_values = TRUE, axes = TRUE) tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") st_dimensions(read_stars(tif))[\"y\"] ## from to offset delta refsys point ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE"},{"path":"/articles/stars4.html","id":"raster-attributes-rotated-and-sheared-grids","dir":"Articles","previous_headings":"Grid type","what":"Raster attributes, rotated and sheared grids","title":"4. stars data model","text":"Dimension tables stars objects carry raster attribute: list holds dimensions: character, names raster dimensions (), opposed e.g. spectral, temporal dimensions affine: numeric, affine parameters curvilinear: logical indicating whether raster curvilinear fields needed level, describe properties array higher level individual dimensions : pair dimensions forms raster, affine curvilinear describe x y pair derived grid indexes (see ) done per-dimension basis. two affine parameters \\(a_1\\) \\(a_2\\), \\(x\\) \\(y\\) coordinates derived (1-based) grid indexes \\(\\) \\(j\\), grid offset values \\(o_x\\) \\(o_y\\), grid cell sizes \\(d_x\\) \\(d_y\\) \\[x = o_x + (-1) d_x + (j-1) a_1\\] \\[y = o_y + (-1) a_2 + (j-1) d_y\\] Clearly, \\(a_1=a_2=0\\), \\(x\\) \\(y\\) entirely derived respective index, offset cellsize. Note integer indexes, coordinates starting edge grid cell; get grid cell center top left grid cell (case negative \\(d_y\\)), use \\(=1.5\\) \\(j=1.5\\). can rotate grids setting \\(a_1\\) \\(a_2\\) non-zero value: rotation angle, degrees, Sheared grids obtained two rotation coefficients, \\(a_1\\) \\(a_2\\), unequal: Now, y-axis x-axis different rotation degrees respectively","code":"str(attr(st_dimensions(s), \"raster\")) ## List of 4 ## $ affine : num [1:2] 0 0 ## $ dimensions : chr [1:2] \"x\" \"y\" ## $ curvilinear: logi FALSE ## $ blocksizes : NULL ## - attr(*, \"class\")= chr \"stars_raster\" attr(attr(s, \"dimensions\"), \"raster\")$affine = c(0.1, 0.1) plot(st_as_sf(s, as_points = FALSE), axes = TRUE, nbreaks = 20) atan2(0.1, 1) * 180 / pi ## [1] 5.710593 attr(attr(s, \"dimensions\"), \"raster\")$affine = c(0.1, 0.2) plot(st_as_sf(s, as_points = FALSE), axes = TRUE, nbreaks = 20) atan2(c(0.1, 0.2), 1) * 180 / pi ## [1] 5.710593 11.309932"},{"path":"/articles/stars4.html","id":"rectilinear-grids","dir":"Articles","previous_headings":"","what":"Rectilinear grids","title":"4. stars data model","text":"Rectilinear grids orthogonal axes, congruent (equally sized shaped) cells: axis irregular subdivision. can define rectilinear grid specifying cell boundaries, meaning every dimension specify one value dimension size: leave last value, stars may come different cell boundary last cell, now derived width one--last cell: problematic cells constant width, case boundaries reduced offset delta value, irrespective whether upper boundary given: Alternatively, one can also set cell midpoints specifying arguments cell_midpoints st_dimensions call: dimension regular, results offset shifted back half delta, else intervals derived distances cell centers. obviously done cell boundaries specified.","code":"x = c(0, 0.5, 1, 2, 4, 5) # 6 numbers: boundaries! y = c(0.3, 0.5, 1, 2, 2.2) # 5 numbers: boundaries! (r = st_as_stars(list(m = m), dimensions = st_dimensions(x = x, y = y))) ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## m 1 5.75 10.5 10.5 15.25 20 ## dimension(s): ## from to point values x/y ## x 1 5 FALSE [0,0.5),...,[4,5) [x] ## y 1 4 FALSE [0.3,0.5),...,[2,2.2) [y] st_bbox(r) ## xmin ymin xmax ymax ## 0.0 0.3 5.0 2.2 image(r, axes = TRUE, col = grey((1:20)/20)) x = c(0, 0.5, 1, 2, 4) # 5 numbers: offsets only! y = c(0.3, 0.5, 1, 2) # 4 numbers: offsets only! (r = st_as_stars(list(m = m), dimensions = st_dimensions(x = x, y = y))) ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## m 1 5.75 10.5 10.5 15.25 20 ## dimension(s): ## from to point values x/y ## x 1 5 FALSE [0,0.5),...,[4,6) [x] ## y 1 4 FALSE [0.3,0.5),...,[2,3) [y] st_bbox(r) ## xmin ymin xmax ymax ## 0.0 0.3 6.0 3.0 x = c(0, 1, 2, 3, 4) # 5 numbers: offsets only! y = c(0.5, 1, 1.5, 2) # 4 numbers: offsets only! (r = st_as_stars(list(m = m), dimensions = st_dimensions(x = x, y = y))) ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## m 1 5.75 10.5 10.5 15.25 20 ## dimension(s): ## from to offset delta point x/y ## x 1 5 0 1 FALSE [x] ## y 1 4 0.5 0.5 FALSE [y] st_bbox(r) ## xmin ymin xmax ymax ## 0.0 0.5 5.0 2.5 x = st_as_stars(matrix(1:9, 3, 3), st_dimensions(x = c(1, 2, 3), y = c(2, 3, 10), cell_midpoints = TRUE))"},{"path":"/articles/stars4.html","id":"curvilinear-grids","dir":"Articles","previous_headings":"","what":"Curvilinear grids","title":"4. stars data model","text":"Curvilinear grids grids whose grid lines straight. Rather describing curvature parametrically, typical (HDF5 NetCDF) files found two raster layers longitudes latitudes every corresponding pixel remaining layers. example, use Sentinel 5P dataset available package starsdata; package can installed dataset found : can construct curvilinear stars raster calling read_stars right sub-array: array, can see GDAL metadata item GEOLOCATION: reveals , dataset, longitude latitude arrays kept. curvilinear array actual arrays (raster layers, matrices) longitude latitude values read dimension table. can plot file: can downsample data doesn’t look nice, plotting cells polygons looks better: Another approach warp curvilinear grid regular grid, e.g. ","code":"install.packages(\"starsdata\", repos = \"http://pebesma.staff.ifgi.de\", type = \"source\") (s5p = system.file(\"sentinel5p/S5P_NRTI_L2__NO2____20180717T120113_20180717T120613_03932_01_010002_20180717T125231.nc\", package = \"starsdata\")) ## [1] \"/home/runner/work/_temp/Library/starsdata/sentinel5p/S5P_NRTI_L2__NO2____20180717T120113_20180717T120613_03932_01_010002_20180717T125231.nc\" subs = gdal_subdatasets(s5p) subs[[6]] ## [1] \"NETCDF:\\\"/home/runner/work/_temp/Library/starsdata/sentinel5p/S5P_NRTI_L2__NO2____20180717T120113_20180717T120613_03932_01_010002_20180717T125231.nc\\\":/PRODUCT/nitrogendioxide_tropospheric_column\" gdal_metadata(subs[[6]], \"GEOLOCATION\") ## $LINE_OFFSET ## [1] \"0\" ## ## $LINE_STEP ## [1] \"1\" ## ## $PIXEL_OFFSET ## [1] \"0\" ## ## $PIXEL_STEP ## [1] \"1\" ## ## $SRS ## [1] \"GEOGCS[\\\"WGS 84\\\",DATUM[\\\"WGS_1984\\\",SPHEROID[\\\"WGS 84\\\",6378137,298.257223563,AUTHORITY[\\\"EPSG\\\",\\\"7030\\\"]],AUTHORITY[\\\"EPSG\\\",\\\"6326\\\"]],PRIMEM[\\\"Greenwich\\\",0,AUTHORITY[\\\"EPSG\\\",\\\"8901\\\"]],UNIT[\\\"degree\\\",0.0174532925199433,AUTHORITY[\\\"EPSG\\\",\\\"9122\\\"]],AXIS[\\\"Latitude\\\",NORTH],AXIS[\\\"Longitude\\\",EAST],AUTHORITY[\\\"EPSG\\\",\\\"4326\\\"]]\" ## ## $X_BAND ## [1] \"1\" ## ## $X_DATASET ## [1] \"NETCDF:\\\"/home/runner/work/_temp/Library/starsdata/sentinel5p/S5P_NRTI_L2__NO2____20180717T120113_20180717T120613_03932_01_010002_20180717T125231.nc\\\":/PRODUCT/longitude\" ## ## $Y_BAND ## [1] \"1\" ## ## $Y_DATASET ## [1] \"NETCDF:\\\"/home/runner/work/_temp/Library/starsdata/sentinel5p/S5P_NRTI_L2__NO2____20180717T120113_20180717T120613_03932_01_010002_20180717T125231.nc\\\":/PRODUCT/latitude\" ## ## attr(,\"class\") ## [1] \"gdal_metadata\" nit.c = read_stars(subs[[6]]) ## Warning in CPL_read_gdal(as.character(x), as.character(options), ## as.character(driver), : GDAL Message 1: The dataset has several variables that ## could be identified as vector fields, but not all share the same primary ## dimension. Consequently they will be ignored. ## Warning in CPL_read_gdal(as.character(x), as.character(options), ## as.character(driver), : GDAL Message 1: The dataset has several variables that ## could be identified as vector fields, but not all share the same primary ## dimension. Consequently they will be ignored. ## Warning in CPL_read_gdal(as.character(x), as.character(options), ## as.character(driver), : GDAL Message 1: The dataset has several variables that ## could be identified as vector fields, but not all share the same primary ## dimension. Consequently they will be ignored. ## Warning in CPL_read_gdal(as.character(x), as.character(options), ## as.character(driver), : GDAL Message 1: The dataset has several variables that ## could be identified as vector fields, but not all share the same primary ## dimension. Consequently they will be ignored. ## Warning in CPL_read_gdal(as.character(x), as.character(options), ## as.character(driver), : GDAL Message 1: The dataset has several variables that ## could be identified as vector fields, but not all share the same primary ## dimension. Consequently they will be ignored. ## Warning in CPL_read_gdal(as.character(x), as.character(options), ## as.character(driver), : GDAL Message 1: The dataset has several variables that ## could be identified as vector fields, but not all share the same primary ## dimension. Consequently they will be ignored. threshold = units::set_units(9e+36, mol/m^2) nit.c[[1]][nit.c[[1]] > threshold] = NA nit.c ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. ## nitrogendioxide_tropospheri... [mol/m^2] -3.301083e-05 1.868205e-05 ## Median Mean 3rd Qu. ## nitrogendioxide_tropospheri... [mol/m^2] 2.622178e-05 2.898976e-05 3.629641e-05 ## Max. NA's ## nitrogendioxide_tropospheri... [mol/m^2] 0.0003924858 330 ## dimension(s): ## from to offset refsys values x/y ## x 1 450 NA WGS 84 [450x278] -5.811 [°],...,30.95 [°] [x] ## y 1 278 NA WGS 84 [450x278] 28.36 [°],...,51.47 [°] [y] ## time 1 1 2018-07-17 UTC POSIXct NULL ## curvilinear grid plot(nit.c, breaks = \"equal\", reset = FALSE, axes = TRUE, as_points = TRUE, pch = 16, logz = TRUE, key.length = 1) ## Warning in NextMethod(): NaNs produced ## Warning in plot.sf(x, pal = col, ...): NaNs produced maps::map('world', add = TRUE, col = 'red') plot(nit.c, breaks = \"equal\", reset = FALSE, axes = TRUE, as_points = FALSE, border = NA, logz = TRUE, key.length = 1) ## Warning in NextMethod(): NaNs produced ## Warning in plot.sf(x, pal = col, ...): NaNs produced maps::map('world', add = TRUE, col = 'red') (nit.c_ds = stars:::st_downsample(nit.c, 8)) ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median ## nitrogendioxide_tropospheri... [mol/m^2] -1.847503e-05 1.85778e-05 2.700901e-05 ## Mean 3rd Qu. Max. ## nitrogendioxide_tropospheri... [mol/m^2] 2.9113e-05 3.642568e-05 0.0001363282 ## NA's ## nitrogendioxide_tropospheri... [mol/m^2] 32 ## dimension(s): ## from to offset refsys values x/y ## x 1 50 NA WGS 84 [50x31] -5.811 [°],...,30.14 [°] [x] ## y 1 31 NA WGS 84 [50x31] 28.78 [°],...,51.47 [°] [y] ## time 1 1 2018-07-17 UTC POSIXct NULL ## curvilinear grid plot(nit.c_ds, breaks = \"equal\", reset = FALSE, axes = TRUE, as_points = TRUE, pch = 16, logz = TRUE, key.length = 1) ## Warning in NextMethod(): NaNs produced ## Warning in plot.sf(x, pal = col, ...): NaNs produced maps::map('world', add = TRUE, col = 'red') plot(nit.c_ds, breaks = \"equal\", reset = FALSE, axes = TRUE, as_points = FALSE, border = NA, logz = TRUE, key.length = 1) ## Warning in NextMethod(): NaNs produced ## Warning in plot.sf(x, pal = col, ...): NaNs produced maps::map('world', add = TRUE, col = 'red') w = st_warp(nit.c, crs = 4326, cellsize = 0.25) ## Warning in transform_grid_grid(st_as_stars(src), st_dimensions(dest), ## threshold): using Euclidean distance measures on geodetic coordinates ## threshold set to 0.108545 : set a larger value if you see missing values where they shouldn't be plot(w)"},{"path":"/articles/stars5.html","id":"rasterizing-an-sf-vector-object","dir":"Articles","previous_headings":"","what":"Rasterizing an sf vector object","title":"5. vector-raster conversions, reprojection, warping","text":"algorithm used GDAL rasterize utility, options utility can passed st_rasterize. geometry final raster can controlled passing target bounding box either raster dimensions nx ny, pixel size dx dy parameters.","code":"library(stars) ## Loading required package: abind system.file(\"gpkg/nc.gpkg\", package = \"sf\") %>% read_sf() %>% st_transform(32119) -> nc nc$dens = nc$BIR79 / units::set_units(st_area(nc), km^2) (nc.st = st_rasterize(nc[\"dens\"], dx = 5000, dy = 5000)) ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's ## dens [1/km^2] 0.2545072 1.225631 1.932222 3.345918 3.825745 21.24828 4808 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 162 123829 5000 NAD83 / North Carolina FALSE [x] ## y 1 61 318260 -5000 NAD83 / North Carolina FALSE [y] plot(nc.st)"},{"path":"/articles/stars5.html","id":"vectorizing-a-raster-object-to-an-sf-object","dir":"Articles","previous_headings":"","what":"Vectorizing a raster object to an sf object","title":"5. vector-raster conversions, reprojection, warping","text":"stars objects can converted sf object using st_as_sf. number options, depending whether pixels represent point value pixel center, small square polygons single value. work landsat-7 6-band image, select first band round values:","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif)[, 1:50, 1:50, 1:2] x[[1]] = round(x[[1]]/5)"},{"path":"/articles/stars5.html","id":"polygonizing","dir":"Articles","previous_headings":"Vectorizing a raster object to an sf object","what":"Polygonizing","title":"5. vector-raster conversions, reprojection, warping","text":"case raster cells reflect point values want get vector representation whole field, can draw contour lines export contour sets (available GDAL version least 2.4.0):","code":"l = st_contour(x, contour_lines = TRUE, breaks = 11:15) plot(l[1], key.pos = 1, pal = sf.colors, lwd = 2, key.length = 0.8)"},{"path":"/articles/stars5.html","id":"exporting-to-points","dir":"Articles","previous_headings":"Vectorizing a raster object to an sf object","what":"Exporting to points","title":"5. vector-raster conversions, reprojection, warping","text":"Alternatively, can simply export pixels points, get either wide table bands per point, replicated POINT geometries: long table single attribute points replicated: can see, additional attribute band now indicates band concerned.","code":"st_as_sf(x, as_points = TRUE, merge = FALSE) ## Simple feature collection with 2500 features and 2 fields ## Geometry type: POINT ## Dimension: XY ## Bounding box: xmin: 288790.5 ymin: 9119350 xmax: 290187 ymax: 9120747 ## Projected CRS: SIRGAS 2000 / UTM zone 25S ## First 10 features: ## L7_ETMs.tif.V1 L7_ETMs.tif.V2 geometry ## 1 14 11 POINT (288790.5 9120747) ## 2 14 11 POINT (288819 9120747) ## 3 13 10 POINT (288847.5 9120747) ## 4 12 9 POINT (288876 9120747) ## 5 12 10 POINT (288904.5 9120747) ## 6 12 10 POINT (288933 9120747) ## 7 12 10 POINT (288961.5 9120747) ## 8 12 10 POINT (288990 9120747) ## 9 13 10 POINT (289018.5 9120747) ## 10 13 10 POINT (289047 9120747) st_as_sf(x, as_points = TRUE, merge = FALSE, long = TRUE) ## Simple feature collection with 5000 features and 2 fields ## Geometry type: POINT ## Dimension: XY ## Bounding box: xmin: 288790.5 ymin: 9119350 xmax: 290187 ymax: 9120747 ## Projected CRS: SIRGAS 2000 / UTM zone 25S ## First 10 features: ## band L7_ETMs.tif geometry ## 1 1 14 POINT (288790.5 9120747) ## 2 1 14 POINT (288819 9120747) ## 3 1 13 POINT (288847.5 9120747) ## 4 1 12 POINT (288876 9120747) ## 5 1 12 POINT (288904.5 9120747) ## 6 1 12 POINT (288933 9120747) ## 7 1 12 POINT (288961.5 9120747) ## 8 1 12 POINT (288990 9120747) ## 9 1 13 POINT (289018.5 9120747) ## 10 1 13 POINT (289047 9120747)"},{"path":"/articles/stars5.html","id":"exporting-to-polygons","dir":"Articles","previous_headings":"Vectorizing a raster object to an sf object","what":"Exporting to polygons","title":"5. vector-raster conversions, reprojection, warping","text":"Alternatively, can export polygons either get single polygon per pixel, merge polygons identical pixel values; plotted boundaries, see resolved boundaries areas pixel value: option connect8 can set TRUE use 8 connectedness, rather default 4 connectedness algorithm. cases, polygons returned often invalid according simple feature standard, can made valid using lwgeom::st_make_valid.","code":"st_as_sf(x[1], as_points = FALSE, merge = FALSE) ## Simple feature collection with 2500 features and 2 fields ## Geometry type: POLYGON ## Dimension: XY ## Bounding box: xmin: 288776.3 ymin: 9119336 xmax: 290201.3 ymax: 9120761 ## Projected CRS: SIRGAS 2000 / UTM zone 25S ## First 10 features: ## L7_ETMs.tif.V1 L7_ETMs.tif.V2 geometry ## 1 14 11 POLYGON ((288776.3 9120761,... ## 2 14 11 POLYGON ((288804.8 9120761,... ## 3 13 10 POLYGON ((288833.3 9120761,... ## 4 12 9 POLYGON ((288861.8 9120761,... ## 5 12 10 POLYGON ((288890.3 9120761,... ## 6 12 10 POLYGON ((288918.8 9120761,... ## 7 12 10 POLYGON ((288947.3 9120761,... ## 8 12 10 POLYGON ((288975.8 9120761,... ## 9 13 10 POLYGON ((289004.3 9120761,... ## 10 13 10 POLYGON ((289032.8 9120761,... p = st_as_sf(x, as_points = FALSE, merge = TRUE) plot(p)"},{"path":"/articles/stars5.html","id":"switching-between-vector-and-raster-in-stars-objects","dir":"Articles","previous_headings":"","what":"Switching between vector and raster in stars objects","title":"5. vector-raster conversions, reprojection, warping","text":"can convert raster dimension vector dimension keeping dimensions stars object also requires setting as_points arguments st_as_sf.","code":"x.sf = st_xy2sfc(x, as_points = TRUE) x.sf ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 7 9 11 11.2548 12 28 ## dimension(s): ## from to refsys point ## geometry 1 2500 SIRGAS 2000 / UTM zone 25S TRUE ## band 1 2 NA NA ## values ## geometry POINT (288790.5 9120747),...,POINT (290187 9119350) ## band NULL"},{"path":"/articles/stars5.html","id":"reprojecting-a-raster","dir":"Articles","previous_headings":"","what":"Reprojecting a raster","title":"5. vector-raster conversions, reprojection, warping","text":"accept curvilinear rasters rasters , regular rectilinear grids special cases curvilinear grids, reprojecting raster longer “problem”, just recomputes new coordinates every raster cell, generally results curvilinear grid (sometimes can brought back regular rectilinear grid). curvilinear grid cells represented coordinates cell center, actual shape grid cell gets lost, may larger effect grid cells large transformation stronger non-linear. example reprojection grid created noted dimensionality grid didn’t change: set raster cells replotted new CRS, now curvilinear grid.","code":"nc.st %>% st_transform(\"+proj=laea +lat_0=34 +lon_0=-60\") -> nc.curv nc.curv ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's ## dens [1/km^2] 0.2545072 1.225631 1.932222 3.345918 3.825745 21.24828 4808 ## dimension(s): ## from to refsys point values ## x 1 162 +proj=laea +lat_0=34 +lon... FALSE [162x61] -2210936,...,-1371611 ## y 1 61 +proj=laea +lat_0=34 +lon... FALSE [162x61] 90650,...,538204 ## x/y ## x [x] ## y [y] ## curvilinear grid plot(nc.curv, border = NA, graticule = TRUE)"},{"path":"/articles/stars5.html","id":"warping-a-raster","dir":"Articles","previous_headings":"","what":"Warping a raster","title":"5. vector-raster conversions, reprojection, warping","text":"Warping raster means creating new regular grid new CRS, based (usually regular) grid another CRS. can transformation previous section first creating target grid: warping old raster new new object regular grid new CRS, aligned new x- y-axes.","code":"nc %>% st_transform(\"+proj=laea +lat_0=34 +lon_0=-60\") %>% st_bbox() %>% st_as_stars() -> newgrid nc.st %>% st_warp(newgrid) -> nc.new nc.new ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's ## dens [1/km^2] 0.2545072 1.225631 1.932222 3.344805 3.825745 21.24828 36155 ## dimension(s): ## from to offset delta refsys x/y ## x 1 380 -2188110 2098 +proj=laea +lat_0=34 +lon... [x] ## y 1 171 494924 -2098 +proj=laea +lat_0=34 +lon... [y] plot(nc.new)"},{"path":"/articles/stars6.html","id":"comment-legend","dir":"Articles","previous_headings":"","what":"COMMENT LEGEND","title":"6. How `raster` functions map to `stars` functions","text":"? = sure / unknown * = present, low priority # = present, high priority NA = available design","code":""},{"path":[]},{"path":[]},{"path":[]},{"path":[]},{"path":[]},{"path":[]},{"path":[]},{"path":[]},{"path":[]},{"path":[]},{"path":"/articles/stars6.html","id":"computing-row-column-cell-numbers-and-coordinates","dir":"Articles","previous_headings":"","what":"Computing row, column, cell numbers and coordinates","title":"6. How `raster` functions map to `stars` functions","text":"format table follows raster-package entry raster manual, found https://cran.r-project.org/web/packages/raster/raster.pdf.","code":""},{"path":"/articles/stars7.html","id":"training-and-prediction-with-stars-objects","dir":"Articles","previous_headings":"","what":"Training and prediction with stars objects","title":"7. Statistical modelling with stars objects","text":"usual way statistical modelling R uses data.frames (tibbles), proceeds like model function like lm, glm, randomForest etc. returns classed object, predict generic can choose right prediction function based class. formula looks like y ~ x1+x2 specifies dependent variable (y) predictors (x1, x2), found columns data. newdata needs predictors columns, returns predicted values y values predictors.","code":"m = model(formula, data) pr = predict(m, newdata)"},{"path":"/articles/stars7.html","id":"stars-objects-as-data-frames","dir":"Articles","previous_headings":"Training and prediction with stars objects","what":"stars objects as data.frames","title":"7. Statistical modelling with stars objects","text":"analogy stars objects data.frame : attribute (array) becomes single column dimensions become added (index) columns see works 6-band example dataset, consider : see get one single variable object (array) name, added columns dimension values (x, y, band). typical case, like six bands distributed six variables, single observation (row) x/y pair. , use e.g. utils::unstack dplyr::pivot_wider data.frame, efficient way use dedicated split method stars objects, resolves dimension splits attributes, one dimension value: reason split efficient mentioned alternatives () split match records based dimensions (x/y), (ii) works --memory (stars_proxy) arrays, chunked process/write loop write_stars(). ### Predict stars objects pattern obtain predictions pixels stars objects : use full dataset sample train model, using .data.frame() (possibly split) use predict(star_object, model) predict pixels stars_object, using stars-wrapper predict method model. predict method model, provide one (see kmeans example ) works stars objects (-memory) stars_proxy objects (-memory). plotting stars_proxy objects, downsampling done prediction (predicting pixels shown), full rasters can written disk write_stars(), carry predictions chunks read written.","code":"library(stars) ## Loading required package: abind ## Loading required package: sf ## Linking to GEOS 3.10.2, GDAL 3.4.1, PROJ 8.2.1; sf_use_s2() is TRUE l7 = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") %>% read_stars() l7 ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 1 54 69 68.91242 86 255 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 6 NA NA NA NA as.data.frame(l7) %>% head() ## x y band L7_ETMs.tif ## 1 288790.5 9120747 1 69 ## 2 288819.0 9120747 1 69 ## 3 288847.5 9120747 1 63 ## 4 288876.0 9120747 1 60 ## 5 288904.5 9120747 1 61 ## 6 288933.0 9120747 1 61 l7 %>% split(\"band\") %>% as.data.frame() %>% head() ## x y X1 X2 X3 X4 X5 X6 ## 1 288790.5 9120747 69 56 46 79 86 46 ## 2 288819.0 9120747 69 57 49 75 88 49 ## 3 288847.5 9120747 63 52 45 66 75 41 ## 4 288876.0 9120747 60 45 35 66 69 38 ## 5 288904.5 9120747 61 52 44 76 92 60 ## 6 288933.0 9120747 61 50 37 78 74 38"},{"path":"/articles/stars7.html","id":"models-fitted-for-every-pixel","dir":"Articles","previous_headings":"","what":"models fitted for every pixel","title":"7. Statistical modelling with stars objects","text":"can run models many different ways array data. One way run single model pixels, model operates e.g. spectral (band) temporal dimension. example given vignette 2, NDVI computed red near infrared band. NDVI involve estimating parameters, reducing two bands one. example fit model every pixel fit time series model pixel time series, output one model coefficients pixel; shown next.","code":""},{"path":"/articles/stars7.html","id":"linear-regression-on-pixel-time-series","dir":"Articles","previous_headings":"models fitted for every pixel","what":"Linear regression on pixel time series","title":"7. Statistical modelling with stars objects","text":"can read avhrr dataset, containing 9 days: use function computes slope regression line temperature time. get temperatures vector first argument function supplied st_apply, t already defined. function look like optimize bit, using anyNA lm.fit rather lm: result lazily defined (adrop drops singular dimension) computed following command, computations restricted pixels plotted: interisting pattern appears (despite short time series!): SST reveals main signal colder getting equator, changes SST show much fine grained structures areas going , others going . diverging color ramp better choice , distinguis positive negative trends.","code":"library(stars) x = c(\"avhrr-only-v2.19810901.nc\", \"avhrr-only-v2.19810902.nc\", \"avhrr-only-v2.19810903.nc\", \"avhrr-only-v2.19810904.nc\", \"avhrr-only-v2.19810905.nc\", \"avhrr-only-v2.19810906.nc\", \"avhrr-only-v2.19810907.nc\", \"avhrr-only-v2.19810908.nc\", \"avhrr-only-v2.19810909.nc\") file_list = system.file(paste0(\"netcdf/\", x), package = \"starsdata\") y = read_stars(file_list, sub = \"sst\", quiet = TRUE, proxy = TRUE) (t = st_get_dimension_values(y, 4)) ## [1] \"1981-09-01 UTC\" \"1981-09-02 UTC\" \"1981-09-03 UTC\" \"1981-09-04 UTC\" ## [5] \"1981-09-05 UTC\" \"1981-09-06 UTC\" \"1981-09-07 UTC\" \"1981-09-08 UTC\" ## [9] \"1981-09-09 UTC\" slope = function(x) { if (any(is.na(x))) NA_real_ else coeffients(lm(x~t))[2] } slope = function(x) { if (anyNA(x)) NA_real_ else lm.fit(cbind(1, t), x)$coefficients[2] } out = st_apply(adrop(y), c(1,2), slope) plot(out, breaks = \"equal\", main = \"9-day time trend (slope)\") ## downsample set to 1"},{"path":[]},{"path":"/articles/stars7.html","id":"principal-components","dir":"Articles","previous_headings":"Unsupervised learners","what":"Principal components","title":"7. Statistical modelling with stars objects","text":"first example, build principal components entire data set, rather small. see, amongst others, PC1 picks difference sea (dark) land, PC2 3 structures sea coastal waters. second example, build principal components sample entire data set, entire dataset rather large. apply , using predict, pixels shown plot (.e. reduced rather full resolution) plotting , ’ll add country borders delineate sea, obtained mapdata package: plot results independent color ranges, every PC stretched entire grey scale. suggests PC1 picks difference cloud signal (difference clouds non-clouds), PC2 difference sea land areas, PC4 sensor artefacts (striping swath direction). compute full resolution (10000 x 10000 pixels) results write file, use","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") r = split(read_stars(tif)) pc = prcomp(as.data.frame(r)[,-(1:2)]) # based on all data out = predict(r, pc) plot(merge(out), breaks = \"equal\", join_zlim = FALSE) granule = system.file(\"sentinel/S2A_MSIL1C_20180220T105051_N0206_R051_T32ULE_20180221T134037.zip\", package = \"starsdata\") s2 = paste0(\"SENTINEL2_L1C:/vsizip/\", granule, \"/S2A_MSIL1C_20180220T105051_N0206_R051_T32ULE_20180221T134037.SAFE/MTD_MSIL1C.xml:10m:EPSG_32632\") p = read_stars(s2, proxy = TRUE, NA_value = 0) %>% split() r = st_sample(p, 1000) pc = prcomp(na.omit(as.data.frame(r))[,-(1:2)]) # based on all data out = predict(p, pc) bb = st_bbox(p) %>% st_as_sfc() %>% st_transform(4326) %>% st_bbox() library(maps) library(mapdata) m = map(\"worldHires\", xlim = bb[c(1,3)], ylim = bb[c(2,4)], plot=F,fill=TRUE) %>% st_as_sfc() %>% st_transform(st_crs(r)) plt_boundary = function() plot(m, border = 'orange', add = TRUE) plot(merge(out), hook = plt_boundary, join_zlim = FALSE) ## downsample set to 18 write_stars(merge(out), \"out.tif\")"},{"path":"/articles/stars7.html","id":"k-means-clustering","dir":"Articles","previous_headings":"Unsupervised learners","what":"K-means clustering","title":"7. Statistical modelling with stars objects","text":"small dataset: seems pick fair number land cover classes: water (5), rural (3), densely populated (1, 2). large(r) dataset: see class 1 3 identify unclouded area, 3 land, classes seem mainly catch aspects cloud signal.","code":"library(clue) predict.kmeans = function(object, newdata, ...) { unclass(clue::cl_predict(object, newdata[, -c(1:2)], ...)) } tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") i = read_stars(tif, proxy = TRUE) %>% split() nclus = 5 sam = st_sample(i, 1000) k = kmeans(na.omit(as.data.frame(sam)[, -c(1:2)]), nclus) out = predict(i, k) plot(out, col = sf.colors(nclus, categorical=TRUE)) i = read_stars(s2, proxy = TRUE, NA_value = 0) %>% split() sam = st_sample(i, 1000) k = kmeans(na.omit(as.data.frame(sam)[, -c(1:2)]), nclus) out = predict(i, k) plot(out, col = sf.colors(nclus, categorical=TRUE), reset = FALSE) ## downsample set to 18 plot(m, add = TRUE)"},{"path":[]},{"path":"/articles/stars7.html","id":"random-forest-land-use-classification","dir":"Articles","previous_headings":"Supervised learners","what":"Random Forest land use classification","title":"7. Statistical modelling with stars objects","text":"following example purely educational purposes; classified “land use” just rough approximation seems easily visible image: sea, land, areas partially covered clouds. opted therefore four classes: sea, land, clouds sea, clouds land. polygon areas land use classified, residing GeoPackage file. (file created using QGIS, using instructions found .) Next, need points, sampled inside polygons, need extract satellite spectral data comes rather trivial finding land sea can well predicted clouds, less trivial finding can reasonably distinguished patchy clouds kind. Note predictions kind pure pixel-based: prediction spectral bands pixel considered, instance neighboring pixels.","code":"# for all, multi-resolution, use: bands = c(\"B04\", \"B03\", \"B02\", \"B08\", \"B01\", \"B05\", \"B06\", \"B07\", \"B8A\", \"B09\", \"B10\", \"B11\", \"B12\") # bands = c(\"B04\", \"B03\", \"B02\", \"B08\") s2 = paste0(\"/vsizip/\", granule, \"/S2A_MSIL1C_20180220T105051_N0206_R051_T32ULE_20180221T134037.SAFE/GRANULE/L1C_T32ULE_A013919_20180220T105539/IMG_DATA/T32ULE_20180220T105051_\", bands, \".jp2\") r = read_stars(s2, proxy = TRUE, NA_value = 0) %>% setNames(bands) cl = read_sf(system.file(\"gpkg/s2.gpkg\", package = \"stars\")) %>% st_transform(st_crs(r)) plot(r, reset = FALSE) ## downsample set to 8 plot(cl, add = TRUE) plot(m, add = TRUE, border = 'orange') pts = st_sample(cl, 1000, \"regular\") %>% st_as_sf() %>% st_intersection(cl) ## Warning: attribute variables are assumed to be spatially constant throughout ## all geometries train = st_extract(r, pts) train$use = as.factor(pts$use) # no need for join, since the order did not change train ## Simple feature collection with 1000 features and 14 fields ## Geometry type: POINT ## Dimension: XY ## Bounding box: xmin: 328195.1 ymin: 5909563 xmax: 407928.8 ymax: 5970391 ## Projected CRS: WGS 84 / UTM zone 32N ## First 10 features: ## B04 B03 B02 B08 B01 B05 B06 B07 B8A B09 B10 B11 B12 ## 1 921 1139 1396 2375 1744 1180 1860 2099 2396 1006 15 1458 779 ## 2 879 1136 1366 2935 1728 1246 2148 2537 2814 994 14 1669 887 ## 3 870 1029 1338 1872 1694 1076 1567 1765 2042 824 14 1629 856 ## 4 1016 1228 1439 3054 1789 1477 2655 3057 3427 1207 15 2220 1210 ## 5 1010 1145 1449 2039 1782 1302 1724 1975 2144 860 10 1795 999 ## 6 1344 1213 1475 1943 1770 1427 1684 1901 2143 863 14 2276 1365 ## 7 1067 1204 1472 2348 1778 1369 2057 2306 2685 1032 17 2010 1179 ## 8 1035 1144 1437 2289 1760 1299 1891 2246 2637 1042 11 1788 920 ## 9 854 1047 1371 1902 1715 1146 1815 1941 2133 782 16 1568 949 ## 10 941 1155 1379 2802 1689 1380 2268 2595 2976 1058 15 2012 1086 ## x use ## 1 POINT (394518.2 5940525) land ## 2 POINT (390045.1 5931738) land ## 3 POINT (390340.9 5929888) land ## 4 POINT (391254 5938829) land ## 5 POINT (391997.7 5937843) land ## 6 POINT (395680.9 5933296) land ## 7 POINT (388792.2 5934807) land ## 8 POINT (392185.2 5940074) land ## 9 POINT (387142.8 5936359) land ## 10 POINT (390877.6 5927178) land library(randomForest) ## randomForest 4.7-1.1 ## Type rfNews() to see new features/changes/bug fixes. ## ## Attaching package: 'randomForest' ## The following object is masked from 'package:dplyr': ## ## combine train = as.data.frame(train) train$x = NULL # remove geometry rf = randomForest(use ~ ., train) # ~ . : use all other attributes pr = predict(r, rf) plot(pr, key.width = lcm(5), reset = FALSE, key.pos = 4) ## downsample set to 8 # add country outline: plot(m, add = TRUE)"},{"path":"/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Edzer Pebesma. Author, maintainer. Michael Sumner. Contributor. Etienne Racine. Contributor. Adriano Fantini. Contributor. David Blodgett. Contributor.","code":""},{"path":"/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Pebesma E, Bivand R (2023). Spatial Data Science: applications R. Chapman Hall/CRC, London. doi:10.1201/9780429459016, https://r-spatial.org/book/.","code":"@Book{, title = {{Spatial Data Science: With applications in R}}, author = {Edzer Pebesma and Roger Bivand}, year = {2023}, publisher = {Chapman and Hall/CRC}, address = {London}, url = {https://r-spatial.org/book/}, pages = {352}, doi = {10.1201/9780429459016}, }"},{"path":"/index.html","id":"spatiotemporal-arrays-raster-and-vector-datacubes","dir":"","previous_headings":"","what":"Spatiotemporal Arrays, Raster and Vector Data Cubes","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"Spatiotemporal data often comes form dense arrays, space time array dimensions. Examples include socio-economic demographic data, environmental variables monitored fixed stations, raster maps time series satellite images multiple spectral bands, spatial simulations, climate weather model output. R package provides classes methods reading, manipulating, plotting writing data cubes, extent proper formats .","code":""},{"path":"/index.html","id":"raster-and-vector-data-cubes","dir":"","previous_headings":"","what":"Raster and vector data cubes","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"canonical data cube us mind two dimensions represent spatial raster dimensions, third time (band), e.g. shown : data cubes however also consider higher-dimensional cubes (hypercubes) five-dimensional cube addition time, spectral band sensor form dimensions: lower-dimensional cubes raster image: Raster data need regular aligned North/East, package stars supports besides regular also rotated, sheared, rectilinear curvilinear rasters: Vector data cubes arise two regularly discretized spatial dimensions, single dimension points distinct spatial feature geometries, polygons (e.g. denoting administrative regions): points (e.g. denoting sensor locations): NetCDF’s CF-convention calls discrete axis.","code":"suppressPackageStartupMessages(library(dplyr)) library(stars) # Loading required package: abind # Loading required package: sf # Linking to GEOS 3.11.1, GDAL 3.6.2, PROJ 9.1.1; sf_use_s2() is TRUE tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") read_stars(tif) |> slice(index = 1, along = \"band\") |> plot()"},{"path":"/index.html","id":"netcdf-gdal","dir":"","previous_headings":"","what":"NetCDF, GDAL","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"stars provides two functions read data: read_ncdf read_stars, latter reads GDAL. (future, integrated read_stars.) reading NetCDF files, package RNetCDF used, reading GDAL, package sf provides binary linking GDAL. vector raster operations, stars uses much possible routines available GDAL PROJ (e.g. st_transform, rasterize, polygonize, warp). Read vignette vector-raster conversions, reprojection, warping.","code":""},{"path":"/index.html","id":"out-of-memory-on-disk-rasters","dir":"","previous_headings":"","what":"Out-of-memory (on-disk) rasters","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"Package stars provides stars_proxy objects (currently read GDAL), contain dimensions metadata pointers files disk. objects work lazily: reading processing data postponed moment pixels really needed (plot time, writing disk), done lowest spatial resolution possible still fulfills resolution graphics device. details found stars proxy vignette. following methods currently available stars_proxy objects:","code":"methods(class = \"stars_proxy\") # [1] [ [[<- [<- adrop # [5] aggregate aperm as.data.frame c # [9] coerce dim droplevels filter # [13] hist initialize is.na Math # [17] merge mutate Ops plot # [21] predict print pull rename # [25] select show slice slotsFromS3 # [29] split st_apply st_as_sf st_as_stars # [33] st_crop st_dimensions<- st_downsample st_mosaic # [37] st_normalize st_redimension st_sample st_set_bbox # [41] transmute write_stars # see '?methods' for accessing help and source code"},{"path":"/index.html","id":"raster-and-vector-time-series-analysis-example","dir":"","previous_headings":"","what":"Raster and vector time series analysis example","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"following, curvilinear grid hourly precipitation values hurricane imported first 12 time steps plotted: next, intersected counties North Carolina, maximum precipitation intensity obtained per county, plotted: can integrate (reduce) time, instance find maximum precipitation occurred. following code finds time index, corresponding time value: package cubble, can make glyph map see magnitude timings county maximum precipitation:","code":"prec_file = system.file(\"nc/test_stageiv_xyt.nc\", package = \"stars\") (prec = read_stars(gdal_subdatasets(prec_file)[[1]])) # stars object with 3 dimensions and 1 attribute # attribute(s): # Min. 1st Qu. Median Mean 3rd Qu. # Total_precipitation_surface... [kg/m^2] 0 0 0.75 4.143009 4.63 # Max. # Total_precipitation_surface... [kg/m^2] 163.75 # dimension(s): # from to offset delta refsys # x 1 87 NA NA WGS 84 # y 1 118 NA NA WGS 84 # time 1 23 2018-09-13 19:00:00 UTC 1 hours POSIXct # values x/y # x [87x118] -80.61 [°],...,-74.88 [°] [x] # y [87x118] 32.44 [°],...,37.62 [°] [y] # time NULL # curvilinear grid # or: (prec = read_ncdf(prec_file, curvilinear = c(\"lon\", \"lat\"), ignore_bounds = TRUE)) sf::read_sf(system.file(\"gpkg/nc.gpkg\", package = \"sf\"), \"nc.gpkg\") |> st_transform(st_crs(prec)) -> nc # transform from NAD27 to WGS84 nc_outline = st_union(st_geometry(nc)) plot_hook = function() plot(nc_outline, border = 'red', add = TRUE) prec |> slice(index = 1:12, along = \"time\") |> plot(downsample = c(3, 3, 1), hook = plot_hook) a = aggregate(prec, by = nc, FUN = max) plot(a, max.plot = 23, border = 'grey', lwd = .5) index_max = function(x) ifelse(all(is.na(x)), NA, which.max(x)) b = st_apply(a, \"geom\", index_max) b |> mutate(when = st_get_dimension_values(a, \"time\")[b$index_max]) |> select(when) |> plot(key.pos = 1, main = \"time of maximum precipitation\") library(cubble) # # Attaching package: 'cubble' # The following object is masked from 'package:stats': # # filter library(ggplot2) a |> setNames(\"precip\") |> st_set_dimensions(2, name = \"tm\") |> units::drop_units() |> as_cubble(key = id, index = tm) |> suppressWarnings() -> a.cb a.cb |> face_temporal() |> unfold(long, lat) |> mutate(tm = as.numeric(tm)) |> ggplot(aes(x_major = long, x_minor = tm, y_major = lat, y_minor = precip)) + geom_sf(data = nc, inherit.aes = FALSE) + geom_glyph_box(width = 0.3, height = 0.1) + geom_glyph(width = 0.3, height = 0.1) # Warning: There were 84 warnings in `dplyr::mutate()`. # The first warning was: # ℹ In argument: `y = .data$y_major + rescale11(.data$y_minor) * .data$height/2`. # ℹ In group 12: `group = 12`. # Caused by warning in `min()`: # ! no non-missing arguments to min; returning Inf # ℹ Run `dplyr::last_dplyr_warnings()` to see the 83 remaining warnings. # Warning: Removed 966 rows containing missing values (`geom_glyph_box()`). # Warning: Removed 966 rows containing missing values (`geom_glyph()`)."},{"path":[]},{"path":"/index.html","id":"gdalcubes","dir":"","previous_headings":"Other packages for data cubes","what":"gdalcubes","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"Package gdalcubes can used create data cubes (functions ) image collections, sets multi-band images varying spatial resolution spatial extent coordinate reference systems (e.g., spread multiple UTM zones) observation times resampling /aggregating space /time. reuses GDAL VRT’s gdalwarp spatial resampling /warping, handles temporal resampling aggregation .","code":""},{"path":"/index.html","id":"ncdfgeom","dir":"","previous_headings":"Other packages for data cubes","what":"ncdfgeom","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"ncdfgeom reads writes vector data cubes netcdf files standards-compliant way.","code":""},{"path":"/index.html","id":"raster-and-terra","dir":"","previous_headings":"Other packages for data cubes","what":"raster and terra","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"Packages raster successor, terra powerful packages handling raster maps stacks raster maps memory disk, address non-raster time series, multi-attribute rasters time series rasters mixed type attributes (e.g., numeric, logical, factor, POSIXct) rectilinear curvilinear rasters list stars commands matching existing raster commands found wiki. list translations opposite direction (stars raster terra) still needs made. comment differences stars terra found .","code":""},{"path":"/index.html","id":"other-stars-resources","dir":"","previous_headings":"","what":"Other stars resources:","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"blog posts: first, second, third, newer blog posts vignettes: first, second, third, fourth, fifth original R Consortium proposal.","code":""},{"path":"/index.html","id":"acknowledgment","dir":"","previous_headings":"Other stars resources:","what":"Acknowledgment","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"project realized financial support ","code":""},{"path":"/reference/L7_ETMs.html","id":null,"dir":"Reference","previous_headings":"","what":"Landsat-7 bands for a selected region around Olinda, BR — L7_ETMs","title":"Landsat-7 bands for a selected region around Olinda, BR — L7_ETMs","text":"Probably containing six 30 m bands: Band 1 Visible (0.45 - 0.52 µm) 30 m Band 2 Visible (0.52 - 0.60 µm) 30 m Band 3 Visible (0.63 - 0.69 µm) 30 m Band 4 Near-Infrared (0.77 - 0.90 µm) 30 m Band 5 Short-wave Infrared (1.55 - 1.75 µm) 30 m Band 7 Mid-Infrared (2.08 - 2.35 µm) 30 m","code":""},{"path":"/reference/L7_ETMs.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Landsat-7 bands for a selected region around Olinda, BR — L7_ETMs","text":"","code":"L7_ETMs"},{"path":"/reference/L7_ETMs.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Landsat-7 bands for a selected region around Olinda, BR — L7_ETMs","text":"object class stars_proxy (inherits stars) dimension 349 x 352 x 6.","code":""},{"path":"/reference/aggregate.stars.html","id":null,"dir":"Reference","previous_headings":"","what":"spatially or temporally aggregate stars object — aggregate.stars","title":"spatially or temporally aggregate stars object — aggregate.stars","text":"spatially temporally aggregate stars object, returning data cube lower spatial temporal resolution","code":""},{"path":"/reference/aggregate.stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"spatially or temporally aggregate stars object — aggregate.stars","text":"","code":"# S3 method for stars aggregate( x, by, FUN, ..., drop = FALSE, join = st_intersects, as_points = any(st_dimension(by) == 2, na.rm = TRUE), rightmost.closed = FALSE, left.open = FALSE, exact = FALSE )"},{"path":"/reference/aggregate.stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"spatially or temporally aggregate stars object — aggregate.stars","text":"x object class stars information aggregated object class sf sfc spatial aggregation, temporal aggregation vector time values (Date, POSIXct, PCICt) interpreted sequence left-closed, right-open time intervals string like \"months\", \"5 days\" like (see cut.POSIXt), function cuts time intervals; object class stars, converted sfc st_as_sfc(, as_points = FALSE) thus ignoring time component. Note: pixel assigned single group (order groups occur) non-overlapping spatial features temporal windows recommended. FUN aggregation function, mean ... arguments passed FUN, na.rm=TRUE drop logical; ignored join function; function used find matches x as_points see st_as_sf: shall raster pixels taken points, small square polygons? rightmost.closed see findInterval left.open logical; used time intervals, see findInterval cut.POSIXt exact logical; TRUE, use coverage_fraction compute exact overlap fractions polygons raster cells","code":""},{"path":[]},{"path":"/reference/aggregate.stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"spatially or temporally aggregate stars object — aggregate.stars","text":"","code":"# aggregate time dimension in format Date tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") t1 = as.Date(\"2018-07-31\") x = read_stars(c(tif, tif, tif, tif), along = list(time = c(t1, t1+1, t1+2, t1+3)))[,1:30,1:30] st_get_dimension_values(x, \"time\") #> [1] \"2018-07-31\" \"2018-08-01\" \"2018-08-02\" \"2018-08-03\" x_agg_time = aggregate(x, by = t1 + c(0, 2, 4), FUN = max) # aggregate time dimension in format Date - interval by_t = \"2 days\" x_agg_time2 = aggregate(x, by = by_t, FUN = max) st_get_dimension_values(x_agg_time2, \"time\") #> [1] \"2018-07-31\" \"2018-08-02\" #TBD: #x_agg_time - x_agg_time2 # aggregate time dimension in format POSIXct x = st_set_dimensions(x, 4, values = as.POSIXct(c(\"2018-07-31\", \"2018-08-01\", \"2018-08-02\", \"2018-08-03\")), names = \"time\") by_t = as.POSIXct(c(\"2018-07-31\", \"2018-08-02\")) x_agg_posix = aggregate(x, by = by_t, FUN = max) st_get_dimension_values(x_agg_posix, \"time\") #> [1] \"2018-07-31 UTC\" \"2018-08-02 UTC\" #TBD: # x_agg_time - x_agg_posix aggregate(x, \"2 days\", mean) #> stars object with 4 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 17 43 58 57.58796 70 145 #> dimension(s): #> from to offset delta refsys point x/y #> time 1 2 2018-07-31 UTC 2 days POSIXct NA #> x 1 30 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 30 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA if (require(ncmeta, quietly = TRUE)) { # Spatial aggregation, see https://github.com/r-spatial/stars/issues/299 prec_file = system.file(\"nc/test_stageiv_xyt.nc\", package = \"stars\") prec = read_ncdf(prec_file, curvilinear = c(\"lon\", \"lat\")) prec_slice = dplyr::slice(prec, index = 17, along = \"time\") nc = sf::read_sf(system.file(\"gpkg/nc.gpkg\", package = \"sf\"), \"nc.gpkg\") nc = st_transform(nc, st_crs(prec_slice)) agg = aggregate(prec_slice, st_geometry(nc), mean) plot(agg) } #> no 'var' specified, using Total_precipitation_surface_1_Hour_Accumulation #> other available variables: #> lat, lon, time #> Will return stars object with 236118 cells. #> No projection information found in nc file. #> Coordinate variable units found to be degrees, #> assuming WGS84 Lat/Lon. # example of using a function for \"by\": aggregate by month-of-year d = c(10, 10, 150) a = array(rnorm(prod(d)), d) # pure noise times = Sys.Date() + seq(1, 2000, length.out = d[3]) m = as.numeric(format(times, \"%m\")) signal = rep(sin(m / 12 * pi), each = prod(d[1:2])) # yearly period s = (st_as_stars(a) + signal) %>% st_set_dimensions(3, values = times) f = function(x, format = \"%B\") { months = format(as.Date(paste0(\"01-\", 1:12, \"-1970\")), format) factor(format(x, format), levels = months) } agg = aggregate(s, f, mean) plot(agg)"},{"path":"/reference/bcsd_obs.html","id":null,"dir":"Reference","previous_headings":"","what":"Monthly Gridded Meteorological Observations — bcsd_obs","title":"Monthly Gridded Meteorological Observations — bcsd_obs","text":"monthly observational data used BCSD downscaling. See: http://gdo-dcp.ucllnl.org/downscaled_cmip_projections/dcpInterface.html#information.\" ; \"Atmospheric Temperature, Air Temperature Atmosphere, Precipitation, Rain, Maximum Daily Temperature, Minimum Daily Temperature\" ;","code":""},{"path":"/reference/bcsd_obs.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Monthly Gridded Meteorological Observations — bcsd_obs","text":"","code":"bcsd_obs"},{"path":"/reference/bcsd_obs.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Monthly Gridded Meteorological Observations — bcsd_obs","text":"object class stars_proxy (inherits stars) dimension 81 x 33 x 12.","code":""},{"path":"/reference/c.stars.html","id":null,"dir":"Reference","previous_headings":"","what":"combine multiple stars objects, or combine multiple attributes in a single stars object into a single array — c.stars","title":"combine multiple stars objects, or combine multiple attributes in a single stars object into a single array — c.stars","text":"combine multiple stars objects, combine multiple attributes single stars object single array","code":""},{"path":"/reference/c.stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"combine multiple stars objects, or combine multiple attributes in a single stars object into a single array — c.stars","text":"","code":"# S3 method for stars c( ..., along = NA_integer_, try_hard = FALSE, nms = names(list(...)), tolerance = sqrt(.Machine$double.eps) ) # S3 method for stars_proxy c( ..., along = NA_integer_, along_crs = FALSE, try_hard = FALSE, nms = names(list(...)), tolerance = sqrt(.Machine$double.eps) )"},{"path":"/reference/c.stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"combine multiple stars objects, or combine multiple attributes in a single stars object into a single array — c.stars","text":"... object(s) class star: case multiple arguments, combined single stars object, case single argument, attributes combined single attribute. case multiple objects, objects dimensionality. along integer; see read_stars try_hard logical; TRUE arrays different dimensions, combine dimensions matching first array nms character; vector array names tolerance numeric; values used .equal compare dimension values combine dimensions matching first array along_crs logical; TRUE, combine arrays along CRS dimension","code":""},{"path":"/reference/c.stars.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"combine multiple stars objects, or combine multiple attributes in a single stars object into a single array — c.stars","text":"single stars object merged (binded) arrays.","code":""},{"path":"/reference/c.stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"combine multiple stars objects, or combine multiple attributes in a single stars object into a single array — c.stars","text":"error raised attempting combine arrays different measurement units single array. intentded, drop_units can used remove units stars object merging.","code":""},{"path":"/reference/c.stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"combine multiple stars objects, or combine multiple attributes in a single stars object into a single array — c.stars","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) (new = c(x, x)) #> stars object with 3 dimensions and 2 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> L7_ETMs.tif.1 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA c(new) # collapses two arrays into one with an additional dimension #> stars object with 3 dimensions and 2 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> L7_ETMs.tif.1 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA c(x, x, along = 3) #> stars object with 3 dimensions and 1 attribute #> attribute(s), summary of first 1e+05 cells: #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 47 65 76 77.3419 87 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 12 NA NA NA NA"},{"path":"/reference/coerce-methods.html","id":null,"dir":"Reference","previous_headings":"","what":"Coerce stars object into a Raster raster or brick — as","title":"Coerce stars object into a Raster raster or brick — as","text":"Coerce stars object Raster raster brick Coerce stars object terra SpatRaster","code":""},{"path":"/reference/coerce-methods.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Coerce stars object into a Raster raster or brick — as","text":"object coerce","code":""},{"path":"/reference/coerce-methods.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Coerce stars object into a Raster raster or brick — as","text":"RasterLayer RasterBrick SpatRaster","code":""},{"path":"/reference/coerce-methods.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Coerce stars object into a Raster raster or brick — as","text":"stars object three dimensions, dimensions higher third collapsed third dimensions. stars object x/y raster multiple attributes, merged first, put raster brick. stars object three dimensions, dimensions higher third collapsed third dimensions. stars object x/y raster multiple attributes, merged first, put SpatRaster.","code":""},{"path":"/reference/contour.stars.html","id":null,"dir":"Reference","previous_headings":"","what":"plot contours of a stars object — contour.stars","title":"plot contours of a stars object — contour.stars","text":"plot contours stars object","code":""},{"path":"/reference/contour.stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"plot contours of a stars object — contour.stars","text":"","code":"# S3 method for stars contour(x, ...)"},{"path":"/reference/contour.stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"plot contours of a stars object — contour.stars","text":"x object class stars ... parameters passed contour","code":""},{"path":"/reference/contour.stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"plot contours of a stars object — contour.stars","text":"uses R internal contour algorithm, (default) plots contours; st_contour uses GDAL contour algorithm returns contours simple features.","code":""},{"path":"/reference/contour.stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"plot contours of a stars object — contour.stars","text":"","code":"d = st_dimensions(x = 1:ncol(volcano), y = 1:nrow(volcano)) r = st_as_stars(t(volcano)) r = st_set_dimensions(r, 1, offset = 0, delta = 1) r = st_set_dimensions(r, 2, offset = 0, delta = -1) plot(r, reset = FALSE) contour(r, add = TRUE)"},{"path":"/reference/cut_stars.html","id":null,"dir":"Reference","previous_headings":"","what":"cut methods for stars objects — cut_stars","title":"cut methods for stars objects — cut_stars","text":"cut methods stars objects","code":""},{"path":"/reference/cut_stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"cut methods for stars objects — cut_stars","text":"","code":"# S3 method for array cut(x, breaks, ...) # S3 method for matrix cut(x, breaks, ...) # S3 method for stars cut(x, breaks, ...)"},{"path":"/reference/cut_stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"cut methods for stars objects — cut_stars","text":"x see cut breaks see cut ... see cut","code":""},{"path":"/reference/cut_stars.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"cut methods for stars objects — cut_stars","text":"array matrix levels attribute; see details","code":""},{"path":"/reference/cut_stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"cut methods for stars objects — cut_stars","text":"R's factor works vectors, arrays matrices. work-around (hack?) keep factor levels generated cut use plots.","code":""},{"path":"/reference/cut_stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"cut methods for stars objects — cut_stars","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) cut(x, c(0, 50, 100, 255)) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> L7_ETMs.tif #> (0,50] :156060 #> (50,100] :503764 #> (100,255]: 77264 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA cut(x[,,,1], c(0, 50, 100, 255)) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> L7_ETMs.tif #> (0,50] : 1 #> (50,100] :117134 #> (100,255]: 5713 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 1 NA NA NA NA plot(cut(x[,,,1], c(0, 50, 100, 255))) tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x1 = read_stars(tif) (x1_cut = cut(x1, breaks = c(0, 50, 100, Inf))) # shows factor in summary #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> L7_ETMs.tif #> (0,50] :156060 #> (50,100] :503764 #> (100,Inf]: 77264 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(x1_cut[,,,c(3,6)]) # propagates through [ and plot"},{"path":"/reference/dplyr.html","id":null,"dir":"Reference","previous_headings":"","what":"dplyr verbs for stars objects — dplyr","title":"dplyr verbs for stars objects — dplyr","text":"dplyr verbs stars objects; package dplyr needs loaded methods can used stars objects.","code":""},{"path":"/reference/dplyr.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"dplyr verbs for stars objects — dplyr","text":"","code":"filter.stars(.data, ...) filter.stars_proxy(.data, ...) mutate.stars(.data, ...) mutate.stars_proxy(.data, ...) transmute.stars(.data, ...) transmute.stars_proxy(.data, ...) select.stars(.data, ...) select.stars_proxy(.data, ...) rename.stars(.data, ...) rename.stars_proxy(.data, ...) pull.stars(.data, var = -1) pull.stars_proxy(.data, ...) as.tbl_cube.stars(x, ...) slice.stars(.data, along, index, ..., drop = length(index) == 1) slice.stars_proxy(.data, along, index, ...) replace_na.stars(data, replace, ...) replace_na.stars_proxy(data, ...)"},{"path":"/reference/dplyr.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"dplyr verbs for stars objects — dplyr","text":".data object class stars ... see filter var see pull x object class stars along name index dimension slice applied index integer value(s) index drop logical; drop dimensions single index? data data set work replace see replace_na: list variable=value pairs, value replacement value NA's","code":""},{"path":"/reference/dplyr.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"dplyr verbs for stars objects — dplyr","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x1 = read_stars(tif) if (require(dplyr, quietly = TRUE)) { x1 %>% slice(\"band\", 2:3) x1 %>% slice(\"x\", 50:100) } #> #> Attaching package: ‘dplyr’ #> The following objects are masked from ‘package:stats’: #> #> filter, lag #> The following objects are masked from ‘package:base’: #> #> intersect, setdiff, setequal, union #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 11 56 68 70.50099 82 252 #> dimension(s): #> from to offset delta refsys point x/y #> x 50 100 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA"},{"path":"/reference/geom_stars.html","id":null,"dir":"Reference","previous_headings":"","what":"ggplot geom for stars objects — geom_stars","title":"ggplot geom for stars objects — geom_stars","text":"ggplot geom stars objects","code":""},{"path":"/reference/geom_stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"ggplot geom for stars objects — geom_stars","text":"","code":"geom_stars( mapping = NULL, data = NULL, ..., downsample = 0, sf = FALSE, na.action = na.pass ) theme_stars(...)"},{"path":"/reference/geom_stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"ggplot geom for stars objects — geom_stars","text":"mapping see geom_raster data see geom_raster ... see geom_raster downsample downsampling rate: e.g. 3 keeps rows cols 1, 4, 7, 10 etc.; value 0 downsample; can specified dimension, e.g. c(5,5,0) downsample first two dimensions third. sf logical; TRUE rasters converted polygons plotted using geom_sf. na.action function; NA values need removed plotting use value na.omit (applies objects raster dimensions)","code":""},{"path":"/reference/geom_stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"ggplot geom for stars objects — geom_stars","text":"geom_stars returns (call ) either geom_raster, geom_tile, geom_sf, depending raster vector geometry; first , aes call constructed raster dimension names first array fill variable. calls coord_equal facet_wrap needed control aspect ratio layers plotted; see examples. stars array contains hex color values, fill parameter given, color values used fill color; see example . visual artefacts occur (Moiré-Effekt), see details section plot.stars","code":""},{"path":"/reference/geom_stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"ggplot geom for stars objects — geom_stars","text":"","code":"system.file(\"tif/L7_ETMs.tif\", package = \"stars\") %>% read_stars() -> x if (require(ggplot2, quietly = TRUE)) { ggplot() + geom_stars(data = x) + coord_equal() + facet_wrap(~band) + theme_void() + scale_x_discrete(expand=c(0,0))+ scale_y_discrete(expand=c(0,0)) # plot rgb composite: st_as_stars(L7_ETMs)[,,,1:3] |> st_rgb() -> x # x contains colors as pixel values ggplot() + geom_stars(data = x) }"},{"path":"/reference/in-methods.html","id":null,"dir":"Reference","previous_headings":"","what":"evaluate whether cube values are in a given set — %in%,stars-method","title":"evaluate whether cube values are in a given set — %in%,stars-method","text":"evaluate whether cube values given set","code":""},{"path":"/reference/in-methods.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"evaluate whether cube values are in a given set — %in%,stars-method","text":"","code":"# S4 method for stars %in%(x, table)"},{"path":"/reference/in-methods.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"evaluate whether cube values are in a given set — %in%,stars-method","text":"x data cube value table values set","code":""},{"path":"/reference/make_intervals.html","id":null,"dir":"Reference","previous_headings":"","what":"create an intervals object — make_intervals","title":"create an intervals object — make_intervals","text":"create intervals object, assuming left-closed right-open intervals","code":""},{"path":"/reference/make_intervals.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"create an intervals object — make_intervals","text":"","code":"make_intervals(start, end)"},{"path":"/reference/make_intervals.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"create an intervals object — make_intervals","text":"start vector start values, 2-column matrix start end values column 1 2, respectively end vector end values","code":""},{"path":"/reference/mdim.html","id":null,"dir":"Reference","previous_headings":"","what":"Read or write data using GDAL's multidimensional array API — mdim","title":"Read or write data using GDAL's multidimensional array API — mdim","text":"Read write data using GDAL's multidimensional array API","code":""},{"path":"/reference/mdim.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Read or write data using GDAL's multidimensional array API — mdim","text":"","code":"read_mdim( filename, variable = character(0), ..., options = character(0), raster = NULL, offset = integer(0), count = integer(0), step = integer(0), proxy = FALSE, debug = FALSE, bounds = TRUE, curvilinear = NA ) write_mdim( x, filename, driver = detect.driver(filename), ..., root_group_options = character(0), options = character(0), as_float = TRUE )"},{"path":"/reference/mdim.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Read or write data using GDAL's multidimensional array API — mdim","text":"filename name source destination file data source variable name array read ... ignored options character; driver specific options regarding opening (read_mdim) creation (write_mdim) dataset raster names raster variables (default: first two dimensions) offset integer; offset dimension (pixels) sub-array read, defaults 0 dimension(requires sf >= 1.0-9) count integer; size dimension (pixels) sub-array read (default: read ); value NA read corresponding dimension entirely; counts relative step size (requires sf >= 1.0-9) step integer; step size dimension (pixels) sub-aray read; defaults 1 dimension (requires sf >= 1.0-9) proxy logical; return proxy object? (functional yet) debug logical; print debug info? bounds logical character: TRUE tries infer \"bounds\" attribute; character, named vector form c(longitude=\"lon_bnds\", latitude=\"lat_bnds\") names dimension names curvilinear control reading curvilinear (geolocation) coordinate arrays; NA try reading x/y dimension names; character, defines arrays read; FALSE try; see also read_stars x stars object driver character; driver name root_group_options character; driver specific options regarding creation root group as_float logical; TRUE write 4-byte floating point numbers, FALSE write 8-byte doubles","code":""},{"path":"/reference/mdim.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Read or write data using GDAL's multidimensional array API — mdim","text":"assumed first two dimensions easting northing","code":""},{"path":"/reference/mdim.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Read or write data using GDAL's multidimensional array API — mdim","text":"","code":"set.seed(135) m = matrix(runif(10), 2, 5) names(dim(m)) = c(\"stations\", \"time\") times = as.Date(\"2022-05-01\") + 1:5 pts = st_as_sfc(c(\"POINT(0 1)\", \"POINT(3 5)\")) s = st_as_stars(list(Precipitation = m)) |> st_set_dimensions(1, values = pts) |> st_set_dimensions(2, values = times) nc = tempfile(fileext=\".nc\") if (compareVersion(sf_extSoftVersion()[\"GDAL\"], \"3.4.0\") > -1) { write_mdim(s, nc) # try ncdump on the generated file print(read_mdim(nc)) } #> Warning: GDAL Error 6: SetIndexingVariable() not implemented #> Warning: GDAL Error 6: SetIndexingVariable() not implemented #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> Precipitation 0.03524588 0.3224987 0.3772574 0.4289465 0.511113 0.9204841 #> dimension(s): #> from to offset delta refsys point values #> stations 1 2 NA NA NA TRUE POINT (0 1), POINT (3 5) #> time 1 5 2022-05-02 1 days Date NA NULL"},{"path":"/reference/merge.html","id":null,"dir":"Reference","previous_headings":"","what":"merge or split stars object — merge","title":"merge or split stars object — merge","text":"merge attributes dimension, split dimension attributes","code":""},{"path":"/reference/merge.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"merge or split stars object — merge","text":"","code":"# S3 method for stars split(x, f = length(dim(x)), drop = TRUE, ...) # S3 method for stars merge(x, y, ..., name = \"attributes\")"},{"path":"/reference/merge.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"merge or split stars object — merge","text":"x object class stars f name index dimension split; default last dimension drop ignored ... defined, first unnamed argument used dimension values, defined, attribute names used dimension values y needs missing name name new dimension","code":""},{"path":"/reference/merge.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"merge or split stars object — merge","text":"merge merges attributes stars object new dimension; split splits dimension attributes","code":""},{"path":"/reference/merge.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"merge or split stars object — merge","text":"split.stars works first attribute, give error one attribute present","code":""},{"path":"/reference/ops_stars.html","id":null,"dir":"Reference","previous_headings":"","what":"S3 Ops Group Generic Functions for stars objects — ops_stars","title":"S3 Ops Group Generic Functions for stars objects — ops_stars","text":"Ops functions stars objects, including comparison, product divide, add, subtract","code":""},{"path":"/reference/ops_stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"S3 Ops Group Generic Functions for stars objects — ops_stars","text":"","code":"# S3 method for stars Ops(e1, e2) # S3 method for stars Math(x, ...) # S3 method for stars_proxy Ops(e1, e2) # S3 method for stars_proxy Math(x, ...)"},{"path":"/reference/ops_stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"S3 Ops Group Generic Functions for stars objects — ops_stars","text":"e1 object class stars e2 object class stars x object class stars ... parameters passed Math functions","code":""},{"path":"/reference/ops_stars.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"S3 Ops Group Generic Functions for stars objects — ops_stars","text":"object class stars","code":""},{"path":"/reference/ops_stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"S3 Ops Group Generic Functions for stars objects — ops_stars","text":"e1 e2 numeric vector, e2 less smaller dimensions e1, e2 recycled fits e1, using usual R array recycling rules. user needs make sure sensible; may needed use aperm permutate dimensions first.","code":""},{"path":"/reference/ops_stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"S3 Ops Group Generic Functions for stars objects — ops_stars","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) x * x #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 2916 4761 5512.41 7396 65025 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA x / x #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 1 1 1 1 1 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA x + x #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 2 108 138 137.8248 172 510 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA x + 10 #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 11 64 79 78.91242 96 265 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA all.equal(x * 10, 10 * x) #> [1] TRUE tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) a = sqrt(x) b = log(x, base = 10)"},{"path":"/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"plot stars object, with subplots for each level of first non-spatial dimension — plot","title":"plot stars object, with subplots for each level of first non-spatial dimension — plot","text":"plot stars object, subplots level first non-spatial dimension, customization legend key","code":""},{"path":"/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"plot stars object, with subplots for each level of first non-spatial dimension — plot","text":"","code":"# S3 method for stars plot( x, y, ..., join_zlim = TRUE, main = make_label(x, 1), axes = FALSE, downsample = TRUE, nbreaks = 11, breaks = \"quantile\", col = grey(1:(nbreaks - 1)/nbreaks), key.pos = get_key_pos(x, ...), key.width = lcm(1.8), key.length = 0.618, key.lab = main, reset = TRUE, box_col = grey(0.8), center_time = FALSE, hook = NULL, mfrow = NULL ) # S3 method for stars image( x, ..., band = 1, attr = 1, asp = NULL, rgb = NULL, maxColorValue = ifelse(inherits(rgb, \"data.frame\"), 255, max(x[[attr]], na.rm = TRUE)), xlab = if (!axes) \"\" else names(d)[1], ylab = if (!axes) \"\" else names(d)[2], xlim = st_bbox(extent)$xlim, ylim = st_bbox(extent)$ylim, text_values = FALSE, text_color = \"black\", axes = FALSE, interpolate = FALSE, as_points = FALSE, key.pos = NULL, logz = FALSE, key.width = lcm(1.8), key.length = 0.618, add.geom = NULL, border = NA, useRaster = isTRUE(dev.capabilities()$rasterImage == \"yes\"), extent = x ) # S3 method for nc_proxy plot(x, y, ..., downsample = get_downsample(dim(x)), max_times = 16) # S3 method for stars_proxy plot(x, y, ..., downsample = get_downsample(dim(x)))"},{"path":"/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"plot stars object, with subplots for each level of first non-spatial dimension — plot","text":"x object class stars y ignored ... arguments: plot, passed image.stars; image, passed image.default rasterImage. join_zlim logical; TRUE, compute single, joint zlim (color scale) subplots x main character; subplot title prefix; use \"\" get time, use NULL suppress subplot titles axes logical; axes box added plot? downsample logical numeric; TRUE try plot many pixels actually visible, FALSE, downsampling takes place, numeric, number pixels/lines/bands etc skipped; see Details. nbreaks number color breaks; one number colors. missing col specified, derived . breaks actual color breaks, method name used classIntervals. col colors use grid cells, color palette function key.pos integer; side plot color key: 1 bottom, 2 left, 3 top, 4 right; set NULL omit key. Ignored multiple columns plotted single function call. Default depends plot size, map aspect, , set, parameter asp. key.width amount space reserved width key (labels); relative absolute (using lcm) key.length amount space reserved length key (labels); relative absolute (using lcm) key.lab character; label color key case multiple subplots, use \"\" suppress reset logical; FALSE, keep plot mode allows adding map elements; TRUE restore original mode plotting box_col color box around sub-plots; use 0 suppress plotting boxes around sub-plots. center_time logical; TRUE, sub-plot titles show center time intervals, otherwise start hook NULL function; hook function called every sub-plot; see examples. mfrow length-2 integer vector nrows, ncolumns composite plot, override default layout band integer; band (dimension) plot attr integer; attribute plot asp numeric; aspect ratio image rgb integer; specify three bands form rgb composite. Experimental: rgb color table; see Details. maxColorValue numeric; passed rgb xlab character; x axis label ylab character; y axis label xlim x axis limits ylim y axis limits text_values logical; print values text image? text_color character; color printed text values interpolate logical; using rasterImage (rgb), pixels interpolated? as_points logical; curvilinear sheared grids: parameter passed st_as_sf, determining whether raster cells plotted symbols (fast, approximate) small polygons (slow, exact) logz logical; TRUE, use log10-scale attribute variable. case, breaks need given log10-values; see examples. add.geom object class sfc, list arguments plot, added image sub-image border color used cell borders (case x curvilinear rotated/sheared grid) useRaster logical; use rasterImage capabilities graphics device? extent object st_bbox method; sets plotting extent max_times integer; maximum number time steps attempt plot.","code":""},{"path":"/reference/plot.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"plot stars object, with subplots for each level of first non-spatial dimension — plot","text":"Downsampling: value downsample 0: downsampling, 1: every dimension value (pixel/line/band), one value skipped (half original resolution), 2: every dimension value, 2 values skipped (one third original resolution), etc. downsample TRUE length 1 numeric vector, downsampling applied raster [x] [y] dimensions. remove unused classes categorical raster, use droplevels function. bitmaps show visual artefacts (Moiré effects), make sure device png used rather ragg::agg_png latter uses antialiasing filled polygons causes ; see also https://github.com/r-spatial/stars/issues/573 . use rgb color table experimental; see https://github.com/r-spatial/mapview/issues/208 plotting subsetted stars_proxy object, default value argument downsample computed correctly, set manually. plotting subsetted stars_proxy object, default value argument downsample computed correctly, set manually.","code":""},{"path":"/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"plot stars object, with subplots for each level of first non-spatial dimension — plot","text":"","code":"st_bbox(L7_ETMs) |> st_as_sfc() |> st_centroid() |> st_coordinates() -> pt hook1 = function() { text(pt[,\"X\"], pt[,\"Y\"], \"foo\", col = 'orange', cex = 2) } plot(L7_ETMs, hook = hook1) x = st_set_dimensions(L7_ETMs, 3, paste0(\"B_\", 1:6)) hook2 = function(..., row, col, nr, nrow, ncol, value, bbox) { str = paste0(\"row \", row, \"/\", nrow, \", col \", col, \"/\", ncol, \"\\nnr: \", nr, \" value: \", value) bbox |> st_as_sfc() |> st_centroid() |> st_coordinates() -> pt text(pt[,\"X\"], pt[,\"Y\"], str, col = 'red', cex = 2) } plot(x, hook = hook2, col = grey(c(.2,.25,.3,.35))) if (isTRUE(dev.capabilities()$rasterImage == \"yes\")) { lc = system.file(\"tif/lc.tif\", package = \"stars\") plot(read_stars(lc), key.pos=4, key.width=lcm(5)) } tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) image(x, col = grey((3:9)/10)) if (isTRUE(dev.capabilities()$rasterImage == \"yes\")) { image(x, rgb = c(1,3,5)) # false color composite }"},{"path":"/reference/predict.stars.html","id":null,"dir":"Reference","previous_headings":"","what":"Predict values, given a model object, for a stars or stars_proxy object — predict.stars","title":"Predict values, given a model object, for a stars or stars_proxy object — predict.stars","text":"Predict values, given model object, stars stars_proxy object","code":""},{"path":"/reference/predict.stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Predict values, given a model object, for a stars or stars_proxy object — predict.stars","text":"","code":"# S3 method for stars predict(object, model, ..., drop_dimensions = FALSE) # S3 method for stars_proxy predict(object, model, ...)"},{"path":"/reference/predict.stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Predict values, given a model object, for a stars or stars_proxy object — predict.stars","text":"object object class `stars` model model object class predict method; check `methods(class = class(object))` ... arguments passed predict method drop_dimensions logical; `TRUE`, remove dimensions (coordinates etc) `data.frame` predictors","code":""},{"path":"/reference/predict.stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Predict values, given a model object, for a stars or stars_proxy object — predict.stars","text":"separate predictors object need separate attributes object; case e.g. band dimension, use `split(object)`","code":""},{"path":"/reference/print_stars.html","id":null,"dir":"Reference","previous_headings":"","what":"print stars or dimensions object — print_stars","title":"print stars or dimensions object — print_stars","text":"print stars dimensions object","code":""},{"path":"/reference/print_stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"print stars or dimensions object — print_stars","text":"","code":"# S3 method for stars print(x, ..., n = 1e+05, abbrev = 30) # S3 method for dimensions as.data.frame( x, ..., digits = max(3, getOption(\"digits\") - 3), usetz = TRUE, stars_crs = getOption(\"stars.crs\") %||% 28, all = FALSE ) # S3 method for dimensions print(x, ...)"},{"path":"/reference/print_stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"print stars or dimensions object — print_stars","text":"x object class stars class dimensions ... passed .data.frame.dimensions n prod(dim(x)) > 10 * n, first n cells used attribute summary statistics abbrev number characters abbreviate attribute names digits number digits print numbers usetz logical; used format PCICt POSIXct values stars_crs maximum width string CRS objects logical; TRUE print also fields entirely filled NA NULL","code":""},{"path":"/reference/read_ncdf.html","id":null,"dir":"Reference","previous_headings":"","what":"Read NetCDF into stars object — read_ncdf","title":"Read NetCDF into stars object — read_ncdf","text":"Read data file (source) using NetCDF library directly.","code":""},{"path":"/reference/read_ncdf.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Read NetCDF into stars object — read_ncdf","text":"","code":"read_ncdf( .x, ..., var = NULL, ncsub = NULL, curvilinear = character(0), eps = sqrt(.Machine$double.eps), ignore_bounds = FALSE, make_time = TRUE, make_units = TRUE, proxy = NULL, downsample = 0 )"},{"path":"/reference/read_ncdf.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Read NetCDF into stars object — read_ncdf","text":".x NetCDF file source character vector nc_proxy object. ... ignored var variable name names (must matching grids) ncsub matrix start, count columns (see Details) curvilinear length two character named vector names variables holding longitude latitude values raster cells. `stars` attempts figure appropriate curvilinear coordinates supplied. eps numeric; dimension value increases considered identical differ less eps ignore_bounds logical; bounds values dimensions, present, ignored? make_time TRUE (default), atttempt made provide date-time class \"time\" variable make_units TRUE (default), attempt made set units property variable proxy logical; TRUE, object class stars_proxy read contains array metadata ; FALSE full array data read memory. set, defaults TRUE number cells read larger options(stars.n_proxy), 1e8 option set. downsample integer; number cells omit samples along dimension. e.g. c(1,1,2) return every cell x y every third cell third dimension (z t). 0, downsampling applied. Note transformation applied NetCDF data read using st_downsample. , proxy=TRUE, option ignored.","code":""},{"path":"/reference/read_ncdf.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Read NetCDF into stars object — read_ncdf","text":"following logic applied coordinates. coordinate axes regularly spaced coordinate variables reduced offset/delta form 'affine = c(0, 0)', otherwise values coordinates stored used define rectilinear grid. data two dimensions first two regular nominated 'raster' plotting. curvilinear argument used specifies 2D arrays containing coordinate values first two dimensions data read. currently assumed coordinates 2D relate first two dimensions order. var set first set variables shared grid used. start count columns ncsub must correspond variable dimemsion (nrows) valid index using var.get.nc convention (start 1-based). count value NA steps included. Axis order must match variable/s read.","code":""},{"path":"/reference/read_ncdf.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Read NetCDF into stars object — read_ncdf","text":"","code":"f <- system.file(\"nc/reduced.nc\", package = \"stars\") if (require(ncmeta, quietly = TRUE)) { read_ncdf(f) read_ncdf(f, var = c(\"anom\")) read_ncdf(f, ncsub = cbind(start = c(1, 1, 1, 1), count = c(10, 12, 1, 1))) } #> no 'var' specified, using sst, anom, err, ice #> other available variables: #> lon, lat, zlev, time #> 0-360 longitude crossing the international dateline encountered. #> Longitude coordinates will be0-360 in output. #> Will return stars object with 16200 cells. #> No projection information found in nc file. #> Coordinate variable units found to be degrees, #> assuming WGS84 Lat/Lon. #> 0-360 longitude crossing the international dateline encountered. #> Longitude coordinates will be0-360 in output. #> Will return stars object with 16200 cells. #> No projection information found in nc file. #> Coordinate variable units found to be degrees, #> assuming WGS84 Lat/Lon. #> no 'var' specified, using sst, anom, err, ice #> other available variables: #> lon, lat, zlev, time #> Will return stars object with 120 cells. #> No projection information found in nc file. #> Coordinate variable units found to be degrees, #> assuming WGS84 Lat/Lon. #> stars object with 4 dimensions and 4 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. NA's #> sst [°C] -1.39 -0.7200 -0.515 -0.53399999 -0.275 0.03 90 #> anom [°C] -1.07 -0.3625 0.195 0.05866667 0.555 0.92 90 #> err [°C] 0.30 0.3000 0.300 0.30299999 0.300 0.32 90 #> ice [percent] 0.01 0.1100 0.170 0.20937500 0.255 0.52 104 #> dimension(s): #> from to offset delta refsys values x/y #> lon 1 10 -1 2 WGS 84 NULL [x] #> lat 1 12 -90 2 WGS 84 NULL [y] #> zlev 1 1 NA NA NA 0 #> time 1 1 NA NA POSIXct 1981-12-31 UTC if (require(ncmeta, quietly = TRUE)) { #' precipitation data in a curvilinear NetCDF prec_file = system.file(\"nc/test_stageiv_xyt.nc\", package = \"stars\") prec = read_ncdf(prec_file, curvilinear = c(\"lon\", \"lat\"), ignore_bounds = TRUE) } #> no 'var' specified, using Total_precipitation_surface_1_Hour_Accumulation #> other available variables: #> lat, lon, time #> Will return stars object with 236118 cells. #> No projection information found in nc file. #> Coordinate variable units found to be degrees, #> assuming WGS84 Lat/Lon. ##plot(prec) ## gives error about unique breaks ## remove NAs, zeros, and give a large number ## of breaks (used for validating in detail) qu_0_omit = function(x, ..., n = 22) { x = units::drop_units(na.omit(x)) c(0, quantile(x[x > 0], seq(0, 1, length.out = n))) } if (require(dplyr, quietly = TRUE)) { prec_slice = slice(prec, index = 17, along = \"time\") plot(prec_slice, border = NA, breaks = qu_0_omit(prec_slice[[1]]), reset = FALSE) nc = sf::read_sf(system.file(\"gpkg/nc.gpkg\", package = \"sf\"), \"nc.gpkg\") plot(st_geometry(nc), add = TRUE, reset = FALSE, col = NA) }"},{"path":"/reference/read_stars.html","id":null,"dir":"Reference","previous_headings":"","what":"read raster/array dataset from file or connection — read_stars","title":"read raster/array dataset from file or connection — read_stars","text":"read raster/array dataset file connection","code":""},{"path":"/reference/read_stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"read raster/array dataset from file or connection — read_stars","text":"","code":"read_stars( .x, sub = TRUE, ..., options = character(0), driver = character(0), quiet = FALSE, NA_value = NA_real_, along = NA_integer_, RasterIO = list(), proxy = getOption(\"stars.n_proxy\") %||% 1e+08, curvilinear = character(0), normalize_path = TRUE, RAT = character(0), tolerance = 1e-10, exclude = \"\", shorten = TRUE )"},{"path":"/reference/read_stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"read raster/array dataset from file or connection — read_stars","text":".x character vector name(s) file(s) data source(s) read, function returns vector sub character, integer logical; name, index indicator sub-dataset(s) read ... passed st_as_stars curvilinear set options character; opening options driver character; driver use opening file. override fixing subdatasets autodetect well, use NULL. quiet logical; print progress output? NA_value numeric value used conversion NA values; default read input file along length-one character integer, list; determines several arrays combined, see Details. RasterIO list named parameters GDAL's RasterIO, control extent, resolution bands read data source; see details. proxy logical; TRUE, object class stars_proxy read contains array metadata ; FALSE full array data read memory. Always FALSE curvilinear girds. set number, defaults TRUE number cells read larger number. curvilinear length two character vector names subdatasets holding longitude latitude values raster cells, named length 2 list holding longitude latitude matrices; names list correspond raster dimensions referred normalize_path logical; FALSE, suppress call normalizePath .x RAT character; raster attribute table column name use factor levels tolerance numeric; passed .equal comparing dimension parameters. exclude character; vector category value(s) exclude shorten logical character; TRUE length(.x) > 1, remove common start end parts array names; character new prefix","code":""},{"path":"/reference/read_stars.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"read raster/array dataset from file or connection — read_stars","text":"object class stars","code":""},{"path":"/reference/read_stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"read raster/array dataset from file or connection — read_stars","text":"case .x contains multiple files, read combined c.stars. Along dimension, objects merged? along set NA merge arrays new attributes objects identical dimensions, else try merge along time dimension called time indicates different time stamps. single name (positive value) along merge along dimension, create new one already exist. arrays arranged along one dimensions values (e.g. time stamps), named list can passed along specify ; see example. RasterIO list zero following named arguments: nXOff, nYOff (1-based: first row/col offset value 1), nXSize, nYSize, nBufXSize, nBufYSize, bands, resample. See https://gdal.org/doxygen/classGDALDataset.html meaning; bands integer vector containing band numbers read (1-based: first band 1). Note nBufXSize nBufYSize specified downsampling image, resulting adjusted geotransform. resample reflects resampling method one : \"nearest_neighbour\" (default), \"bilinear\", \"cubic\", \"cubic_spline\", \"lanczos\", \"average\", \"mode\", \"Gauss\". Data read memory (proxy=FALSE) read numeric (double) array, except categorical variables read numeric (integer) array class factor.","code":""},{"path":"/reference/read_stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"read raster/array dataset from file or connection — read_stars","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") (x1 = read_stars(tif)) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA (x2 = read_stars(c(tif, tif))) #> stars object with 3 dimensions and 2 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> L7_ETMs.tif.1 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA (x3 = read_stars(c(tif, tif), along = \"band\")) #> stars object with 3 dimensions and 1 attribute #> attribute(s), summary of first 1e+05 cells: #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 47 65 76 77.3419 87 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 12 NA NA NA NA (x4 = read_stars(c(tif, tif), along = \"new_dimensions\")) # create 4-dimensional array #> stars object with 4 dimensions and 1 attribute #> attribute(s), summary of first 1e+05 cells: #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 47 65 76 77.3419 87 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA #> new_dimensions 1 2 NA NA NA NA x1o = read_stars(tif, options = \"OVERVIEW_LEVEL=1\") t1 = as.Date(\"2018-07-31\") # along is a named list indicating two dimensions: read_stars(c(tif, tif, tif, tif), along = list(foo = c(\"bar1\", \"bar2\"), time = c(t1, t1+2))) #> stars object with 5 dimensions and 1 attribute #> attribute(s), summary of first 1e+05 cells: #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 47 65 76 77.3419 87 255 #> dimension(s): #> from to offset delta refsys point values x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL [y] #> band 1 6 NA NA NA NA NULL #> foo 1 2 NA NA NA NA bar1, bar2 #> time 1 2 2018-07-31 2 days Date NA NULL m = matrix(1:120, nrow = 12, ncol = 10) dim(m) = c(x = 10, y = 12) # named dim st = st_as_stars(m) attr(st, \"dimensions\")$y$delta = -1 attr(st, \"dimensions\")$y$offset = 12 st #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> A1 1 30.75 60.5 60.5 90.25 120 #> dimension(s): #> from to offset delta point x/y #> x 1 10 0 1 FALSE [x] #> y 1 12 12 -1 FALSE [y] tmp = tempfile(fileext = \".tif\") write_stars(st, tmp) (red <- read_stars(tmp)) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> file61ab592fa6b2.tif 1 30.75 60.5 60.5 90.25 120 #> dimension(s): #> from to offset delta x/y #> x 1 10 0 1 [x] #> y 1 12 12 -1 [y] read_stars(tmp, RasterIO = list(nXOff = 1, nYOff = 1, nXSize = 10, nYSize = 12, nBufXSize = 2, nBufYSize = 2))[[1]] #> [,1] [,2] #> [1,] 33 93 #> [2,] 38 98 (red <- read_stars(tmp, RasterIO = list(nXOff = 1, nYOff = 1, nXSize = 10, nYSize = 12, nBufXSize = 2, nBufYSize = 2))) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> file61ab592fa6b2.tif 33 36.75 65.5 65.5 94.25 98 #> dimension(s): #> from to offset delta x/y #> x 1 2 0 5 [x] #> y 1 2 12 -6 [y] red[[1]] # cell values of subsample grid: #> [,1] [,2] #> [1,] 33 93 #> [2,] 38 98 if (FALSE) { plot(st, reset = FALSE, axes = TRUE, ylim = c(-.1,12.1), xlim = c(-.1,10.1), main = \"nBufXSize & nBufYSize demo\", text_values = TRUE) plot(st_as_sfc(red, as_points = TRUE), add = TRUE, col = 'red', pch = 16) plot(st_as_sfc(st_as_stars(st), as_points = FALSE), add = TRUE, border = 'grey') plot(st_as_sfc(red, as_points = FALSE), add = TRUE, border = 'green', lwd = 2) } file.remove(tmp) #> [1] TRUE"},{"path":"/reference/redimension.html","id":null,"dir":"Reference","previous_headings":"","what":"redimension array, or collapse attributes into a new dimension — redimension","title":"redimension array, or collapse attributes into a new dimension — redimension","text":"redimension array, collapse attributes new dimension","code":""},{"path":"/reference/redimension.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"redimension array, or collapse attributes into a new dimension — redimension","text":"","code":"st_redimension(x, new_dims, along, ...) # S3 method for stars st_redimension( x, new_dims = st_dimensions(x), along = setNames(list(names(x)), name), ..., name = \"new_dim\" ) # S3 method for stars_proxy st_redimension( x, new_dims = st_dimensions(x), along = list(new_dim = names(x)), ... )"},{"path":"/reference/redimension.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"redimension array, or collapse attributes into a new dimension — redimension","text":"x object class stars new_dims target dimensions: either `dimensions` object integer vector dimensions' sizes along named list new dimension name values ... ignored name character name new dimension","code":""},{"path":"/reference/reexports.html","id":null,"dir":"Reference","previous_headings":"","what":"Objects exported from other packages — reexports","title":"Objects exported from other packages — reexports","text":"objects imported packages. Follow links see documentation. lwgeom st_transform_proj","code":""},{"path":"/reference/st_apply.html","id":null,"dir":"Reference","previous_headings":"","what":"st_apply apply a function to one or more array dimensions — st_apply","title":"st_apply apply a function to one or more array dimensions — st_apply","text":"st_apply apply function array dimensions: aggregate space, time, something else","code":""},{"path":"/reference/st_apply.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"st_apply apply a function to one or more array dimensions — st_apply","text":"","code":"# S3 method for stars st_apply( X, MARGIN, FUN, ..., CLUSTER = NULL, PROGRESS = FALSE, FUTURE = FALSE, rename = TRUE, .fname, single_arg = has_single_arg(FUN, list(...)) || can_single_arg(FUN), keep = FALSE )"},{"path":"/reference/st_apply.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"st_apply apply a function to one or more array dimensions — st_apply","text":"X object class stars MARGIN see apply; index number(s) name(s) dimensions FUN applied FUN see apply see Details. ... arguments passed FUN CLUSTER cluster use parallel apply; see makeCluster PROGRESS logical; TRUE, use pbapply::pbapply show progress bar FUTURE logical;TRUE, use future.apply::future_apply rename logical; TRUE X one attribute FUN simple function name, rename attribute returned object function name .fname function name new attribute name (one dimensions reduced) new dimension (new dimension created); missing, name FUN used single_arg logical; TRUE, FUN takes single argument (like fn_ndvi1 ), FALSE FUN takes multiple arguments (like fn_ndvi2 ). keep logical; TRUE, preserve dimension metadata (e.g. time stamps)","code":""},{"path":"/reference/st_apply.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"st_apply apply a function to one or more array dimensions — st_apply","text":"object class stars accordingly reduced number dimensions; case FUN returns one value, new dimension created carrying name function used; see examples. Following logic apply, new dimension put dimensions; use aperm rearrange , see last example.","code":""},{"path":"/reference/st_apply.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"st_apply apply a function to one or more array dimensions — st_apply","text":"FUN function either operates single object, data iteration step dimensions MARGIN, function many arguments elements object. See NDVI examples . second form can much faster e.g. trivial function called every pixel, (example). heuristics default single_arg work often, always; try setting right value st_apply gives error.","code":""},{"path":"/reference/st_apply.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"st_apply apply a function to one or more array dimensions — st_apply","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) st_apply(x, 1:2, mean) # mean band value for each pixel #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> mean 25.5 53.33333 68.33333 68.91242 82 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] st_apply(x, c(\"x\", \"y\"), mean) # equivalent to the above #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> mean 25.5 53.33333 68.33333 68.91242 82 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] st_apply(x, 3, mean) # mean of all pixels for each band #> stars object with 1 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> mean 59.23541 61.07112 65.96675 68.91242 76.25445 83.18266 #> dimension(s): #> from to #> band 1 6 if (FALSE) { st_apply(x, \"band\", mean) # equivalent to the above st_apply(x, 1:2, range) # min and max band value for each pixel fn_ndvi1 = function(x) (x[4]-x[3])/(x[4]+x[3]) # ONE argument: will be called for each pixel fn_ndvi2 = function(red,nir) (nir-red)/(nir+red) # n arguments: will be called only once ndvi1 = st_apply(x, 1:2, fn_ndvi1) # note that we can select bands 3 and 4 in the first argument: ndvi2 = st_apply(x[,,,3:4], 1:2, fn_ndvi2) all.equal(ndvi1, ndvi2) # compute the (spatial) variance of each band; https://github.com/r-spatial/stars/issues/430 st_apply(x, 3, function(x) var(as.vector(x))) # as.vector is required! # to get a progress bar also in non-interactive mode, specify: if (require(pbapply)) { # install it, if FALSE pboptions(type = \"timer\") } st_apply(x, 1:2, range) # dimension \"range\" is first; rearrange by: st_apply(x, 1:2, range) %>% aperm(c(2,3,1)) }"},{"path":"/reference/st_as_sf.html","id":null,"dir":"Reference","previous_headings":"","what":"Convert stars object into an sf object — st_as_sf","title":"Convert stars object into an sf object — st_as_sf","text":"Convert stars object sf object","code":""},{"path":"/reference/st_as_sf.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Convert stars object into an sf object — st_as_sf","text":"","code":"# S3 method for stars st_as_sfc(x, ..., as_points, which = seq_len(prod(dim(x)[1:2]))) # S3 method for stars st_as_sf( x, ..., as_points = FALSE, merge = FALSE, na.rm = TRUE, use_integer = is.logical(x[[1]]) || is.integer(x[[1]]), long = FALSE, connect8 = FALSE ) # S3 method for stars_proxy st_as_sf(x, ..., downsample = 0)"},{"path":"/reference/st_as_sf.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Convert stars object into an sf object — st_as_sf","text":"x object class stars ... ignored as_points logical; cells converted points polygons? See details. linear index cells keep (argument recommended used) merge logical; TRUE, cells identical values merged (using GDAL_Polygonize GDAL_FPolygonize); FALSE, polygon raster cell returned; see details na.rm logical; missing valued cells removed, also converted features? use_integer (relevant merge TRUE): TRUE, polygonizing values rounded 32-bits signed integer values (GDALPolygonize), otherwise converted 32-bit floating point values (GDALFPolygonize). long logical; TRUE, return long table form sf, geometries dimensions recycled connect8 logical; TRUE, use 8 connectedness. Otherwise 4 connectedness algorithm applied. downsample see st_as_stars","code":""},{"path":"/reference/st_as_sf.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Convert stars object into an sf object — st_as_sf","text":"merge TRUE, first attribute converted sf object. na.rm FALSE, areas NA values also written polygons. Note resulting polygons typically invalid, use st_make_valid create valid polygons .","code":""},{"path":"/reference/st_as_sf.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Convert stars object into an sf object — st_as_sf","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) x = x[,1:100,1:100,6] # subset of a band with lower values in it x[[1]][x[[1]] < 30] = NA # set lower values to NA x[[1]] = x[[1]] < 100 # make the rest binary x #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> L7_ETMs.tif #> Mode :logical #> FALSE:525 #> TRUE :7665 #> NA's :1810 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 100 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 100 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 6 6 NA NA NA NA (p = st_as_sf(x)) # removes NA areas #> Simple feature collection with 8190 features and 1 field #> Geometry type: POLYGON #> Dimension: XY #> Bounding box: xmin: 288776.3 ymin: 9117911 xmax: 291626.3 ymax: 9120761 #> Projected CRS: SIRGAS 2000 / UTM zone 25S #> First 10 features: #> V1 geometry #> 1 TRUE POLYGON ((288776.3 9120761,... #> 2 TRUE POLYGON ((288804.8 9120761,... #> 3 TRUE POLYGON ((288833.3 9120761,... #> 4 TRUE POLYGON ((288861.8 9120761,... #> 5 TRUE POLYGON ((288890.3 9120761,... #> 6 TRUE POLYGON ((288918.8 9120761,... #> 7 TRUE POLYGON ((288947.3 9120761,... #> 8 TRUE POLYGON ((288975.8 9120761,... #> 9 TRUE POLYGON ((289004.3 9120761,... #> 10 TRUE POLYGON ((289032.8 9120761,... (p = st_as_sf(x[,,,1], merge = TRUE)) # glues polygons together #> Simple feature collection with 155 features and 1 field #> Geometry type: POLYGON #> Dimension: XY #> Bounding box: xmin: 288776.3 ymin: 9117911 xmax: 291626.3 ymax: 9120761 #> Projected CRS: SIRGAS 2000 / UTM zone 25S #> First 10 features: #> L7_ETMs.tif geometry #> 1 0 POLYGON ((289517.3 9120761,... #> 2 0 POLYGON ((290144.3 9120761,... #> 3 0 POLYGON ((290315.3 9120761,... #> 4 0 POLYGON ((291113.3 9120761,... #> 5 0 POLYGON ((291341.3 9120761,... #> 6 1 POLYGON ((291455.3 9120761,... #> 7 1 POLYGON ((291569.3 9120761,... #> 8 0 POLYGON ((290372.3 9120732,... #> 9 1 POLYGON ((290628.8 9120732,... #> 10 1 POLYGON ((290771.3 9120732,... all(st_is_valid(p)) # not all valid, see details #> [1] TRUE plot(p, axes = TRUE) (p = st_as_sf(x, na.rm = FALSE, merge = TRUE)) # includes polygons with NA values #> Simple feature collection with 380 features and 1 field #> Geometry type: POLYGON #> Dimension: XY #> Bounding box: xmin: 288776.3 ymin: 9117911 xmax: 291626.3 ymax: 9120761 #> Projected CRS: SIRGAS 2000 / UTM zone 25S #> First 10 features: #> L7_ETMs.tif geometry #> 1 0 POLYGON ((289517.3 9120761,... #> 2 0 POLYGON ((290144.3 9120761,... #> 3 0 POLYGON ((290315.3 9120761,... #> 4 0 POLYGON ((291113.3 9120761,... #> 5 0 POLYGON ((291341.3 9120761,... #> 6 1 POLYGON ((291455.3 9120761,... #> 7 1 POLYGON ((291569.3 9120761,... #> 8 NA POLYGON ((289745.3 9120732,... #> 9 NA POLYGON ((289830.8 9120732,... #> 10 0 POLYGON ((290372.3 9120732,... plot(p, axes = TRUE)"},{"path":"/reference/st_as_stars.html","id":null,"dir":"Reference","previous_headings":"","what":"convert objects into a stars object — st_as_stars","title":"convert objects into a stars object — st_as_stars","text":"convert objects stars object","code":""},{"path":"/reference/st_as_stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"convert objects into a stars object — st_as_stars","text":"","code":"st_as_stars(.x, ...) # S3 method for list st_as_stars(.x, ..., dimensions = NULL) # S3 method for default st_as_stars(.x = NULL, ..., raster = NULL) # S3 method for stars st_as_stars(.x, ..., curvilinear = NULL, crs = st_crs(\"OGC:CRS84\")) # S3 method for bbox st_as_stars( .x, ..., nx, ny, dx = dy, dy = dx, xlim = .x[c(\"xmin\", \"xmax\")], ylim = .x[c(\"ymin\", \"ymax\")], values = 0, n = 64800, pretty = FALSE, inside = FALSE, nz, proxy = FALSE ) # S3 method for sf st_as_stars(.x, ..., name = attr(.x, \"sf_column\")) # S3 method for Raster st_as_stars(.x, ..., att = 1, ignore_file = FALSE) # S3 method for SpatRaster st_as_stars( .x, ..., ignore_file = FALSE, as_attributes = all(terra::is.factor(.x)) ) # S3 method for ncdfgeom st_as_stars(.x, ..., sf_geometry = NA) # S3 method for stars_proxy st_as_stars( .x, ..., downsample = 0, url = attr(.x, \"url\"), envir = parent.frame() ) # S3 method for data.frame st_as_stars( .x, ..., dims = coords, xy = dims[1:2], y_decreasing = TRUE, coords = 1:2 ) # S3 method for xts st_as_stars(.x, ..., dimensions, name = \"attr\") # S3 method for OpenStreetMap st_as_stars(.x, ..., as_col = FALSE) # S3 method for cubble_df st_as_stars(.x, ..., check_times = FALSE)"},{"path":"/reference/st_as_stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"convert objects into a stars object — st_as_stars","text":".x object convert ... case .x class bbox, arguments passed pretty. case .x class nc_proxy, arguments passed read_ncdf. dimensions object class dimensions raster character; names dimensions denote raster dimensions curvilinear creating curvilinear grids: named length 2 list holding longitude latitude matrices stars arrays, names corresponding attributes .x; names vector correspond raster dimensions matrices associated ; see Details. crs object class crs coordinate reference system values curvilinear; see details nx integer; number cells x direction; see details ny integer; number cells y direction; see details dx numeric object class units; cell size x direction; see details dy numeric object class units; cell size y direction; see details xlim length 2 numeric vector extent (min, max) x direction ylim length 2 numeric vector extent (min, max) y direction values value(s) populate raster values n (approximate) target number grid cells pretty logical; cell coordinates pretty values? inside logical; cells entirely fall inside bbox, potentially covering completely (TRUE), allways cover bbox (FALSE), find good approximation (NA, default)? nz integer; number cells z direction; missing z-dimension created. proxy logical; stars_proxy object created? (requires gdal_create binary sf < 1.0-6) name character; attribute name array xts object att see factorValues; column RasterLayer's attribute table ignore_file logical; TRUE, ignore SpatRaster object file name as_attributes logical; TRUE .x one layer, load separate attributes rather band time dimension (implemented case ignore_file TRUE) sf_geometry sf data.frame geometry attributes added stars object. Must number rows timeseries instances. downsample integer: larger 0, downsample rate (number pixels skip every row/column); length 2, specifies downsampling rate x y. url character; URL stars endpoint data reside envir environment resolve objects dims column names indices form cube dimensions xy x y raster dimension names indices; takes effect dims specified y_decreasing logical; TRUE, (numeric) y values get negative delta (decrease increasing index) coords dims, symmetry st_as_sf as_col logical; return rgb numbers (FALSE) (character) color values (TRUE)? check_times logical; check time stamps time series identical?","code":""},{"path":"/reference/st_as_stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"convert objects into a stars object — st_as_stars","text":"curvilinear list stars objects longitude latitude values, coordinate reference system typically latitude longitude values. curvilinear contains names two arrays .x, removed returned object. bbox method: pretty TRUE, raster cells may extend coordinate range .x sides. addition nx ny, dx dy also missing, set single value computed sqrt(diff(xlim)*diff(ylim)/n). nx ny missing, computed (ceiling, floor, rounded integer value) ratio (x y) range divided (dx dy), depending value inside. Positive dy made negative. named arguments (...) passed pretty. dx dy units objects, value converted units st_crs(.x) (sf >= 1.0-7). ncdfgeom method: objects point-timeseries optional line polygon geometry timeseries specified sf_geometry parameter. See ncdfgeom NetCDF-based format geometry timeseries. xts methods, dimensions provided, time first dimension.","code":""},{"path":"/reference/st_as_stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"convert objects into a stars object — st_as_stars","text":"","code":"if (require(plm, quietly = TRUE)) { data(Produc, package = \"plm\") st_as_stars(Produc, y_decreasing = FALSE) data(Produc, package = \"plm\") st_as_stars(Produc, y_decreasing = FALSE) } #> #> Attaching package: ‘plm’ #> The following objects are masked from ‘package:dplyr’: #> #> between, lag, lead #> stars object with 2 dimensions and 9 attributes #> attribute(s): #> region pcap hwy water #> 5 :136 Min. : 2627 Min. : 1827 Min. : 228.5 #> 8 :136 1st Qu.: 7097 1st Qu.: 3858 1st Qu.: 764.5 #> 4 :119 Median : 17572 Median : 7556 Median : 2266.5 #> 1 :102 Mean : 25037 Mean :10218 Mean : 3618.8 #> 3 : 85 3rd Qu.: 27692 3rd Qu.:11267 3rd Qu.: 4318.7 #> 6 : 68 Max. :140217 Max. :47699 Max. :24592.3 #> (Other):170 #> util pc gsp emp #> Min. : 538.5 Min. : 4053 Min. : 4354 Min. : 108.3 #> 1st Qu.: 2488.3 1st Qu.: 21651 1st Qu.: 16502 1st Qu.: 475.0 #> Median : 7008.8 Median : 40671 Median : 39987 Median : 1164.8 #> Mean :11199.5 Mean : 58188 Mean : 61014 Mean : 1747.1 #> 3rd Qu.:11598.5 3rd Qu.: 64796 3rd Qu.: 68126 3rd Qu.: 2114.1 #> Max. :80728.1 Max. :375342 Max. :464550 Max. :11258.0 #> #> unemp #> Min. : 2.800 #> 1st Qu.: 5.000 #> Median : 6.200 #> Mean : 6.602 #> 3rd Qu.: 7.900 #> Max. :18.000 #> #> dimension(s): #> from to offset delta values x/y #> state 1 48 NA NA ALABAMA,...,WYOMING [x] #> year 1 17 1970 1 NULL [y]"},{"path":"/reference/st_cells.html","id":null,"dir":"Reference","previous_headings":"","what":"return the cell index corresponding to the location of a set of points — st_cells","title":"return the cell index corresponding to the location of a set of points — st_cells","text":"return cell index corresponding location set points","code":""},{"path":"/reference/st_cells.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"return the cell index corresponding to the location of a set of points — st_cells","text":"","code":"st_cells(x, sf)"},{"path":"/reference/st_cells.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"return the cell index corresponding to the location of a set of points — st_cells","text":"x object class stars sf object class sf sfc","code":""},{"path":"/reference/st_cells.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"return the cell index corresponding to the location of a set of points — st_cells","text":"","code":"set.seed(1345) st_bbox(L7_ETMs) |> st_as_sfc() |> st_sample(10) -> pts (x <- st_cells(L7_ETMs, pts)) #> [1] 102496 112324 74862 56976 112862 105242 75593 11784 91245 63885 # get the pixel values (first band only): st_as_stars(L7_ETMs)[[1]][x] #> [1] 92 92 89 76 67 94 77 98 113 56 # get pixel values for all bands: st_as_stars(L7_ETMs) |> split() |> sapply(`[`, x) #> X1 X2 X3 X4 X5 X6 #> [1,] 92 81 60 14 14 11 #> [2,] 92 83 59 13 13 12 #> [3,] 89 83 88 66 113 92 #> [4,] 76 63 66 61 108 78 #> [5,] 67 55 50 65 69 38 #> [6,] 94 81 92 60 125 105 #> [7,] 77 63 65 58 114 93 #> [8,] 98 85 88 57 93 80 #> [9,] 113 98 104 66 110 94 #> [10,] 56 40 27 68 50 24 # compare with st_extract(): st_as_stars(L7_ETMs) |> split() |> st_extract(pts) #> Simple feature collection with 10 features and 6 fields #> Geometry type: POINT #> Dimension: XY #> Bounding box: xmin: 289267.4 ymin: 9111549 xmax: 297166.8 ymax: 9119794 #> Projected CRS: SIRGAS 2000 / UTM zone 25S #> X1 X2 X3 X4 X5 X6 geometry #> 1 92 81 60 14 14 11 POINT (295582.2 9112406) #> 2 92 83 59 13 13 12 POINT (297166.8 9111599) #> 3 89 83 88 66 113 92 POINT (293775.8 9114659) #> 4 76 63 66 61 108 78 POINT (291294.7 9116093) #> 5 67 55 50 65 69 38 POINT (292609.8 9111549) #> 6 94 81 92 60 125 105 POINT (294276.2 9112159) #> 7 77 63 65 58 114 93 POINT (294731 9114598) #> 8 98 85 88 57 93 80 POINT (296360.6 9119794) #> 9 113 98 104 66 110 94 POINT (293206.5 9113313) #> 10 56 40 27 68 50 24 POINT (289267.4 9115521)"},{"path":"/reference/st_contour.html","id":null,"dir":"Reference","previous_headings":"","what":"Compute or plot contour lines or sets — st_contour","title":"Compute or plot contour lines or sets — st_contour","text":"Compute contour lines sets","code":""},{"path":"/reference/st_contour.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Compute or plot contour lines or sets — st_contour","text":"","code":"st_contour( x, na.rm = TRUE, contour_lines = FALSE, breaks = classInt::classIntervals(na.omit(as.vector(x[[1]])))$brks )"},{"path":"/reference/st_contour.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Compute or plot contour lines or sets — st_contour","text":"x object class stars na.rm logical; missing valued cells removed, also converted features? contour_lines logical; FALSE, polygons returned (contour sets), otherwise contour lines breaks numerical; values \"draw\" contour levels","code":""},{"path":"/reference/st_contour.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Compute or plot contour lines or sets — st_contour","text":"function requires GDAL >= 2.4.0","code":""},{"path":[]},{"path":"/reference/st_coordinates.html","id":null,"dir":"Reference","previous_headings":"","what":"retrieve coordinates for raster or vector cube cells — st_coordinates","title":"retrieve coordinates for raster or vector cube cells — st_coordinates","text":"retrieve coordinates raster vector cube cells","code":""},{"path":"/reference/st_coordinates.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"retrieve coordinates for raster or vector cube cells — st_coordinates","text":"","code":"# S3 method for stars st_coordinates(x, ..., add_max = FALSE, center = TRUE) # S3 method for stars as.data.frame(x, ..., add_max = FALSE, center = NA) as_tibble.stars(.x, ..., add_max = FALSE, center = NA)"},{"path":"/reference/st_coordinates.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"retrieve coordinates for raster or vector cube cells — st_coordinates","text":"x object class stars ... ignored add_max logical; TRUE, dimensions given min (x) max (x_max) value center logical; (add_max FALSE): grid cell center coordinates returned (TRUE) offset values (FALSE)? center can named logical vector list specify values dimension. .x object converted tibble","code":""},{"path":"/reference/st_crop.html","id":null,"dir":"Reference","previous_headings":"","what":"crop a stars object — st_crop","title":"crop a stars object — st_crop","text":"crop stars object","code":""},{"path":"/reference/st_crop.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"crop a stars object — st_crop","text":"","code":"# S3 method for stars_proxy st_crop( x, y, ..., crop = TRUE, epsilon = sqrt(.Machine$double.eps), collect = TRUE ) # S3 method for stars st_crop( x, y, ..., crop = TRUE, epsilon = sqrt(.Machine$double.eps), as_points = all(st_dimension(y) == 2, na.rm = TRUE) )"},{"path":"/reference/st_crop.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"crop a stars object — st_crop","text":"x object class stars y object class sf, sfc bbox; see Details . ... ignored crop logical; TRUE, spatial extent returned object cropped still cover obj, FALSE, extent remains cells outside y given NA values. epsilon numeric; factor shrink bounding box y towards center cropping. collect logical; TRUE, repeat cropping stars object, .e. data read as_points logical; relevant y class sf sfc: FALSE, treat x set points, else set small polygons. Default: TRUE y two-dimensional, else FALSE; see Details","code":""},{"path":"/reference/st_crop.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"crop a stars object — st_crop","text":"raster x, st_crop selects cells intersect y. intersection, raster cells interpreted points small polygons? y class stars, x raster cells interpreted points; y class bbox, x cells interpreted cells (small polygons). Otherwise, as_points given, cells interpreted points y two-dimensional geometry.","code":""},{"path":"/reference/st_crop.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"crop a stars object — st_crop","text":"","code":"l7 = read_stars(system.file(\"tif/L7_ETMs.tif\", package = \"stars\")) d = st_dimensions(l7) # area around cells 3:10 (x) and 4:11 (y): offset = c(d[[\"x\"]]$offset, d[[\"y\"]]$offset) res = c(d[[\"x\"]]$delta, d[[\"y\"]]$delta) bb = st_bbox(c(xmin = offset[1] + 2 * res[1], ymin = offset[2] + 11 * res[2], xmax = offset[1] + 10 * res[1], ymax = offset[2] + 3 * res[2]), crs = st_crs(l7)) l7[bb] #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 17 43 55.5 56.36979 65 111 #> dimension(s): #> from to offset delta refsys point x/y #> x 3 10 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 4 11 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA # equivalent: st_crop(l7, bb) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 17 43 55.5 56.36979 65 111 #> dimension(s): #> from to offset delta refsys point x/y #> x 3 10 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 4 11 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(l7[,1:13,1:13,1], reset = FALSE) image(l7[bb,,,1], add = TRUE, col = sf.colors()) plot(st_as_sfc(bb), add = TRUE, border = 'green', lwd = 2) # slightly smaller bbox: bb = st_bbox(c(xmin = offset[1] + 2.1 * res[1], ymin = offset[2] + 10.9 * res[2], xmax = offset[1] + 9.9 * res[1], ymax = offset[2] + 3.1 * res[2]), crs = st_crs(l7)) l7[bb] #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 17 43 55.5 56.36979 65 111 #> dimension(s): #> from to offset delta refsys point x/y #> x 3 10 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 4 11 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(l7[,1:13,1:13,1], reset = FALSE) image(l7[bb,,,1], add = TRUE, col = sf.colors()) plot(st_as_sfc(bb), add = TRUE, border = 'green', lwd = 2) # slightly larger bbox: bb = st_bbox(c(xmin = offset[1] + 1.9 * res[1], ymin = offset[2] + 11.1 * res[2], xmax = offset[1] + 10.1 * res[1], ymax = offset[2] + 2.9 * res[2]), crs = st_crs(l7)) l7[bb] #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 17 43 55 56.11167 66 112 #> dimension(s): #> from to offset delta refsys point x/y #> x 2 11 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 3 12 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(l7[,1:13,1:13,1], reset = FALSE) image(l7[bb,,,1], add = TRUE, col = sf.colors()) plot(st_as_sfc(bb), add = TRUE, border = 'green', lwd = 2) # half a cell size larger bbox: bb = st_bbox(c(xmin = offset[1] + 1.49 * res[1], ymin = offset[2] + 11.51 * res[2], xmax = offset[1] + 10.51 * res[1], ymax = offset[2] + 2.49 * res[2]), crs = st_crs(l7)) l7[bb] #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 17 43 55 56.11167 66 112 #> dimension(s): #> from to offset delta refsys point x/y #> x 2 11 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 3 12 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(l7[,1:13,1:13,1], reset = FALSE) image(l7[bb,,,1], add = TRUE, col = sf.colors()) plot(st_as_sfc(bb), add = TRUE, border = 'green', lwd = 2)"},{"path":"/reference/st_dim_to_attr.html","id":null,"dir":"Reference","previous_headings":"","what":"create an array with dimension values — st_dim_to_attr","title":"create an array with dimension values — st_dim_to_attr","text":"create array dimension values","code":""},{"path":"/reference/st_dim_to_attr.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"create an array with dimension values — st_dim_to_attr","text":"","code":"st_dim_to_attr(x, which = seq_along(dim(x)))"},{"path":"/reference/st_dim_to_attr.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"create an array with dimension values — st_dim_to_attr","text":"x object class stars integer; indices dimensions address (default: )","code":""},{"path":"/reference/st_dim_to_attr.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"create an array with dimension values — st_dim_to_attr","text":"stars object dimension values attributes","code":""},{"path":"/reference/st_dim_to_attr.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"create an array with dimension values — st_dim_to_attr","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x1 = read_stars(tif) (x = st_dim_to_attr(x1)) #> stars object with 3 dimensions and 3 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> x 288790.5 291270 293749.5 293749.5 296229 298708.5 #> y 9110743.0 9113244 9115744.8 9115744.8 9118246 9120746.5 #> band 1.0 2 3.5 3.5 5 6.0 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(x) (x = st_dim_to_attr(x1, 2:3)) #> stars object with 3 dimensions and 2 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> y 9110743 9113244 9115744.8 9115744.8 9118246 9120747 #> band 1 2 3.5 3.5 5 6 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(x) (x= st_dim_to_attr(x1, 3)) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> band 1 2 3.5 3.5 5 6 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(x)"},{"path":"/reference/st_dimensions.html","id":null,"dir":"Reference","previous_headings":"","what":"get dimensions from stars object — st_dimensions","title":"get dimensions from stars object — st_dimensions","text":"get dimensions stars object","code":""},{"path":"/reference/st_dimensions.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"get dimensions from stars object — st_dimensions","text":"","code":"st_dimensions(.x, ...) # S3 method for stars st_dimensions(.x, ...) st_dimensions(x) <- value # S3 method for stars st_dimensions(x) <- value # S3 method for stars_proxy st_dimensions(x) <- value # S3 method for list st_dimensions(x) <- value # S3 method for array st_dimensions(.x, ...) # S3 method for default st_dimensions( .x, ..., .raster, affine = c(0, 0), cell_midpoints = FALSE, point = FALSE ) st_set_dimensions( .x, which, values = NULL, point = NULL, names = NULL, xy, ... ) st_get_dimension_values(.x, which, ..., where = NA, max = FALSE, center = NA)"},{"path":"/reference/st_dimensions.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"get dimensions from stars object — st_dimensions","text":".x object retrieve dimensions information ... arguments x object class dimensions value new object class dimensions, matching dimensions .raster length 2 character array names () raster dimensions affine numeric; specify parameters affine transformation cell_midpoints logical; TRUE dimension values strictly regular, values interpreted cell midpoint values rather cell offset values calculating offset (.e., half-cell-size correction applied); can value dimension, else recycled point logical; pixel value (measure) refer point (location) value pixel (area) summary value? integer character; index name dimension changed values values dimension (e.g. sfc list-column), length-1 dimensions object; setting special value NULL removes dimension values, instance remove curvilinear raster coordinates names character; vector new names dimensions, single new name dimension indicated xy length-2 character vector; (new) names x y raster dimensions character, one 'start', 'center' 'end'. Set NA (default) ignore use max center explictly. argument provides convenient alternative setting max center. max logical; TRUE return end, rather beginning interval center logical; TRUE return center interval; NA return center raster dimensions, start intervals cases","code":""},{"path":"/reference/st_dimensions.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"get dimensions from stars object — st_dimensions","text":"dimensions attribute x, class dimensions","code":""},{"path":"/reference/st_dimensions.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"get dimensions from stars object — st_dimensions","text":"dimensions can specified two ways. simplest pass vector numeric values numeric dimension, character values categorical dimension. Parameter cell_midpoints used specify whether numeric values refer offset (start) dimension interval (default), center; center case available regular dimensions. rectilinear numeric dimensions, one can specify either vector cell borders (start values), data.frame two columns named \"start\" \"end\", respective interval start end values. first case, end values computed start values assuming last two intervals equal width.","code":""},{"path":"/reference/st_dimensions.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"get dimensions from stars object — st_dimensions","text":"","code":"x = read_stars(system.file(\"tif/L7_ETMs.tif\", package = \"stars\")) # Landsat 7 ETM+ band semantics: https://landsat.gsfc.nasa.gov/the-enhanced-thematic-mapper-plus/ # set bands to values 1,2,3,4,5,7: (x1 = st_set_dimensions(x, \"band\", values = c(1,2,3,4,5,7), names = \"band_number\", point = TRUE)) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point values x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL [y] #> band_number 1 6 NA NA NA TRUE 1,...,7 # set band values as bandwidth rbind(c(0.45,0.515), c(0.525,0.605), c(0.63,0.69), c(0.775,0.90), c(1.55,1.75), c(2.08,2.35)) %>% units::set_units(\"um\") -> bw # or: units::set_units(µm) -> bw # set bandwidth midpoint: (x2 = st_set_dimensions(x, \"band\", values = 0.5 * (bw[,1]+bw[,2]), names = \"bandwidth_midpoint\", point = TRUE)) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE #> bandwidth_midpoint 1 6 NA NA udunits TRUE #> values x/y #> x NULL [x] #> y NULL [y] #> bandwidth_midpoint 0.4825 [um],...,2.215 [um] # set bandwidth intervals: (x3 = st_set_dimensions(x, \"band\", values = make_intervals(bw), names = \"bandwidth\")) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE #> bandwidth 1 6 NA NA udunits NA #> values x/y #> x NULL [x] #> y NULL [y] #> bandwidth [0.45,0.515) [um],...,[2.08,2.35) [um] m = matrix(1:20, nrow = 5, ncol = 4) dim(m) = c(x = 5, y = 4) # named dim (s = st_as_stars(m)) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> A1 1 5.75 10.5 10.5 15.25 20 #> dimension(s): #> from to offset delta point x/y #> x 1 5 0 1 FALSE [x] #> y 1 4 0 1 FALSE [y] st_get_dimension_values(s, 'x', where = \"start\") #> [1] 0 1 2 3 4 st_get_dimension_values(s, 'x', center = FALSE) #> [1] 0 1 2 3 4 st_get_dimension_values(s, 'x', where = \"center\") #> [1] 0.5 1.5 2.5 3.5 4.5 st_get_dimension_values(s, 'x', center = TRUE) #> [1] 0.5 1.5 2.5 3.5 4.5 st_get_dimension_values(s, 'x', where = \"end\") #> [1] 1 2 3 4 5 st_get_dimension_values(s, 'x', max = TRUE) #> [1] 1 2 3 4 5"},{"path":"/reference/st_downsample.html","id":null,"dir":"Reference","previous_headings":"","what":"downsample stars or stars_proxy object by skipping rows, columns and bands — st_downsample","title":"downsample stars or stars_proxy object by skipping rows, columns and bands — st_downsample","text":"downsample stars stars_proxy object skipping rows, columns bands","code":""},{"path":"/reference/st_downsample.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"downsample stars or stars_proxy object by skipping rows, columns and bands — st_downsample","text":"","code":"st_downsample(x, n, ...) # S3 method for stars st_downsample(x, n, ...) # S3 method for stars_proxy st_downsample(x, n, ...)"},{"path":"/reference/st_downsample.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"downsample stars or stars_proxy object by skipping rows, columns and bands — st_downsample","text":"x object class stars stars_proxy n numeric; number pixels/lines/bands etc skipped; see Details. ... ignored","code":""},{"path":"/reference/st_downsample.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"downsample stars or stars_proxy object by skipping rows, columns and bands — st_downsample","text":"n == 0, downsampling takes place; 1, every second row/column/band skipped, 2, every second+third row/column/band skipped, etc. Downsampling stars_proxy object returns stars object, equivalent calling st_as_stars(x, downsample = 2), downsamples first two (x y) dimensions. Downsampled regular rasters keep dimension offsets, cell size (delta) n[]+1 times larger, may result (slightly) different extent.","code":""},{"path":"/reference/st_extract.html","id":null,"dir":"Reference","previous_headings":"","what":"Extract cell values at point locations — st_extract","title":"Extract cell values at point locations — st_extract","text":"Extract cell values point locations","code":""},{"path":"/reference/st_extract.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Extract cell values at point locations — st_extract","text":"","code":"st_extract(x, ...) # S3 method for stars st_extract( x, at, ..., bilinear = FALSE, time_column = attr(at, \"time_column\") %||% attr(at, \"time_col\"), interpolate_time = bilinear, FUN = mean )"},{"path":"/reference/st_extract.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Extract cell values at point locations — st_extract","text":"x object class stars stars_proxy ... passed aggregate.stars geometries exclusively POINT geometries object class sf sfc geometries, two-column matrix coordinate points rows, indicating extract values x bilinear logical; use bilinear interpolation rather nearest neighbour? time_column character integer; name index column time date values matched values dimension \"time\" x, dimension reduced. useful extract data cube values along trajectory; see https://github.com/r-spatial/stars/issues/352 . interpolate_time logical; time interpolated? FALSE, time instances matched using coinciding last preceding time data cube. FUN function used aggregate pixel values geometries intersect one pixel","code":""},{"path":"/reference/st_extract.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Extract cell values at point locations — st_extract","text":"class matrix, matrix extracted values returned; otherwise: x dimensions x y (raster), object class stars POINT geometries replacing x y raster dimensions, case, object sf extracted values.","code":""},{"path":"/reference/st_extract.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Extract cell values at point locations — st_extract","text":"points outside raster returned NA values. large sets points extraction needed, passing matrix may much faster passing sf sfc object.","code":""},{"path":"/reference/st_extract.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Extract cell values at point locations — st_extract","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") r = read_stars(tif) pnt = st_sample(st_as_sfc(st_bbox(r)), 10) st_extract(r, pnt) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 12 60.75 74 72.51667 87 150 #> dimension(s): #> from to refsys point #> geometry 1 10 SIRGAS 2000 / UTM zone 25S TRUE #> band 1 6 NA NA #> values #> geometry POINT (298340.2 9114943),...,POINT (289531.4 9111471) #> band NULL st_extract(r, pnt) %>% st_as_sf() #> Simple feature collection with 10 features and 6 fields #> Geometry type: POINT #> Dimension: XY #> Bounding box: xmin: 288950.3 ymin: 9111189 xmax: 298340.2 ymax: 9119338 #> Projected CRS: SIRGAS 2000 / UTM zone 25S #> L7_ETMs.tif.V1 L7_ETMs.tif.V2 L7_ETMs.tif.V3 L7_ETMs.tif.V4 L7_ETMs.tif.V5 #> 1 97 88 67 14 13 #> 2 82 66 74 49 107 #> 3 66 54 46 73 79 #> 4 80 68 69 77 117 #> 5 87 85 104 87 120 #> 6 90 83 65 13 13 #> 7 63 46 38 65 83 #> 8 110 101 114 74 150 #> 9 80 68 74 54 110 #> 10 80 65 65 44 84 #> L7_ETMs.tif.V6 geometry #> 1 12 POINT (298340.2 9114943) #> 2 82 POINT (293918.4 9114415) #> 3 42 POINT (293485.2 9118749) #> 4 86 POINT (294440.9 9114839) #> 5 79 POINT (295209 9118813) #> 6 12 POINT (295048.9 9111189) #> 7 50 POINT (289649.4 9116888) #> 8 128 POINT (295730.3 9119338) #> 9 88 POINT (288950.3 9111816) #> 10 71 POINT (289531.4 9111471) st_extract(r[,,,1], pnt) #> Simple feature collection with 10 features and 1 field #> Geometry type: POINT #> Dimension: XY #> Bounding box: xmin: 288950.3 ymin: 9111189 xmax: 298340.2 ymax: 9119338 #> Projected CRS: SIRGAS 2000 / UTM zone 25S #> L7_ETMs.tif geometry #> 1 97 POINT (298340.2 9114943) #> 2 82 POINT (293918.4 9114415) #> 3 66 POINT (293485.2 9118749) #> 4 80 POINT (294440.9 9114839) #> 5 87 POINT (295209 9118813) #> 6 90 POINT (295048.9 9111189) #> 7 63 POINT (289649.4 9116888) #> 8 110 POINT (295730.3 9119338) #> 9 80 POINT (288950.3 9111816) #> 10 80 POINT (289531.4 9111471) st_extract(r, st_coordinates(pnt)) # \"at\" is a matrix: return a matrix #> [,1] [,2] [,3] [,4] [,5] [,6] #> [1,] 97 88 67 14 13 12 #> [2,] 82 66 74 49 107 82 #> [3,] 66 54 46 73 79 42 #> [4,] 80 68 69 77 117 86 #> [5,] 87 85 104 87 120 79 #> [6,] 90 83 65 13 13 12 #> [7,] 63 46 38 65 83 50 #> [8,] 110 101 114 74 150 128 #> [9,] 80 68 74 54 110 88 #> [10,] 80 65 65 44 84 71"},{"path":"/reference/st_intersects.stars.html","id":null,"dir":"Reference","previous_headings":"","what":"spatial intersect predicate for stars and sfc object — st_intersects.stars","title":"spatial intersect predicate for stars and sfc object — st_intersects.stars","text":"spatial intersect predicate stars sfc object","code":""},{"path":"/reference/st_intersects.stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"spatial intersect predicate for stars and sfc object — st_intersects.stars","text":"","code":"# S3 method for stars st_intersects(x, y, sparse = TRUE, ..., as_points = NA, transpose = FALSE)"},{"path":"/reference/st_intersects.stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"spatial intersect predicate for stars and sfc object — st_intersects.stars","text":"x object class stars y object `st_geometry` method: class `sf` `sfc`, `stars` object `sfc` dimension sparse logical; TRUE, return sparse logical matrix (object class `sgbp`), FALSE, return logical matrix ... ignored, passed `st_intersects.sf` curvilinear grids as_points logical, grid cells considered points (TRUE) polygons (FALSE)? Default: FALSE warning emitted transpose logical; transpose `sgbp` object returned?","code":""},{"path":"/reference/st_intersects.stars.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"spatial intersect predicate for stars and sfc object — st_intersects.stars","text":"`sgbp` object sparse = TRUE, logical matrix otherwise","code":""},{"path":"/reference/st_intersects.stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"spatial intersect predicate for stars and sfc object — st_intersects.stars","text":"curvilinear grids always converted polygons, points grid boundaries may intersect two cells touched; grids cell boundary corner belongs one cell.","code":""},{"path":"/reference/st_join.stars.html","id":null,"dir":"Reference","previous_headings":"","what":"Spatially join a stars and an `sf` object — st_join.stars","title":"Spatially join a stars and an `sf` object — st_join.stars","text":"Spatially join stars `sf` object","code":""},{"path":"/reference/st_join.stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Spatially join a stars and an `sf` object — st_join.stars","text":"","code":"# S3 method for stars st_join( x, y, join = st_intersects, ..., what = \"left1\", as_points = NA, warn = TRUE )"},{"path":"/reference/st_join.stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Spatially join a stars and an `sf` object — st_join.stars","text":"x object class stars y object class sf, one can coerced st_as_sf join join function, return sgbp object; see details ... arguments passed join function \"left1\", \"right\" \"inner\"; see details as_points logical; controls whether grid cells x treated points, cell areas; st_intersects.stars method default derive x's metadata, else assume areas. warn logical; TRUE, warn 1--many matches \"left1\"","code":""},{"path":"/reference/st_join.stars.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Spatially join a stars and an `sf` object — st_join.stars","text":"\"left1\", object class stars (first) value y spatial instances x","code":""},{"path":"/reference/st_join.stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Spatially join a stars and an `sf` object — st_join.stars","text":"one match single x value, first matching record y taken (warn TRUE warning raised). \"inner\", object class sf matching records x y.","code":""},{"path":"/reference/st_mosaic.html","id":null,"dir":"Reference","previous_headings":"","what":"build mosaic (composite) of several spatially disjoint stars objects — st_mosaic","title":"build mosaic (composite) of several spatially disjoint stars objects — st_mosaic","text":"build mosaic (composite) several spatially disjoint stars objects","code":""},{"path":"/reference/st_mosaic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"build mosaic (composite) of several spatially disjoint stars objects — st_mosaic","text":"","code":"st_mosaic(.x, ...) # S3 method for stars st_mosaic( .x, ..., dst = tempfile(fileext = file_ext), options = c(\"-vrtnodata\", \"-9999\", \"-srcnodata\", \"nan\"), file_ext = \".tif\" ) # S3 method for character st_mosaic( .x, ..., dst = tempfile(fileext = file_ext), options = c(\"-vrtnodata\", \"-9999\"), file_ext = \".tif\" ) # S3 method for stars_proxy st_mosaic( .x, ..., dst = tempfile(fileext = file_ext), options = c(\"-vrtnodata\", \"-9999\"), file_ext = \".tif\" )"},{"path":"/reference/st_mosaic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"build mosaic (composite) of several spatially disjoint stars objects — st_mosaic","text":".x object class stars, character vector input dataset names ... input stars objects dst character; destination file name options character; options gdalbuildvrt command file_ext character; file extension, determining format used write (\".tif\" implies GeoTIFF)","code":""},{"path":"/reference/st_mosaic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"build mosaic (composite) of several spatially disjoint stars objects — st_mosaic","text":"stars method returns stars object composite input; character method returns file name file mosaic; see also GDAL documentation gdalbuildvrt","code":""},{"path":"/reference/st_mosaic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"build mosaic (composite) of several spatially disjoint stars objects — st_mosaic","text":"gdal function buildvrt builds mosaic input images; imput images can multi-band, higher-dimensional data cubes stars objects multiple attributes uses gdal_utils internally call buildvrt; executables external R called.","code":""},{"path":"/reference/st_mosaic.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"build mosaic (composite) of several spatially disjoint stars objects — st_mosaic","text":"","code":"x = read_stars(system.file(\"tif/L7_ETMs.tif\", package = \"stars\")) x1 = x[,100:200,100:200,] x2 = x[,150:300,150:300,] plot(st_mosaic(x1, x2))"},{"path":"/reference/st_raster_type.html","id":null,"dir":"Reference","previous_headings":"","what":"get the raster type (if any) of a stars object — st_raster_type","title":"get the raster type (if any) of a stars object — st_raster_type","text":"get raster type () stars object","code":""},{"path":"/reference/st_raster_type.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"get the raster type (if any) of a stars object — st_raster_type","text":"","code":"st_raster_type(x, dimension = character(0))"},{"path":"/reference/st_raster_type.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"get the raster type (if any) of a stars object — st_raster_type","text":"x object class stars dimension optional: numbers names dimension(s) get per-dimension type","code":""},{"path":"/reference/st_raster_type.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"get the raster type (if any) of a stars object — st_raster_type","text":"dimension specified, return spatial raster type: one NA (object raster dimensions), \"curvilinear\", \"rectilinear\", \"affine\", \"regular\". case dimension(s) specified, return one \"regular\", \"rectilinear\" (irregular numeric), \"discrete\" (anything else).","code":""},{"path":"/reference/st_raster_type.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"get the raster type (if any) of a stars object — st_raster_type","text":"categories \"curvilinear\" \"affine\" refer relationship pair spatial (raster) dimensions.","code":""},{"path":"/reference/st_raster_type.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"get the raster type (if any) of a stars object — st_raster_type","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) st_raster_type(x) #> [1] \"regular\" st_raster_type(x, 1:3) #> x y band #> \"regular\" \"regular\" \"discrete\""},{"path":"/reference/st_rasterize.html","id":null,"dir":"Reference","previous_headings":"","what":"rasterize simple feature geometries — st_rasterize","title":"rasterize simple feature geometries — st_rasterize","text":"rasterize simple feature geometries","code":""},{"path":"/reference/st_rasterize.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"rasterize simple feature geometries — st_rasterize","text":"","code":"st_rasterize( sf, template = guess_raster(sf, ...) %||% st_as_stars(st_bbox(sf), values = NA_real_, ...), file = tempfile(), driver = \"GTiff\", options = character(0), align = FALSE, proxy = FALSE, ... )"},{"path":"/reference/st_rasterize.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"rasterize simple feature geometries — st_rasterize","text":"sf object class sf template stars object desired target geometry, target geometry alignment align=TRUE file temporary file name driver driver temporary file options character; options vector GDALRasterize align logical; TRUE, template contain geometry alignment, informing target resolution offset . proxy logical; proxy object returned? ... arguments passed st_as_stars","code":""},{"path":"/reference/st_rasterize.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"rasterize simple feature geometries — st_rasterize","text":"","code":"demo(nc, echo = FALSE, ask = FALSE) (x = st_rasterize(nc)) # default grid: #> stars object with 2 dimensions and 12 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. NA's #> AREA 0.042 0.108 0.142 1.451932e-01 0.181 0.241 30904 #> PERIMETER 0.999 1.461 1.716 1.786110e+00 2.004 3.640 30904 #> CNTY_ 1825.000 1907.000 1989.000 1.998403e+03 2085.000 2241.000 30904 #> CNTY_ID 1825.000 1907.000 1989.000 1.998403e+03 2085.000 2241.000 30904 #> FIPSNO 37001.000 37049.000 37101.000 3.710042e+04 37153.000 37199.000 30904 #> CRESS_ID 1.000 25.000 51.000 5.071206e+01 77.000 100.000 30904 #> BIR74 248.000 1323.000 2648.000 3.791637e+03 4139.000 21588.000 30904 #> SID74 0.000 3.000 5.000 7.891985e+00 10.000 44.000 30904 #> NWBIR74 1.000 297.000 844.000 1.246210e+03 1396.000 8027.000 30904 #> BIR79 319.000 1606.000 3108.000 4.852046e+03 5400.000 30757.000 30904 #> SID79 0.000 3.000 6.000 9.584098e+00 13.000 57.000 30904 #> NWBIR79 3.000 360.000 1058.000 1.604642e+03 1524.000 11631.000 30904 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 461 -84.32 0.01925 NAD27 FALSE [x] #> y 1 141 36.59 -0.01925 NAD27 FALSE [y] plot(x, axes = TRUE) # a bit more customized grid: (x = st_rasterize(nc, st_as_stars(st_bbox(nc), nx = 100, ny = 50, values = NA_real_))) #> stars object with 2 dimensions and 12 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. NA's #> AREA 0.042 0.108 0.142 0.145536 0.181 0.241 2373 #> PERIMETER 0.999 1.470 1.716 1.789032 2.004 3.640 2373 #> CNTY_ 1825.000 1908.000 1989.000 1999.761325 2088.000 2241.000 2373 #> CNTY_ID 1825.000 1908.000 1989.000 1999.761325 2088.000 2241.000 2373 #> FIPSNO 37001.000 37049.000 37101.000 37100.327750 37151.000 37199.000 2373 #> CRESS_ID 1.000 25.000 51.000 50.663875 76.000 100.000 2373 #> BIR74 248.000 1323.500 2648.000 3790.530263 4139.000 21588.000 2373 #> SID74 0.000 3.000 5.000 7.905976 10.000 44.000 2373 #> NWBIR74 1.000 289.000 844.000 1246.116483 1396.000 8027.000 2373 #> BIR79 319.000 1606.000 3108.000 4848.231062 5386.000 30757.000 2373 #> SID79 0.000 3.000 6.000 9.574419 13.000 57.000 2373 #> NWBIR79 3.000 360.000 1058.000 1602.740769 1524.000 11631.000 2373 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 100 -84.32 0.08867 NAD27 FALSE [x] #> y 1 50 36.59 -0.05415 NAD27 FALSE [y] plot(x, axes = TRUE) (ls = st_sf(a = 1:2, st_sfc(st_linestring(rbind(c(0.1, 0), c(1.1, 1))), st_linestring(rbind(c(0, 0.05), c(1, 0.05)))))) #> Simple feature collection with 2 features and 1 field #> Geometry type: LINESTRING #> Dimension: XY #> Bounding box: xmin: 0 ymin: 0 xmax: 1.1 ymax: 1 #> CRS: NA #> a #> 1 1 #> 2 2 #> c..st_sfc.st_linestring.rbind.c.0.1..0...c.1.1..1.....st_linestring.rbind.c.0..........0.05...c.1..0.05...... #> 1 LINESTRING (0.1 0, 1.1 1) #> 2 LINESTRING (0 0.05, 1 0.05) (grd = st_as_stars(st_bbox(ls), nx = 10, ny = 10, xlim = c(0, 1.0), ylim = c(0, 1), values = NA_real_)) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. NA's #> values NA NA NA NaN NA NA 100 #> dimension(s): #> from to offset delta x/y #> x 1 10 0 0.1 [x] #> y 1 10 1 -0.1 [y] # Only the left-top corner is part of the grid cell: sf_extSoftVersion()[\"GDAL\"] #> GDAL #> \"3.4.1\" plot(st_rasterize(ls, grd), axes = TRUE, reset = FALSE) # ALL_TOUCHED=FALSE; plot(ls, add = TRUE, col = \"red\") plot(st_rasterize(ls, grd, options = \"ALL_TOUCHED=TRUE\"), axes = TRUE, reset = FALSE) plot(ls, add = TRUE, col = \"red\") # add lines to existing 0 values, summing values in case of multiple lines: (grd = st_as_stars(st_bbox(ls), nx = 10, ny = 10, xlim = c(0, 1.0), ylim = c(0, 1), values = 0)) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> values 0 0 0 0 0 0 #> dimension(s): #> from to offset delta x/y #> x 1 10 0 0.1 [x] #> y 1 10 1 -0.1 [y] r = st_rasterize(ls, grd, options = c(\"MERGE_ALG=ADD\", \"ALL_TOUCHED=TRUE\")) plot(r, axes = TRUE, reset = FALSE) plot(ls, add = TRUE, col = \"red\")"},{"path":"/reference/st_res.html","id":null,"dir":"Reference","previous_headings":"","what":"obtain (spatial) resolution of a stars object — st_res","title":"obtain (spatial) resolution of a stars object — st_res","text":"obtain resolution(s) stars object: default (absolute) x/y raster dimensions, optionally delta dimension parameters","code":""},{"path":"/reference/st_res.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"obtain (spatial) resolution of a stars object — st_res","text":"","code":"st_res(x, all = FALSE, absolute = !all)"},{"path":"/reference/st_res.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"obtain (spatial) resolution of a stars object — st_res","text":"x object class stars logical; FALSE return vector x/y raster resolution absolute logical; works = FALSE; TRUE return absolute resolution values, FALSE return delta values","code":""},{"path":"/reference/st_res.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"obtain (spatial) resolution of a stars object — st_res","text":"= FALSE vector x/y raster resolutions, otherwise list delta values","code":""},{"path":"/reference/st_res.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"obtain (spatial) resolution of a stars object — st_res","text":"","code":"st_res(L7_ETMs) #> x y #> 28.5 28.5 st_res(L7_ETMs, absolute = FALSE) #> x y #> 28.5 -28.5 st_res(L7_ETMs, all = TRUE) #> $x #> [1] 28.5 #> #> $y #> [1] -28.5 #> #> $band #> [1] NA #> if (require(starsdata)) { paste0(\"netcdf/\", c(\"avhrr-only-v2.19810901.nc\", \"avhrr-only-v2.19810902.nc\", \"avhrr-only-v2.19810903.nc\", \"avhrr-only-v2.19810904.nc\")) |> system.file(package = \"starsdata\") |> read_stars(quiet = TRUE) -> x st_res(x) |> print() st_res(x, all = TRUE) |> print() } #> Loading required package: starsdata #> x y #> 0.25 0.25 #> $x #> [1] 0.25 #> #> $y #> [1] -0.25 #> #> $zlev #> [1] NA #> #> $time #> Time difference of 1 days #>"},{"path":"/reference/st_rgb.html","id":null,"dir":"Reference","previous_headings":"","what":"reduce dimension to rgb (alpha) hex values — st_rgb","title":"reduce dimension to rgb (alpha) hex values — st_rgb","text":"reduce dimension rgb (alpha) hex values","code":""},{"path":"/reference/st_rgb.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"reduce dimension to rgb (alpha) hex values — st_rgb","text":"","code":"st_rgb( x, dimension = 3, use_alpha = dim(x)[dimension] == 4, maxColorValue = 255L, probs = c(0, 1), stretch = NULL )"},{"path":"/reference/st_rgb.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"reduce dimension to rgb (alpha) hex values — st_rgb","text":"x object class stars dimension dimension name number reduce use_alpha logical; TRUE, fourth band used alpha values maxColorValue integer; maximum value colors probs probability values quantiles used stretching \"percent\". stretch logical character; TRUE \"percent\", band stretched 0 ... maxColorValue \"percent clip\" method using probs values. \"histogram\", \"histogram equalization\" performed (probs values ignored). stretch NULL FALSE, stretching performed. character values interpreted \"percent\" message printed.","code":""},{"path":"/reference/st_rgb.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"reduce dimension to rgb (alpha) hex values — st_rgb","text":"dimension's bands mapped red, green, blue, alpha; different ordering wanted, use [.stars reorder dimension, see examples","code":""},{"path":[]},{"path":"/reference/st_rgb.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"reduce dimension to rgb (alpha) hex values — st_rgb","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) st_rgb(x[,,,3:1]) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> L7_ETMs.tif #> Length:122848 #> Class :character #> Mode :character #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] r = st_rgb(x[,,,c(6,5,4,3)], 3, use_alpha=TRUE) # now R=6,G=5,B=4,alpha=3 if (require(ggplot2)) { ggplot() + geom_stars(data = r) + scale_fill_identity() } r = st_rgb(x[,,,3:1], probs = c(0.01, 0.99), stretch = \"percent\") plot(r) #> Error in image.stars(x, ..., axes = axes, breaks = breaks, col = col, key.pos = key.pos, key.width = key.width, key.length = key.length, main = NULL): rgb plotting not supported on this device r = st_rgb(x[,,,3:1], probs = c(0.01, 0.99), stretch = \"histogram\") plot(r) #> Error in image.stars(x, ..., axes = axes, breaks = breaks, col = col, key.pos = key.pos, key.width = key.width, key.length = key.length, main = NULL): rgb plotting not supported on this device"},{"path":"/reference/st_set_bbox.html","id":null,"dir":"Reference","previous_headings":"","what":"set bounding box parameters of regular grid — st_set_bbox","title":"set bounding box parameters of regular grid — st_set_bbox","text":"set bounding box parameters regular grid","code":""},{"path":"/reference/st_set_bbox.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"set bounding box parameters of regular grid — st_set_bbox","text":"","code":"st_set_bbox(x, value, ...)"},{"path":"/reference/st_set_bbox.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"set bounding box parameters of regular grid — st_set_bbox","text":"x object class dimensions, stars stars_proxy value object class bbox ... ignored","code":""},{"path":"/reference/st_sfc2xy.html","id":null,"dir":"Reference","previous_headings":"","what":"replace POINT simple feature geometry list with an x y raster — st_sfc2xy","title":"replace POINT simple feature geometry list with an x y raster — st_sfc2xy","text":"replace POINT simple feature geometry list x y raster","code":""},{"path":"/reference/st_sfc2xy.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"replace POINT simple feature geometry list with an x y raster — st_sfc2xy","text":"","code":"st_sfc2xy(x, ...)"},{"path":"/reference/st_sfc2xy.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"replace POINT simple feature geometry list with an x y raster — st_sfc2xy","text":"x object class stars, class sf ... passed .data.frame.stars","code":""},{"path":"/reference/st_sfc2xy.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"replace POINT simple feature geometry list with an x y raster — st_sfc2xy","text":"object class stars POINT list replaced x y raster dimensions. works points distributed regular rectilinear grid.","code":""},{"path":"/reference/st_tile.html","id":null,"dir":"Reference","previous_headings":"","what":"Specify parameters to load raster in blocks — st_tile","title":"Specify parameters to load raster in blocks — st_tile","text":"Helper function specifying block parameters (nXOff, nYOff, nXsize, nYSize) required RasterIO argument read_stars","code":""},{"path":"/reference/st_tile.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Specify parameters to load raster in blocks — st_tile","text":"","code":"st_tile(img_rows, img_cols, x_window, y_window, overlap = 0)"},{"path":"/reference/st_tile.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Specify parameters to load raster in blocks — st_tile","text":"img_rows number input raster rows (integer) img_cols number input raster columns (integer) x_window number rows block (integer) y_window number columns block (integer) overlap number overlapping pixels (integer)","code":""},{"path":"/reference/st_tile.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Specify parameters to load raster in blocks — st_tile","text":"matrix specified nXOff, nYOff, nXsize, nYSize parameters every block","code":""},{"path":"/reference/st_tile.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Specify parameters to load raster in blocks — st_tile","text":"","code":"if (FALSE) { tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") r = read_stars(tif, proxy = TRUE) tiles = st_tile(nrow(r), ncol(r), 256, 256) for (i in seq_len(nrow(tiles))) { tile = read_stars(tif, proxy = FALSE, RasterIO = tiles[i, ]) # write tiles to separate files write_stars(tile, dsn = paste0(i, \".tif\")) } }"},{"path":"/reference/st_transform.html","id":null,"dir":"Reference","previous_headings":"","what":"transform geometries in stars objects to a new coordinate reference system, without warping — st_transform","title":"transform geometries in stars objects to a new coordinate reference system, without warping — st_transform","text":"transform geometries stars objects new coordinate reference system, without warping","code":""},{"path":"/reference/st_transform.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"transform geometries in stars objects to a new coordinate reference system, without warping — st_transform","text":"","code":"# S3 method for stars st_transform(x, crs, ...) # S3 method for stars st_transform_proj(x, crs, ...)"},{"path":"/reference/st_transform.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"transform geometries in stars objects to a new coordinate reference system, without warping — st_transform","text":"x object class stars, either raster simple feature geometries crs object class crs target crs ... ignored","code":""},{"path":"/reference/st_transform.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"transform geometries in stars objects to a new coordinate reference system, without warping — st_transform","text":"simple feature dimensions, st_transform called, leading lossless transformation. gridded spatial data, curvilinear grid transformed grid cell (centers) returned, also lossless. convert regular grid new CRS, use st_warp (general lossy).","code":""},{"path":[]},{"path":"/reference/st_transform.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"transform geometries in stars objects to a new coordinate reference system, without warping — st_transform","text":"","code":"geomatrix = system.file(\"tif/geomatrix.tif\", package = \"stars\") (x = read_stars(geomatrix)) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> geomatrix.tif 74 107 123 126.765 132 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 20 1841002 1.5 WGS 84 / UTM zone 11N TRUE [x] #> y 1 20 1144003 -1.5 WGS 84 / UTM zone 11N TRUE [y] #> sheared raster with parameters: -5 -5 new = st_crs('OGC:CRS84') y = st_transform(x, new) plot(st_transform(st_as_sfc(st_bbox(x)), new), col = NA, border = 'red') plot(st_as_sfc(y, as_points=FALSE), col = NA, border = 'green', axes = TRUE, add = TRUE) image(y, col = heat.colors(12), add = TRUE) plot(st_as_sfc(y, as_points=TRUE), pch=3, cex=.5, col = 'blue', add = TRUE) plot(st_transform(st_as_sfc(x, as_points=FALSE), new), add = TRUE)"},{"path":"/reference/st_warp.html","id":null,"dir":"Reference","previous_headings":"","what":"Warp (resample) grids in stars objects to a new grid, possibly in an new coordinate reference system — st_warp","title":"Warp (resample) grids in stars objects to a new grid, possibly in an new coordinate reference system — st_warp","text":"Warp (resample) grids stars objects new grid, possibly new coordinate reference system","code":""},{"path":"/reference/st_warp.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Warp (resample) grids in stars objects to a new grid, possibly in an new coordinate reference system — st_warp","text":"","code":"st_warp( src, dest, ..., crs = NA_crs_, cellsize = NA_real_, segments = 100, use_gdal = FALSE, options = character(0), no_data_value = NA_real_, debug = FALSE, method = \"near\", threshold = NA_real_ )"},{"path":"/reference/st_warp.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Warp (resample) grids in stars objects to a new grid, possibly in an new coordinate reference system — st_warp","text":"src object class stars source raster dest object class stars target raster geometry ... ignored crs coordinate reference system destination grid, used dest missing cellsize length 1 2 numeric; cellsize target coordinate reference system units segments (total) number segments segmentizing bounding box transforming new crs use_gdal logical; TRUE, use gdal's warp warper, gdal_utils options character vector options, passed gdalwarp no_data_value value used gdalwarp no_data (NA) writing temporary file; setting use_gdal TRUE leads warning debug logical; TRUE, remove temporary gdalwarp destination file, print name method character; see details options; methods near work use_gdal=TRUE threshold numeric; distance threshold warping curvilinear grids: new cells distances larger threshold assigned NA values.","code":""},{"path":"/reference/st_warp.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Warp (resample) grids in stars objects to a new grid, possibly in an new coordinate reference system — st_warp","text":"method one near, bilinear, cubic, cubicspline, lanczos, average, mode, max, min, med, q1 q3; see https://github.com/r-spatial/stars/issues/109 gridded spatial data (dimensions x y), see figure; existing grid transformed regular grid defined dest, possibly new coordinate reference system. dest specified, crs , procedure used choose target grid similar projectRaster. entails: () envelope (bounding box polygon) transformed new crs, possibly segmentation (red box); (ii) grid formed new crs, touching transformed envelope East North side, (cellsize given) cellsize similar cell size src, extent least covers x; (iii) cell center new grid, matching grid cell x used; match, NA value used.","code":""},{"path":"/reference/st_warp.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Warp (resample) grids in stars objects to a new grid, possibly in an new coordinate reference system — st_warp","text":"","code":"geomatrix = system.file(\"tif/geomatrix.tif\", package = \"stars\") (x = read_stars(geomatrix)) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> geomatrix.tif 74 107 123 126.765 132 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 20 1841002 1.5 WGS 84 / UTM zone 11N TRUE [x] #> y 1 20 1144003 -1.5 WGS 84 / UTM zone 11N TRUE [y] #> sheared raster with parameters: -5 -5 new_crs = st_crs('OGC:CRS84') y = st_warp(x, crs = new_crs) plot(st_transform(st_as_sfc(st_bbox(x)), new_crs), col = NA, border = 'red') plot(st_as_sfc(y, as_points=FALSE), col = NA, border = 'green', axes = TRUE, add = TRUE) image(y, add = TRUE, nbreaks = 6) plot(st_as_sfc(y, as_points=TRUE), pch=3, cex=.5, col = 'blue', add = TRUE) plot(st_transform(st_as_sfc(x, as_points=FALSE), new_crs), add = TRUE) # warp 0-360 raster to -180-180 raster: r = read_stars(system.file(\"nc/reduced.nc\", package = \"stars\")) #> sst, anom, err, ice, r %>% st_set_crs('OGC:CRS84') %>% st_warp(st_as_stars(st_bbox(), dx = 2)) -> s plot(r, axes = TRUE) # no CRS set, so no degree symbols in labels plot(s, axes = TRUE) # downsample raster (90 to 270 m) r = read_stars(system.file(\"tif/olinda_dem_utm25s.tif\", package = \"stars\")) r270 = st_as_stars(st_bbox(r), dx = 270) r270 = st_warp(r, r270)"},{"path":"/reference/st_xy2sfc.html","id":null,"dir":"Reference","previous_headings":"","what":"replace x y raster dimensions with simple feature geometry list (points, or polygons = rasterize) — st_xy2sfc","title":"replace x y raster dimensions with simple feature geometry list (points, or polygons = rasterize) — st_xy2sfc","text":"replace x y raster dimensions simple feature geometry list (points, polygons = rasterize)","code":""},{"path":"/reference/st_xy2sfc.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"replace x y raster dimensions with simple feature geometry list (points, or polygons = rasterize) — st_xy2sfc","text":"","code":"st_xy2sfc(x, as_points, ..., na.rm = TRUE)"},{"path":"/reference/st_xy2sfc.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"replace x y raster dimensions with simple feature geometry list (points, or polygons = rasterize) — st_xy2sfc","text":"x object class stars as_points logical; TRUE, generate points cell centers, else generate polygons ... arguments passed st_as_sfc na.rm logical; omit (remove) cells entirely missing valued (across dimensions)?","code":""},{"path":"/reference/st_xy2sfc.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"replace x y raster dimensions with simple feature geometry list (points, or polygons = rasterize) — st_xy2sfc","text":"object class stars x y raster dimensions replaced single sfc geometry list column containing either points, polygons. Adjacent cells identical values merged; see st_rasterize .","code":""},{"path":"/reference/stars_sentinel2.html","id":null,"dir":"Reference","previous_headings":"","what":"Sentinel-2 sample tile — stars_sentinel2","title":"Sentinel-2 sample tile — stars_sentinel2","text":"Sentinel-2 sample tile, downloaded https://scihub.copernicus.eu/ reads four 10-m bands: B2 (490 nm), B3 (560 nm), B4 (665 nm) B8 (842 nm)","code":""},{"path":"/reference/stars_sentinel2.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Sentinel-2 sample tile — stars_sentinel2","text":"","code":"stars_sentinel2"},{"path":"/reference/stars_sentinel2.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Sentinel-2 sample tile — stars_sentinel2","text":"object class stars_proxy (inherits stars) dimension 10980 x 10980 x 4.","code":""},{"path":"/reference/stars_subset.html","id":null,"dir":"Reference","previous_headings":"","what":"subset stars objects — stars_subset","title":"subset stars objects — stars_subset","text":"subset stars objects","code":""},{"path":"/reference/stars_subset.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"subset stars objects — stars_subset","text":"","code":"# S3 method for stars_proxy [(x, i, downsample = 0) <- value # S3 method for stars [(x, i = TRUE, ..., drop = FALSE, crop = !is_curvilinear(x)) # S3 method for stars [(x, i) <- value st_flip(x, which = 1)"},{"path":"/reference/stars_subset.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"subset stars objects — stars_subset","text":"x object class stars first selector: integer, logical character vector indicating attributes select, object class sf, sfc, bbox, stars used spatial selector; see details downsample downsampling rate used case stars_proxy object value array dimensions equal x, vector value recycled array ... (logical integer vector) selectors, matched order, select individual dimensions drop logical; TRUE, degenerate dimensions (one value) dropped crop logical; TRUE parameter spatial geometry (sf sfc) object, extent (bounding box) result cropped match extent using st_crop. Cropping curvilinear grids supported. character integer; dimension(s) flipped","code":""},{"path":"/reference/stars_subset.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"subset stars objects — stars_subset","text":"st_flip flips (reverts) array values along chosen dimension without(s) changing dimension properties","code":""},{"path":"/reference/stars_subset.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"subset stars objects — stars_subset","text":"object class sf, sfc bbox, spatial subset covering geometry selected, possibly followed cropping extent. Array values cell centre inside geometry assigned NA. class stars, attributes logical, cells x corresponding NA FALSE cells assigned NA. Dimension ranges containing negative values NA may partially supported. assignment (replacement form, [<-), argument needs either () stars object logical attribute(s) dimensions matching (possibly recycling) x, case TRUE cells replaced /value recycled dimensions arrays x, (ii) length-one integer character vector indicating array replace, case value may stars object vector array (recycled).","code":""},{"path":"/reference/stars_subset.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"subset stars objects — stars_subset","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) x[,,,1:3] # select bands #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 21 58 70 70.36041 83 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 3 NA NA NA NA x[,1:100,100:200,] # select x and y by range #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 13 54 65 67.21531 77 252 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 100 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 100 200 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA x[\"L7_ETMs.tif\"] # select attribute #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA xy = structure(list(x = c(293253.999046018, 296400.196497684), y = c(9113801.64775462, 9111328.49619133)), .Names = c(\"x\", \"y\")) pts = st_as_sf(data.frame(do.call(cbind, xy)), coords = c(\"x\", \"y\"), crs = st_crs(x)) image(x, axes = TRUE) plot(st_as_sfc(st_bbox(pts)), col = NA, add = TRUE) bb = st_bbox(pts) (xx = x[bb]) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 3 56 73 70.87303 89 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 158 268 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 245 331 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA image(xx) plot(st_as_sfc(bb), add = TRUE, col = NA) image(x) pt = st_point(c(x = 290462.103109179, y = 9114202.32594085)) buf = st_buffer(st_sfc(pt, crs = st_crs(x)), 1500) plot(buf, add = TRUE) buf = st_sfc(st_polygon(list(st_buffer(pt, 1500)[[1]], st_buffer(pt, 1000)[[1]])), crs = st_crs(x)) image(x[buf]) plot(buf, add = TRUE, col = NA) image(x[buf, crop=FALSE]) plot(buf, add = TRUE, col = NA) # with i of class stars: x[x > 75] # generates lots of NA's; pattern for each band #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. NA's #> L7_ETMs.tif 76 82 90 94.40052 101 255 443210 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA x[x[,,,1] > 75] # recycles a single band template for all bands #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. NA's #> L7_ETMs.tif 1 63 79 74.98075 93 255 318960 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA x = read_stars(tif) # replace, using a logical stars selector: cuts all values above 90 to 90 x[x > 90] = 90 # replace a single attribute when there are more than one: s = split(x) names(s) = paste0(\"band\", 1:6) # rescale only band 1: s[1] = s[1] * 0.75 # rescale only attribute named \"band2\": s[\"band2\"] = s[\"band2\"] * 0.85 # create a new attribute from a numeric vector: s[\"rnorm\"] = rnorm(prod(dim(s))) s #> stars object with 2 dimensions and 7 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> band1 35.250000 50.2500000 58.500000000 57.878219426 66.7500000 67.500000 #> band2 27.200000 46.7500000 56.100000000 56.776205555 67.1500000 76.500000 #> band3 21.000000 49.0000000 63.000000000 62.777008987 77.0000000 90.000000 #> band4 9.000000 52.0000000 63.000000000 58.940544413 75.0000000 90.000000 #> band5 1.000000 63.0000000 89.000000000 71.285092146 90.0000000 90.000000 #> band6 1.000000 32.0000000 60.000000000 56.662127182 88.0000000 90.000000 #> rnorm -5.096659 -0.6759559 -0.004252816 -0.003659307 0.6699726 4.216072 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] lc = read_stars(system.file(\"tif/lc.tif\", package = \"stars\")) x = c(orig = lc, flip_x = st_flip(lc, \"x\"), flip_y = st_flip(lc, \"y\"), flip_xy = st_flip(lc, c(\"x\", \"y\")), along = 3) plot(x)"},{"path":"/reference/write_stars.html","id":null,"dir":"Reference","previous_headings":"","what":"write stars object to gdal dataset (typically: to file) — write_stars","title":"write stars object to gdal dataset (typically: to file) — write_stars","text":"write stars object gdal dataset (typically: file)","code":""},{"path":"/reference/write_stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"write stars object to gdal dataset (typically: to file) — write_stars","text":"","code":"write_stars(obj, dsn, layer, ...) # S3 method for stars write_stars( obj, dsn, layer = 1, ..., driver = detect.driver(dsn), options = character(0), type = if (is.factor(obj[[1]]) && length(levels(obj[[1]])) < 256) \"Byte\" else \"Float32\", NA_value = NA_real_, update = FALSE, normalize_path = TRUE, scale_offset = c(1, 0) ) # S3 method for stars_proxy write_stars( obj, dsn, layer = 1, ..., driver = detect.driver(dsn), options = character(0), scale_offset = c(1, 0), type = \"Float32\", NA_value = NA_real_, chunk_size = c(dim(obj)[1], floor(2.5e+07/dim(obj)[1])), progress = TRUE ) detect.driver(filename)"},{"path":"/reference/write_stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"write stars object to gdal dataset (typically: to file) — write_stars","text":"obj object class stars dsn gdal dataset (file) name layer attribute name; missing, first attribute written ... passed gdal_write driver driver driver name; see st_drivers options character vector dataset creation options, passed GDAL type character; output binary type, one : Byte eight bit unsigned integer, UInt16 sixteen bit unsigned integer, Int16 sixteen bit signed integer, UInt32 thirty two bit unsigned integer, Int32 thirty two bit signed integer, Float32 thirty two bit floating point, Float64 sixty four bit floating point. NA_value non-NA value represent R's NA value target raster file; set NA, ignored. update logical; TRUE, existing file updated normalize_path logical; see read_stars scale_offset length 2 numeric vector scale, offset values: raw values computed raw = (value - offset) / scale written dsn; scale offset values written dsn else warning raised chunk_size length two integer vector number pixels (x, y) used read/write loop; see details. progress logical; TRUE, progress bar shown filename character; used guessing driver short name based file extension; see examples","code":""},{"path":"/reference/write_stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"write stars object to gdal dataset (typically: to file) — write_stars","text":"write_stars first creates target file, updates sequentially writing blocks chunk_size. case obj multi-file stars_proxy object, files written layers output file dsn","code":""},{"path":"/reference/write_stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"write stars object to gdal dataset (typically: to file) — write_stars","text":"","code":"detect.driver(\"L7_ETMs.tif\") #> [1] \"GTiff\""},{"path":"/news/index.html","id":"version-06-3","dir":"Changelog","previous_headings":"","what":"version 0.6-3","title":"version 0.6-3","text":"st_crop() works (warns) case crop area overlap area object; #638","code":""},{"path":"/news/index.html","id":"version-06-2","dir":"Changelog","previous_headings":"","what":"version 0.6-2","title":"version 0.6-2","text":"CRAN release: 2023-07-12 split.stars() accepts stars objects multiple attributes; #635 [.stars() supports NA values dimension ranges vector geometry (sfc) dimensions, resulting empty geometries st_extract() supports extracting points values curvilinear grids (proxy); #632 read_mdim() reads curvilinear rasters (geolocation arrays), far full extent/resolution st_as_stars.stars() accepts curvilinear argument points arrays .x consistently use OGC:CRS84 instead EPSG:4326 setting values = NULL st_set_dimensions() removes dimension values gracefully handle plotting global curvilinear grids; #632 image.stars() plots images (e.g. cross sections) x /y singular absent; #628 st_as_stars.cubble_df() adds conversion cubble; cubble::as_cubble() methods converts back [<-.stars() accepts indicator (numeric length character) array replaced; #626 plot.stars() gains argument key.lab set legend key label (requires sf >= 1.0-13)","code":""},{"path":"/news/index.html","id":"version-06-1","dir":"Changelog","previous_headings":"","what":"version 0.6-1","title":"version 0.6-1","text":"CRAN release: 2023-04-06 remove rgdal dependency read_stars() fixes combining bands different block sizes; #623 st_warp() gets (proper) default value threshold; #618 read_mdim() reads “raster” single pixel (point) [.stars(), r[x] allows x logical stars object [<-.stars_proxy() clones environment, r[r > 100] = NA don’t get infinite recursion realizing r read_stars() avoids reading raster twice determine choose proxy; proxy can now set (defaults ) number cells (bands * rows * columns) data read memory returned stars_proxy object; #609 fix using RasterIO read_stars() proxy=TRUE; #608 plot.stars() hook function can handle arguments row, col, nrow, ncol, nr, value bbox; #600 fix handling categorical rasters colors without category labels; #595, fallout #565 fix subsetting proxy objects time range; #596","code":""},{"path":"/news/index.html","id":"version-06-0","dir":"Changelog","previous_headings":"","what":"version 0.6-0","title":"version 0.6-0","text":"CRAN release: 2022-11-21 write_stars() writes scaled /shifted values using argument scale_offset; #589 aggregate.stars_proxy() implements aggregation non-spatial objects (lazily) fix [.stars_proxy() selecting dimension 3 higher; #561 plot.stars(), col can also palette function st_res() returns spatial resolutions, optionally dimension resolutions; #557 thanks Krzysztof Dyba read_stars() shortens band array names contain common start ending, unless names become empty shorten=FALSE set; e.g. shorten=\"B\" puts B shortened array names printing stars dimension tables omits fields NULL NA values, unless print(..., = TRUE) given improve reading categorical rasters, now avoids calling factor(); #565 thanks Krzysztof Dyba read_mdim() read bounds arrays coordinates using bounds attribute, accepts bounds argument specify attribute missing time() returns time stamps time dimension st_cells() returns cell index set point coordinates, provided sf sfc object; #558 reading & writing vector data cubes: read_mdim() reads CF compliant vector geometries, reconstructs sfc dimension; write_mdim() writes . write_mdim() uses GDAL multidimensional array API; read_mdim() uses arguments offset, count step read sub-arrays strided arrays (requires sf >= 1.0-9)","code":""},{"path":"/news/index.html","id":"version-05-6","dir":"Changelog","previous_headings":"","what":"version 0.5-6","title":"version 0.5-6","text":"CRAN release: 2022-07-21 export read_mdim(), reader using GDAL’s multidimensional array API (sf <= 1.0-8) remove tos_O1_2001-2002.nc packaged datasets keep source package size 5 Mb .POSIXct.stars() converts PCICt dimensions POSIXct values. improve handling PCICt 360 365 day calendars; read read_mdim (requires sf >= 1.0-9) read_stars() reads factor levels better attribute table; #484 thanks @ailich read_stars() puts band names band_meta DESCRIPTION= tags values; improve handling categorical rasters, exchange terra; #484 plot() handles auto colors better factor arrays read_ncdf() handles units formally setting crs; #533 print message dimensions proxy objects reflect unevaluated operations; #530 passing na.action = na.omit geom_stars() removes NA values; #532 read_stars() detects curvilinear grids automatically; #513 st_warp() warps curvilinear grids (using Euclidean distances coordinates); #513 Ops.stars() errors (common) dimension identical; #506 guess_raster() accepts empty rows/columns sparse grids; #509 speed rgb plotting; #503 Added new helper function st_tile() specify block parameters (nXOff, nYOff, nXsize, nYSize) required RasterIO argument read_stars(); #492 thanks Krzysztof Dyba","code":""},{"path":"/news/index.html","id":"version-05-5","dir":"Changelog","previous_headings":"","what":"version 0.5-5","title":"version 0.5-5","text":"CRAN release: 2021-12-19 st_as_stars.bbox() creates empy raster file proxy = TRUE; #489 st_rasterize() option align = TRUE use template aligning new raster ; #489 adrop.stars() missing dimensions longer drops x/y raster dimensions; #485 aggregate.stars() propagates units arrays; #477","code":""},{"path":"/news/index.html","id":"version-05-4","dir":"Changelog","previous_headings":"","what":"version 0.5-4","title":"version 0.5-4","text":"CRAN release: 2021-11-19 c.stars() fails tries merge arrays different units; #475 NetCDF files, read_stars() uses long_name array name; #475 add rename() method; #470 refresh CRS packaged L7_ETMs.tif; #466 .data.frame.stars() works mixed regular rectilinear dimension; #458 plot.stars() plots curvilinear rasters color table, without table col argument passed; #456 st_extract() accepts matrix points argument, performance important; see e.g. https://github.com/rspatial/terra/issues/341 fix bug st_crop() cropping area larger grid; #455 export st_downsample(), e.g. used tmap; https://github.com/r-tmap/tmap/issues/597 argument downsample plot.stars() st_as_stars.stars_proxy() st_downsample() effect (removed one-offset ). st_redimension() works curvilinear grids; #441 downsample propagated subexpressions like r[r < 50] = NA predict.stars() obtains argument drop_dimensions , TRUE, drops dimensions prediction data.frame; #362 extend options st_rgb(), #432, Gabo Gaona allow subsetting [ using labels, e.g. band names.","code":""},{"path":"/news/index.html","id":"version-05-3","dir":"Changelog","previous_headings":"","what":"version 0.5-3","title":"version 0.5-3","text":"CRAN release: 2021-06-08 read_stars() accepts function (list functions) first argument, allowing saving stars objects read package directories resolving platform-dependent paths run-time handle categorical rasters starting value 0 (adding 1, warning); #428 add %% method; #424 read_stars() gains argument tolerance control tolerance dimension value comparisons; #414 binary Ops (like +, -, * etc.) work stars_proxy objects; #390 st_rasterize() rasterizes multiple attributes, handles factors (sf >= 0.9-9) write_stars() deals better stars_proxy objects; #404 fix regression reading stars_proxy objects; #379 add [<- (partially) .na methods stars_proxy objects; #402 add replace_na() methods; #402","code":""},{"path":"/news/index.html","id":"version-05-2","dir":"Changelog","previous_headings":"","what":"version 0.5-2","title":"version 0.5-2","text":"CRAN release: 2021-03-17 read write factor levels GDAL category names; write color table; #392 handle normalize_path choosing proxy; #391 ignore units different units accross bands subdataset speed st_rgb() using faster st_apply() approach; #315, #390 improve handling crs Spatial objects (avoid loss wkt comments) correctly write band subsets smaller proxy objects; #291 write arbitrarily cropped proxy objects; #291 speed st_apply() function provided works chunks time; #390 warn breaks = “quantile” results single class; #388 fix [ bug selecting bands proxy objects; #388 stars_proxy objects, write_stars() writes objects multi-layer file; #385 multi-file proxy objects can st_warp()ed use_gdal = TRUE; #385","code":""},{"path":"/news/index.html","id":"version-05-1","dir":"Changelog","previous_headings":"","what":"version 0.5-1","title":"version 0.5-1","text":"CRAN release: 2021-01-25 fix weird GDAL-related bug stars2 vignette read_ncdf() take time mid-points regular intervals, starting points; #378","code":""},{"path":"/news/index.html","id":"version-05-0","dir":"Changelog","previous_headings":"","what":"version 0.5-0","title":"version 0.5-0","text":"CRAN release: 2021-01-19 fix handling rasters color tables; #375 st_apply() methods stars_proxy objects handle … ; #374 add st_bbox(), st_crs() methods terra’s SpatVector objects; https://github.com/mtennekes/tmap/issues/536 add st_bbox(), st_crs() st_as_stars() methods terra’s SpatRaster objects; https://github.com/mtennekes/tmap/issues/536 allow multi-resolution attributes stars_proxy objects (e.g., gray scale sentinel-2 bands); see vignettes 2 7 examples. plot() defaults categorical color scale plotting factor variable; https://github.com/mtennekes/tmap/issues/526 st_extract() extracts space-time points time_column specified, handles time intervals; #352 add [[<-.stars method, now called $<-.stars, array names can set programmatically add transmute() methods plot.stars() calls droplevels factor array NA levels; #339 read_stars() reads NaNs NA; #333 improve st_extract() method stars stars_proxy objects; interpolation options reduced bilinear; #322, #279, #290 better handle categorical rasters start value 1; #329 plot layout can controlled mfrow = c(nr, nc) argument stars_proxy objects normalized path; #331 cropping selecting bbox treats cells always small polygons; #330 add faster st_extract() method stars objects; #322 added vignette: “raster functions map stars functions”, Sebastien Rochette; #122, #325 fix bug dimension values field downsampling; #324 write_stars() also writes band names; #323 add rgdal Suggests: call_list entry stars_proxy object carries proper calling environment; #309 st_as_sf.stars() copes zero attribute (empty) stars objects add st_set_bbox() generic, set raster extent, motivated #315 set tic, great help @pat-s, #313 get rid proj4strings representing coordinate reference systems; #312 (x, “Spatial”) correctly handles dimension values different one read_stars() now sets BANDNAME GDAL metadata item, else band’s GetDescription() band’s dimension values st_as_stars.data.frame() reads simple tables (non-raster data) dims length less 2 band descriptions band dimension values dimension tables simpler, shown properly Rstudio st_rgb() gains probs argument, cut stretch based quantiles (x, \"Raster\") merges multiple attributes converting raster brick","code":""},{"path":"/news/index.html","id":"version-04-3","dir":"Changelog","previous_headings":"","what":"version 0.4-3","title":"version 0.4-3","text":"CRAN release: 2020-07-08 fix bug st_as_stars.Raster; set crs one assigned raster; https://github.com/mtennekes/tmap/issues/471 add s2 Suggests: new function st_rgb() collapses (reduces) dimension rgb hex value; #302","code":""},{"path":"/news/index.html","id":"version-04-2","dir":"Changelog","previous_headings":"","what":"version 0.4-2","title":"version 0.4-2","text":"CRAN release: 2020-07-01 aggregate.stars() handles arrays NA values now correctly; brought #299 Thorsten Simon aggregate.stars() gains argument exact , TRUE, calls exactextractr polygonal aggregation; #289 read_stars() reads subdatasets dimensions equal first, warns ignoring others; #296 make copying dimensions somewhat easier; #295 st_as_stars.Raster() tries read file raster object -memory object. write_stars() normalizes path, read_stars already ; #293 merge() proxy objects acts, longer lazy; #290 st_as_stars.Raster() returns proxy object raster layer disk add st_extract() extract e.g. time series grids point locations; #279; #290 read_stars() chooses value proxy depends data dimensions; #281 x/y range subsetting stars_proxy objects now reads range, similar crop already . st_warp() preserves levels colors; https://github.com/mtennekes/tmap/issues/429 st_crop() works bounding boxes larger downsampled bounding box; #276 st_crop() non-zero default epsilon (bounding box shrinkage) exclude cells touching crop bounding box; #275 image.stars() (hence plot.stars) gains extent argument setting extent plot; https://github.com/r-spatial/sf/issues/1193","code":""},{"path":"/news/index.html","id":"version-04-1","dir":"Changelog","previous_headings":"","what":"version 0.4-1","title":"version 0.4-1","text":"CRAN release: 2020-04-07 st_warp() (stars native) flips longitudes full cycle; #256, #264, #269 handle axis order st_transform (requires sf >= 0.9-1) depend sf 0.9-0 adapt cubelyr split-dplyr; add cubelyr Suggests:; https://github.com/hadley/cubelyr/issues/2 add droplevels() method handle color tables, category tables raster attribute tables read GDAL; #128, #245; https://github.com/r-spatial/mapview/issues/208 handle dimension crs specially, proxy objects now. handle new-style crs objects upcoming sf, moving away proj4strings handle full crs objects refsys element spatial dimensions, rather proj4string st_raster_type(x) reveals raster type x; #248, https://github.com/mtennekes/tmap/issues/368 add st_as_stars.OpenStreetMap() method; #241 @mtennekes add st_flip() flip arrays along one dimensions without changing dimension properties add .owin() method convert (2D raster) stars objects spatstat owin; https://github.com/r-spatial/sf/issues/1233 temporal aggregation, aggregate.stars now also takes arguments like “week”, “month”, “5 days” add st_as_stars() method xts objects; improve .xts stars objects skip tests solaris","code":""},{"path":"/news/index.html","id":"version-04-0","dir":"Changelog","previous_headings":"","what":"version 0.4-0","title":"version 0.4-0","text":"CRAN release: 2019-10-10 plot() now uses data figure breaks, order also find extremes; #216 st_mosaic() creates mosaics spatially disjoint rasters; #210 #205 large refactoring read_ncdf, David Blodgett Mike Sumner, affecting #199, #89, #30, #86, #175 allow funny units like m s**-1; #201 add contour() method stars objects; #196 plot uses rasterImage default available; #194 x y raster dimensions can set unset xy argument st_set_dimensions; #190 retain factor levels dimension values set st_set_dimensions; #188 add conversion stars_proxy Raster: #193 make plotting multiple curvilinear grids work plot default cell borders case curvilinear, rotated sheared grids robustify handling units allow read_ncdf() ignore bounds scale applied wrongly multi-band images; #189, requires sf >= 0.7-5 .nc now recognized correctly write_stars write NetCDF file; #186 [ subset now works correctly negative logical indices; #184, #185 NA values float32 grids now correctly detected; #182, requires sf >= 0.7-5 cropping stars_proxy object now works; #179 st_apply() can now loop Raster layers; examples #176","code":""},{"path":"/news/index.html","id":"version-03-1","dir":"Changelog","previous_headings":"","what":"version 0.3-1","title":"version 0.3-1","text":"CRAN release: 2019-04-23 st_as_stars.bbox now ncells pretty argument, better choose default raster dimensions geom_stars now works stars_proxy objects, needs downsample set; #21 NA values Float32 rasters now read correctly read_stars; #182 handle bounds, given, read_ncdf provide time parsing (POSIXct, PCICt) read_ncdf; #115","code":""},{"path":"/news/index.html","id":"version-03-0","dir":"Changelog","previous_headings":"","what":"version 0.3-0","title":"version 0.3-0","text":"CRAN release: 2019-02-24 add st_area method return raster grid cell sizes; #99 fix st_warp use_gdal=TRUE, allowing multi-band warps add st_get_dimension_values get values particular dimension (meaningful); #100 allow setting intervals dimension values; see examples st_dimensions add st_contour, clean st_as_sf; #99 experimental color table support; https://github.com/r-spatial/mapview/issues/208 rewrote vignettes, added vignettes; #99 deprecate st_write.stars write_stars; #96 use “native” R array-factor support support PCICt 360- 365-day calendars; #29 remove import ncdf4 favour RNetCDF, now line practice ncmeta package. Thanks David Blodgett motivation testing (see #87, #94). st_as_sf uses date/time column names appropriate allow missing trailing comma’s subsetting: [1,,] [1,] now . move rlang Imports: ; rewrite [ subset using rlang. add conversion Spatial* classes, including gridded ones, taking care factor variables depend sf 0.7-2 add logz support log-scale keys plot image","code":""},{"path":"/news/index.html","id":"version-02-0","dir":"Changelog","previous_headings":"","what":"version 0.2-0","title":"version 0.2-0","text":"CRAN release: 2018-10-25 vignettes now use external package, starsdata, larger dataset examples support [<-.stars e.g. mask values; support .na.stars replace NA masks support cut methods factor arrays (plot, subset); #56 add st_rasterize, uses GDALRasterize rasterize sf object; #13 st_as_sf.stars now uses GDAL(F)Polygonize give regular sheared grid grid cells points, returns contour bands using GDALContourGenerateEx (requiring GDAL 2.4.0) case cells points; #13 support curvilinear grids; see #54 data_model vignette add vignette stars_proxy objects work stars_proxy objects defer processing st_apply jobs subsampling; #50 allow reading sections raster, raster lower resolution, selected bands; #48 allow reading vectors (arrays) 2^31 elements; #48 fold higher dimensions third dimension coercing Raster; #40","code":""},{"path":"/news/index.html","id":"version-01-1","dir":"Changelog","previous_headings":"","what":"version 0.1-1","title":"version 0.1-1","text":"CRAN release: 2018-07-25 add meta data reader read_stars","code":""},{"path":"/news/index.html","id":"version-01-0","dir":"Changelog","previous_headings":"","what":"version 0.1-0","title":"version 0.1-0","text":"add merge (merge attributes array dimension) split (split dimension attributes) interface sf, raster spacetime improve plotting handle logical arrays plot add st_apply, analogous apply add cropping/masking used x[buf] buf sf, sfc bbox object; masking x[buf, crop = FALSE] add Ops (+,-,/ etc) Math (sqrt, pow, sin etc) methods add dimnames dimnames<- methods stars objects downsample large grids plot pixels actually shown can plot rectilinear grids (plot rgb images regular grids) rgb argument image works [ array-like subsetting works; first index attribute selector","code":""},{"path":"/news/index.html","id":"version-00","dir":"Changelog","previous_headings":"","what":"version 0.0","title":"version 0.0","text":"interface 9 C++ gdal utils gdal_utils() (now part sf)","code":""}] +[{"path":"/PROPOSAL.html","id":null,"dir":"","previous_headings":"","what":"Scalable, spatiotemporal Tidy Arrays for R","title":"Scalable, spatiotemporal Tidy Arrays for R","text":"Edzer Pebesma, Michael Sumner, Etienne Racine","code":""},{"path":"/PROPOSAL.html","id":"summary","dir":"","previous_headings":"","what":"Summary","title":"Scalable, spatiotemporal Tidy Arrays for R","text":"lot spatiotemporal data takes form dense, multidimensional arrays. Examples population counts region, year age group weather data variable, time step sensor location satellite imagery, e.g. energy spectral band, location (pixel) time collection climate model data, e.g. surface temperature location, time climate scenario. financial data, e.g. share price company time Although data can represented long tables, larger datasets array form beneficial replicate dimension indexes, array form provides faster access implicitly indexed. R’s native arrays number limitations, handle heterogeneous data records (e.g. consisting numeric, logical Date) like typically data.frame’s, can deal -memory data, handle spatial temporal array dimensions. project () implement flexible generic multidimensional array model heterogeneous records (ii) handles strong spatial temporal referencing array indexes, (iii) scales moderately sized - memory data, large -disk data, massive data held remote servers, using unified user interface follows tidy tools manifesto.","code":""},{"path":"/PROPOSAL.html","id":"the-problem","dir":"","previous_headings":"","what":"The Problem","title":"Scalable, spatiotemporal Tidy Arrays for R","text":"handle analyze large amounts spatially referenced time series data R? handle satellite imagery don’t fit local disc R, need small cluster finish computation within acceptable time? can quickly easily develop analysis testing small portion spatiotemporal datasets, deploying massive data set? can use pipe-based workflows dplyr-verbs data sets? can visualy explore high-dimensional raster data? Today, people use R large spatiotemporal data, hit limits related usability, user interface, scalability. r-sig-geo mailing list documents many cases. Now simple features R project largely modernized handling analysis vector data (points, lines, polygons) R tidyverse-friendly fashion, time raster data catch . proposal aims spatiotemporal raster data, well time series feature data.","code":""},{"path":"/PROPOSAL.html","id":"existing-work","dir":"","previous_headings":"The Problem","what":"Existing work","title":"Scalable, spatiotemporal Tidy Arrays for R","text":"Base R supports n-dimensional homogeneous arrays basic types (double, integer, logical, logical), -memory. Package ff supports --memory data structures, held local disc, spatial temporal references dimensions. Spatial packages include rgdal, lets read write raster data, possibly piece--piece, one 142 different file formats. Package raster allows users work raster maps stacks , stack can either refer different bands (color) different time steps, . Package raster can iterate functions large files disc, takes care caching, using either rgdal ncdf4. Another package reading writing NetCDF RNetCDF. Packages dedicated single data source type include include RStoolbox, MODIS, landsat, hsdar; relies raster rgdal file-based /O. CRAN package spacetime provides heterogeneous records, using data.frame attributes. keeps indexes record spatial geometry (grid cell/point/polygon) time instance period; keeps data memory builds xts temporal, sp spatial reference. support R Consortium, Distributed Computing Working Group started develop API distributed computing; initial version available package ddR. aims generic R data structures, works towards relieving users worrying data distributed. Relevant work outside R includes GDAL, particular gdal virtual tiles building arbitrary large grid data sets many individual files, SciDB, open source array database spatial temporal capabilities, strongly scalable architecture, extremely flexible array manipulation methods SciDB4geo, SciDB Plugin Managing Spatial Temporal Reference Information Arrays, SciDB4gdal, GDAL driver SciDB arrays, two activities make SciDB databases aware space time PostGIS Raster, raster data extension PostGIS Rasdaman, array database dedicate images, partially open source. Since definite trend downloading Earth observation data longer feasible, work towards solutions data accessed web service interface. Cloud services AWS starting give access large remote sensing imagery archives e.g. Landsat, MODIS Sentinel satellites.","code":""},{"path":"/PROPOSAL.html","id":"the-plan","dir":"","previous_headings":"","what":"The Plan:","title":"Scalable, spatiotemporal Tidy Arrays for R","text":"develop R package container infrastructure supports dense, n-dimensional arrays heterogeneous records, supports flexible reference array dimensions space, space can gridded (2D/3D raster) set simple features (1D, irregular) supports flexible reference array dimensions time (POSIXct, Date) supports regular arrays (fixed cell size / time step) well irregular arrays allows working memory, local disc, remote computer (using web service interface), allows R functions passed web service back-end, executed parallel, uses -memory proxies large arrays, allowing work first n records computations carried full arrays (similar dplyr ) allows pipe-based workflows, using data.frames, dplyr-style verbs. document software provide tutorials reproducible data analysis examples using locally downloaded imagery, well scalable examples accessing larger (> 1 Tb) datasets using docker container images. document RESTful API connects R client web service holding (processing) big Earth observation data. also develop discuss migration path raster package (43K lines R, C C++ code), functionality, new infrastructure. publish resulting products open access form, R journal, also journal (conference) directed Earth observation community. Timeline: Month 1-2: work design, decide web service technology, basic web service API design Month 3-6: programming R package, testing smaller data sets Month 7-8: testing larger datasets, develop test cases, deploy docker containers Month 9-12: write tutorials, develop teaching material reproducible examples Month 9-12: experiment different back-ends: file-based, database SciDB Failure modes: can’t get RESTful API work properly; solution path: ask rOpenSci community help (Scott Chamberlain, Jeroen Ooms) downloading large image sets cumbersome (slow) larger tutorial examples; solution path: deploy test server teaching/experimenting purposes Amazon cloud, Landsat Sentinel imagery readily available","code":""},{"path":"/PROPOSAL.html","id":"how-can-the-isc-help","dir":"","previous_headings":"","what":"How Can The ISC Help:","title":"Scalable, spatiotemporal Tidy Arrays for R","text":"use funding develop R package web service API. Total costs 10,000 USD, breaks : workshop: travel costs Etienne Racine Michael Sumner visit Muenster, another venue can meet (USD 2500). Programming, project communication: (USD 7000). Cloud deployment Amazon cloud (USD 500).","code":""},{"path":"/PROPOSAL.html","id":"dissemination","dir":"","previous_headings":"","what":"Dissemination:","title":"Scalable, spatiotemporal Tidy Arrays for R","text":"regularly post blogs project r-spatial.org, use twitter, post r-sig-geo, stackoverflow, communicate github issues gitter discussion. project live GitHub, r-spatial organisation. work permissive open source license, probably LGPL-2.1. Pull requests encouraged. R consortium blogs provided start end. Publications R Journal scientific outlets foreseen.","code":""},{"path":"/articles/stars1.html","id":"reading-a-satellite-image","dir":"Articles","previous_headings":"","what":"Reading a satellite image","title":"1. introduction","text":"can read satellite image GDAL, e.g. GeoTIFF file package: see image geographically referenced (coordinate values along axes), object returned (x) three dimensions called x, y band, one attribute: dimension name; meaning fields single dimension : means index (starting \\(=1\\)) along certain dimension, corresponding dimension value (coordinate, time) \\(\\mbox{offset} + (-1) \\times \\mbox{delta}\\). value refers start (edge) cell interval; order get interval middle cell centre, one needs add half offset. Dimension band simple sequence 1 6. Since bands refer colors, one put wavelength values values field. particular dataset (raster datasets), see delta dimension y negative: means consecutive array values decreasing \\(y\\) values: cell indexes increase top bottom, direction opposite \\(y\\) axis. read_stars reads bands raster dataset, optionally subset raster datasets, single stars array structure. , raster values (often UINT8 UINT16) converted double (numeric) values, scaled back original values needed file encodes scaling parameters. data structure stars generalisation tbl_cube found cubelyr; can convert cause loss certain properties (cell size, reference system, vector geometries)","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) plot(x, axes = TRUE) x ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 1 54 69 68.91242 86 255 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 6 NA NA NA NA library(cubelyr) as.tbl_cube(x) ## Source: local array [737,088 x 3] ## D: x [dbl, 349] ## D: y [dbl, 352] ## D: band [int, 6] ## M: L7_ETMs.tif [dbl[,352,6]]"},{"path":"/articles/stars1.html","id":"switching-attributes-to-dimensions-and-back","dir":"Articles","previous_headings":"Reading a satellite image","what":"Switching attributes to dimensions and back","title":"1. introduction","text":"see newly created dimension lost name, single attribute got default name. can set attribute names setNames, dimension names values st_set_dimensions:","code":"(x.spl = split(x, \"band\")) ## stars object with 2 dimensions and 6 attributes ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## X1 47 67 78 79.14772 89 255 ## X2 32 55 66 67.57465 79 255 ## X3 21 49 63 64.35886 77 255 ## X4 9 52 63 59.23541 75 255 ## X5 1 63 89 83.18266 112 255 ## X6 1 32 60 59.97521 88 255 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] merge(x.spl) ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## X1.X2.X3.X4.X5.X6 1 54 69 68.91242 86 255 ## dimension(s): ## from to offset delta refsys point values ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL ## attributes 1 6 NA NA NA NA X1,...,X6 ## x/y ## x [x] ## y [y] ## attributes merge(x.spl) |> setNames(names(x)) |> st_set_dimensions(3, values = paste0(\"band\", 1:6)) |> st_set_dimensions(names = c(\"x\", \"y\", \"band\")) ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 1 54 69 68.91242 86 255 ## dimension(s): ## from to offset delta refsys point values ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL ## band 1 6 NA NA NA NA band1,...,band6 ## x/y ## x [x] ## y [y] ## band"},{"path":"/articles/stars1.html","id":"subsetting","dir":"Articles","previous_headings":"Reading a satellite image","what":"Subsetting","title":"1. introduction","text":"Besides tidyverse subsetting selection operators explained vignette, can also use [ [[. Since stars objects list arrays metadata table describing dimensions, list extraction (assignment) works expected: level, can work array objects directly. stars subset operator [ works bit different: first argument selects attributes second argument selects first dimension third argument selects second dimension, etc Thus, selects second attribute, first 10 columns (x-coordinate), rows, bands 2-4. Alternatively, [ given single argument class sf, sfc bbox, [ work crop operator:","code":"class(x[[1]]) ## [1] \"array\" dim(x[[1]]) ## x y band ## 349 352 6 x$two = 2 * x[[1]] x ## stars object with 3 dimensions and 2 attributes ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 1 54 69 68.91242 86 255 ## two 2 108 138 137.82484 172 510 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 6 NA NA NA NA x[\"two\", 1:10, , 2:4] ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## two 36 100 116 119.7326 136 470 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 10 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 2 4 NA NA NA NA circle = st_sfc(st_buffer(st_point(c(293749.5, 9115745)), 400), crs = st_crs(x)) plot(x[circle][, , , 1], reset = FALSE) plot(circle, col = NA, border = 'red', add = TRUE, lwd = 2)"},{"path":"/articles/stars1.html","id":"overviews","dir":"Articles","previous_headings":"Reading a satellite image","what":"Overviews","title":"1. introduction","text":"can read rasters lower resolution contain -called overviews. GeoTIFF file, created gdaladdo utility, particular adds coarse resolution versions using average resampling method compute values based blocks pixels. can read ","code":"gdaladdo -r average L7_ETMs.tif 2 4 8 16 x1 = read_stars(tif, options = c(\"OVERVIEW_LEVEL=1\")) x2 = read_stars(tif, options = c(\"OVERVIEW_LEVEL=2\")) x3 = read_stars(tif, options = c(\"OVERVIEW_LEVEL=3\")) dim(x1) ## x y band ## 88 88 6 dim(x2) ## x y band ## 44 44 6 dim(x3) ## x y band ## 22 22 6 par(mfrow = c(1, 3), mar = rep(0.2, 4)) image(x1[,,,1]) image(x2[,,,1]) image(x3[,,,1])"},{"path":"/articles/stars1.html","id":"reading-a-raster-time-series-netcdf","dir":"Articles","previous_headings":"","what":"Reading a raster time series: NetCDF","title":"1. introduction","text":"Another example read raster time series model outputs NetCDF file, e.g. see dataset can see variables units associated (wrong unit, C assigned temperature) time now dimension, proper units time steps Alternatively, dataset can read using read_ncdf, difference read_ncdf read_stars NetCDF files former uses package RNetCDF directly read NetCDF file, latter uses GDAL driver NetCDF files.","code":"system.file(\"nc/bcsd_obs_1999.nc\", package = \"stars\") |> read_stars() -> w ## pr, tas, w ## stars object with 3 dimensions and 2 attributes ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's ## pr [mm/m] 0.5900000 56.139999 81.88000 101.26433 121.07250 848.54999 7116 ## tas [C] -0.4209678 8.898887 15.65763 15.48932 21.77979 29.38581 7116 ## dimension(s): ## from to offset delta refsys values x/y ## x 1 81 -85 0.125 NA NULL [x] ## y 1 33 37.12 -0.125 NA NULL [y] ## time 1 12 NA NA POSIXct 1999-01-31,...,1999-12-31 system.file(\"nc/bcsd_obs_1999.nc\", package = \"stars\") |> read_ncdf() ## no 'var' specified, using pr, tas ## other available variables: ## latitude, longitude, time ## Will return stars object with 32076 cells. ## No projection information found in nc file. ## Coordinate variable units found to be degrees, ## assuming WGS84 Lat/Lon. ## stars object with 3 dimensions and 2 attributes ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's ## pr [mm/m] 0.5900000 56.139999 81.88000 101.26433 121.07250 848.54999 7116 ## tas [C] -0.4209678 8.898887 15.65763 15.48932 21.77979 29.38581 7116 ## dimension(s): ## from to offset delta refsys values x/y ## longitude 1 81 -85 0.125 WGS 84 NULL [x] ## latitude 1 33 33 0.125 WGS 84 NULL [y] ## time 1 12 NA NA POSIXct 1999-01-31,...,1999-12-31"},{"path":"/articles/stars1.html","id":"reading-datasets-from-multiple-files","dir":"Articles","previous_headings":"Reading a raster time series: NetCDF","what":"Reading datasets from multiple files","title":"1. introduction","text":"Model data often spread across many files. example 0.25 degree grid, global daily sea surface temperature product found ; subset 1981 used downloaded NOAA ftp site longer available form. (ftp site used eclipse.ncdc.noaa.gov/pub/OI-daily-v2/NetCDF/1981/AVHRR/). read data giving read_stars vector character names: Next, select sea surface temperature (sst), drop singular zlev (depth) dimension using adrop: can now graph sea surface temperature (SST) using ggplot, needs data long table form, without units:","code":"x = c( \"avhrr-only-v2.19810901.nc\", \"avhrr-only-v2.19810902.nc\", \"avhrr-only-v2.19810903.nc\", \"avhrr-only-v2.19810904.nc\", \"avhrr-only-v2.19810905.nc\", \"avhrr-only-v2.19810906.nc\", \"avhrr-only-v2.19810907.nc\", \"avhrr-only-v2.19810908.nc\", \"avhrr-only-v2.19810909.nc\" ) # see the second vignette: # install.packages(\"starsdata\", repos = \"http://pebesma.staff.ifgi.de\", type = \"source\") file_list = system.file(paste0(\"netcdf/\", x), package = \"starsdata\") (y = read_stars(file_list, quiet = TRUE)) ## stars object with 4 dimensions and 4 attributes ## attribute(s), summary of first 1e+05 cells: ## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's ## sst [°*C] -1.80 -1.19 -1.05 -0.3201670 -0.20 9.36 13360 ## anom [°*C] -4.69 -0.06 0.52 0.2299385 0.71 3.70 13360 ## err [°*C] 0.11 0.30 0.30 0.2949421 0.30 0.48 13360 ## ice [percent] 0.01 0.73 0.83 0.7657695 0.87 1.00 27377 ## dimension(s): ## from to offset delta refsys x/y ## x 1 1440 0 0.25 NA [x] ## y 1 720 90 -0.25 NA [y] ## zlev 1 1 0 [m] NA NA ## time 1 9 1981-09-01 UTC 1 days POSIXct library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(abind) z <- y |> select(sst) |> adrop() # convert POSIXct time to character, to please ggplot's facet_wrap() z1 = st_set_dimensions(z, 3, values = as.character(st_get_dimension_values(z, 3))) library(ggplot2) library(viridis) ## Loading required package: viridisLite library(ggthemes) ggplot() + geom_stars(data = z1[1], alpha = 0.8, downsample = c(10, 10, 1)) + facet_wrap(\"time\") + scale_fill_viridis() + coord_equal() + theme_map() + theme(legend.position = \"bottom\") + theme(legend.key.width = unit(2, \"cm\"))"},{"path":"/articles/stars1.html","id":"writing-stars-objects-to-disk","dir":"Articles","previous_headings":"","what":"Writing stars objects to disk","title":"1. introduction","text":"can write stars object disk using write_stars; used GDAL write engine. Writing NetCDF files without going GDAL interface currently supported. write_stars currently writes single attribute: See explanation merge see multiple attributes can merged (folded) dimension.","code":"write_stars(adrop(y[1]), \"sst.tif\")"},{"path":"/articles/stars1.html","id":"cropping-a-rasters-extent","dir":"Articles","previous_headings":"","what":"Cropping a raster’s extent","title":"1. introduction","text":"Using curvilinear grid, taken example read_ncdf: can now crop grid cells falling selection prec_slice[nc] essentially calls st_crop(prec_slice, nc) get cropped selection. happened cells intersecting North Carolina (sea) set NA values. regular grids, extent resulting stars object also reduced (cropped) default; can controlled crop parameter st_crop [.stars.","code":"prec_file = system.file(\"nc/test_stageiv_xyt.nc\", package = \"stars\") prec = read_ncdf(prec_file, curvilinear = c(\"lon\", \"lat\")) ## no 'var' specified, using Total_precipitation_surface_1_Hour_Accumulation ## other available variables: ## lat, lon, time ## Will return stars object with 236118 cells. ## No projection information found in nc file. ## Coordinate variable units found to be degrees, ## assuming WGS84 Lat/Lon. ##plot(prec) ## gives error about unique breaks ## remove NAs, zeros, and give a large number ## of breaks (used for validating in detail) qu_0_omit = function(x, ..., n = 22) { if (inherits(x, \"units\")) x = units::drop_units(na.omit(x)) c(0, quantile(x[x > 0], seq(0, 1, length.out = n))) } library(dplyr) # loads slice generic prec_slice = slice(prec, index = 17, along = \"time\") plot(prec_slice, border = NA, breaks = qu_0_omit(prec_slice[[1]]), reset = FALSE) nc = sf::read_sf(system.file(\"gpkg/nc.gpkg\", package = \"sf\"), \"nc.gpkg\") plot(st_geometry(nc), add = TRUE, reset = FALSE, col = NA, border = 'red') nc = st_transform(nc, st_crs(prec_slice)) # datum transformation plot(prec_slice[nc], border = NA, breaks = qu_0_omit(prec_slice[[1]]), reset = FALSE) plot(st_geometry(nc), add = TRUE, reset = FALSE, col = NA, border = 'red')"},{"path":"/articles/stars1.html","id":"vector-data-cube-example","dir":"Articles","previous_headings":"","what":"Vector data cube example","title":"1. introduction","text":"Like tbl_cube, stars arrays limits number dimensions handle. example origin-destination (OD) matrix, time travel mode.","code":""},{"path":"/articles/stars1.html","id":"od-space-x-space-x-travel-mode-x-time-x-time","dir":"Articles","previous_headings":"Vector data cube example","what":"OD: space x space x travel mode x time x time","title":"1. introduction","text":"create 5-dimensional matrix traffic regions, day, time day, travel mode. day time day dimension advantage want compute patterns day, certain period. array contains simple feature geometries origin destination can directly plot every slice without additional table joins. want represent array tbl_cube, simple feature geometry dimensions need replaced indexes: following demonstrates can use dplyr filter travel mode bike, compute mean bike traffic hour day:","code":"nc = st_read(system.file(\"gpkg/nc.gpkg\", package=\"sf\")) ## Reading layer `nc.gpkg' from data source ## `/home/runner/work/_temp/Library/sf/gpkg/nc.gpkg' using driver `GPKG' ## Simple feature collection with 100 features and 14 fields ## Geometry type: MULTIPOLYGON ## Dimension: XY ## Bounding box: xmin: -84.32385 ymin: 33.88199 xmax: -75.45698 ymax: 36.58965 ## Geodetic CRS: NAD27 to = from = st_geometry(nc) # 100 polygons: O and D regions mode = c(\"car\", \"bike\", \"foot\") # travel mode day = 1:100 # arbitrary library(units) ## udunits database from /usr/share/xml/udunits/udunits2.xml units(day) = as_units(\"days since 2015-01-01\") hour = set_units(0:23, h) # hour of day dims = st_dimensions(origin = from, destination = to, mode = mode, day = day, hour = hour) (n = dim(dims)) ## origin destination mode day hour ## 100 100 3 100 24 traffic = array(rpois(prod(n), 10), dim = n) # simulated traffic counts (st = st_as_stars(list(traffic = traffic), dimensions = dims)) ## stars object with 5 dimensions and 1 attribute ## attribute(s), summary of first 1e+05 cells: ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## traffic 0 8 10 9.98827 12 25 ## dimension(s): ## from to offset delta ## origin 1 100 NA NA ## destination 1 100 NA NA ## mode 1 3 NA NA ## day 1 100 1 [(days since 2015-01-01)] 1 [(days since 2015-01-01)] ## hour 1 24 0 [h] 1 [h] ## refsys point ## origin NAD27 FALSE ## destination NAD27 FALSE ## mode NA FALSE ## day udunits FALSE ## hour udunits FALSE ## values ## origin MULTIPOLYGON (((-81.47276...,...,MULTIPOLYGON (((-78.65572... ## destination MULTIPOLYGON (((-81.47276...,...,MULTIPOLYGON (((-78.65572... ## mode car , bike, foot ## day NULL ## hour NULL st |> as.tbl_cube() ## Source: local array [72,000,000 x 5] ## D: origin [int, 100] ## D: destination [int, 100] ## D: mode [chr, 3] ## D: day [[(days since 2015-01-01)], 100] ## D: hour [[h], 24] ## M: traffic [int[,100,3,100,24]] b <- st |> as.tbl_cube() |> filter(mode == \"bike\") |> group_by(hour) |> summarise(traffic = mean(traffic)) |> as.data.frame() require(ggforce) # for plotting a units variable ## Loading required package: ggforce ggplot() + geom_line(data = b, aes(x = hour, y = traffic))"},{"path":"/articles/stars1.html","id":"extracting-at-point-locations-aggregating-over-polygons","dir":"Articles","previous_headings":"","what":"Extracting at point locations, aggregating over polygons","title":"1. introduction","text":"Data cube values point location can extracted st_extract, example found vignette 7 Aggregates, mean, maximum modal values can obtained aggregate. example use categorical raster, try find modal (frequent) class within two circular polygons: find modal value, need function gives back label corresponding class frequent, using table: can call aggregate raster map, set two circular polygons pol1 pol2, pass function f:","code":"s = system.file(\"tif/lc.tif\", package = \"stars\") r = read_stars(s, proxy = FALSE) |> droplevels() st_point(c(3190631, 3125)) |> st_sfc(crs = st_crs(r)) |> st_buffer(25000) -> pol1 st_point(c(3233847, 21027)) |> st_sfc(crs = st_crs(r)) |> st_buffer(10000) -> pol2 if (isTRUE(dev.capabilities()$rasterImage == \"yes\")) { plot(r, key.width = lcm(4), reset = FALSE, key.pos = 4) plot(c(pol1, pol2), col = NA, border = c('yellow', 'green'), lwd = 2, add = TRUE) } f = function(x) { tb = table(x); names(tb)[which.max(tb)] } aggregate(r, c(pol1, pol2), f) |> st_as_sf() ## Simple feature collection with 2 features and 1 field ## Geometry type: POLYGON ## Dimension: XY ## Bounding box: xmin: 3165631 ymin: -21875 xmax: 3243847 ymax: 31027 ## Projected CRS: Albers Conical Equal Area ## lc.tif geometry ## 1 Evergreen Forest POLYGON ((3215631 3125, 321... ## 2 Developed, Medium Intensity POLYGON ((3243847 21027, 32..."},{"path":"/articles/stars2.html","id":"preamble-the-starsdata-package","dir":"Articles","previous_headings":"","what":"Preamble: the starsdata package","title":"2. stars proxy objects","text":"run examples vignette, must install package datasets large (1 Gb) held stars package. drat repo, installation done ","code":"install.packages(\"starsdata\", repos = \"http://gis-bigdata.uni-muenster.de/pebesma\", type = \"source\") # possibly after: options(timeout = 100) # or from an alternative repository: # install.packages(\"starsdata\", repos = \"http://pebesma.staff.ifgi.de\", type = \"source\")"},{"path":"/articles/stars2.html","id":"reading-chunks-change-resolution-select-bands","dir":"Articles","previous_headings":"","what":"Reading chunks, change resolution, select bands","title":"2. stars proxy objects","text":"read_stars argument called RasterIO controls GDAL dataset read. default, pixels bands read memory. can consume lot time require lot memory. Remember file may compressed, pixel values represented file bytes converted 8-byte doubles R. reason using RasterIO parameters use directly mapped GDAL RasterIO function used (adapting 1-based offset index R 0-based offset C++).","code":""},{"path":"/articles/stars2.html","id":"reading-a-particular-chunk","dir":"Articles","previous_headings":"Reading chunks, change resolution, select bands","what":"Reading a particular chunk","title":"2. stars proxy objects","text":"example using RasterIO Compare see delta values remain , offset (x/y coordinates origin) grid remain reflect new area, relate new delta values dim(x) reflects new size, three bands read","code":"library(stars) ## Loading required package: abind ## Loading required package: sf ## Linking to GEOS 3.10.2, GDAL 3.4.1, PROJ 8.2.1; sf_use_s2() is TRUE tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") rasterio = list(nXOff = 6, nYOff = 6, nXSize = 100, nYSize = 100, bands = c(1, 3, 4)) (x = read_stars(tif, RasterIO = rasterio)) ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 23 54 63 62.05977 73.25 235 ## dimension(s): ## from to offset delta refsys point x/y ## x 6 105 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 6 105 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 3 NA NA NA NA dim(x) ## x y band ## 100 100 3 st_dimensions(read_stars(tif)) ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 6 NA NA NA NA"},{"path":"/articles/stars2.html","id":"reading-at-a-different-resolution","dir":"Articles","previous_headings":"Reading chunks, change resolution, select bands","what":"Reading at a different resolution","title":"2. stars proxy objects","text":"Reading datasets lower (also higher!) resolution can done setting nBufXSize nBufYSize see addition: delta (raster cell size) values increased factor 5, nBufXSize nBufYSize set values factor 5 smaller nXSize nYSize offset coordinates grid still reflect new area, relate new delta cell size values can also read higher resolution; read 3 x 3 area blow 100 x 100: reason “see” three grid cells default sampling method “nearest neighbour”. can modify following methods allowed parameter resample: methods implemented GDAL; methods exactly , refer GDAL documentation source code.","code":"rasterio = list(nXOff = 6, nYOff = 6, nXSize = 100, nYSize = 100, nBufXSize = 20, nBufYSize = 20, bands = c(1, 3, 4)) (x = read_stars(tif, RasterIO = rasterio)) ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 27 53 63 62.09417 74 151 ## dimension(s): ## from to offset delta refsys point x/y ## x 2 21 288776 142.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 2 21 9120761 -142.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 3 NA NA NA NA rasterio = list(nXOff = 6, nYOff = 6, nXSize = 3, nYSize = 3, nBufXSize = 100, nBufYSize = 100, bands = 1) x = read_stars(tif, RasterIO = rasterio) dim(x) ## x y ## 100 100 plot(x) rasterio = list(nXOff = 6, nYOff = 6, nXSize = 3, nYSize = 3, nBufXSize = 100, nBufYSize = 100, bands = 1, resample = \"cubic_spline\") x = read_stars(tif, RasterIO = rasterio) dim(x) ## x y ## 100 100 plot(x)"},{"path":"/articles/stars2.html","id":"stars-proxy-objects","dir":"Articles","previous_headings":"","what":"Stars proxy objects","title":"2. stars proxy objects","text":"Stars proxy objects take another approach: upon creation contain data , pointers data can read. Data read needed, much needed: plot proxy objects, data read resolution pixels screen, rather native resolution, e.g. 10000 x 10000 Sentinel 2 (level 1C) image, can open happens instantly, data read. plot object, takes around 1 second, since pixels read can seen plot. read entire image memory first, reading take minute, require 5 Gb memory.","code":"granule = system.file(\"sentinel/S2A_MSIL1C_20180220T105051_N0206_R051_T32ULE_20180221T134037.zip\", package = \"starsdata\") s2 = paste0(\"SENTINEL2_L1C:/vsizip/\", granule, \"/S2A_MSIL1C_20180220T105051_N0206_R051_T32ULE_20180221T134037.SAFE/MTD_MSIL1C.xml:10m:EPSG_32632\") (p = read_stars(s2, proxy = TRUE)) ## stars_proxy object with 1 attribute in 1 file(s): ## $EPSG_32632 ## [1] \"[...]/MTD_MSIL1C.xml:10m:EPSG_32632\" ## ## dimension(s): ## from to offset delta refsys values x/y ## x 1 10980 3e+05 10 WGS 84 / UTM zone 32N NULL [x] ## y 1 10980 6e+06 -10 WGS 84 / UTM zone 32N NULL [y] ## band 1 4 NA NA NA B4,...,B8 system.time(plot(p)) ## downsample set to 18 ## user system elapsed ## 1.108 0.191 0.967 p = read_stars(s2, proxy = FALSE)"},{"path":"/articles/stars2.html","id":"methods-for-stars-proxy-objects","dir":"Articles","previous_headings":"Stars proxy objects","what":"Methods for stars proxy objects","title":"2. stars proxy objects","text":"","code":"methods(class = \"stars_proxy\") ## [1] [ [[<- [<- adrop ## [5] aggregate aperm as.data.frame c ## [9] coerce dim droplevels filter ## [13] hist initialize is.na Math ## [17] merge Ops plot predict ## [21] print show slotsFromS3 split ## [25] st_apply st_as_sf st_as_stars st_crop ## [29] st_dimensions<- st_downsample st_mosaic st_normalize ## [33] st_redimension st_sample st_set_bbox write_stars ## see '?methods' for accessing help and source code"},{"path":"/articles/stars2.html","id":"select-attributes","dir":"Articles","previous_headings":"Stars proxy objects","what":"Select attributes","title":"2. stars proxy objects","text":"can select attributes regular stars objects, using first argument [: Note selection limits reading 4 1 subdataset 9 NetCDF files.","code":"x = c(\"avhrr-only-v2.19810901.nc\", \"avhrr-only-v2.19810902.nc\", \"avhrr-only-v2.19810903.nc\", \"avhrr-only-v2.19810904.nc\", \"avhrr-only-v2.19810905.nc\", \"avhrr-only-v2.19810906.nc\", \"avhrr-only-v2.19810907.nc\", \"avhrr-only-v2.19810908.nc\", \"avhrr-only-v2.19810909.nc\") file_list = system.file(paste0(\"netcdf/\", x), package = \"starsdata\") y = read_stars(file_list, quiet = TRUE, proxy = TRUE) names(y) ## [1] \"sst\" \"anom\" \"err\" \"ice\" y[\"sst\"] ## stars_proxy object with 1 attribute in 9 file(s): ## $sst ## [1] \"[...]/avhrr-only-v2.19810901.nc:sst\" \"[...]/avhrr-only-v2.19810902.nc:sst\" ## [3] \"[...]/avhrr-only-v2.19810903.nc:sst\" \"[...]/avhrr-only-v2.19810904.nc:sst\" ## [5] \"[...]/avhrr-only-v2.19810905.nc:sst\" \"[...]/avhrr-only-v2.19810906.nc:sst\" ## [7] \"[...]/avhrr-only-v2.19810907.nc:sst\" \"[...]/avhrr-only-v2.19810908.nc:sst\" ## [9] \"[...]/avhrr-only-v2.19810909.nc:sst\" ## ## dimension(s): ## from to offset delta refsys x/y ## x 1 1440 0 0.25 NA [x] ## y 1 720 90 -0.25 NA [y] ## zlev 1 1 0 [m] NA NA ## time 1 9 1981-09-01 UTC 1 days POSIXct"},{"path":"/articles/stars2.html","id":"select-an-area","dir":"Articles","previous_headings":"Stars proxy objects","what":"Select an area","title":"2. stars proxy objects","text":"Another possibility crop, select rectangular region based spatial object. can done passing bbox object, sf, sfc stars object bounding box taken. example:","code":"bb = st_bbox(c(xmin = 10.125, ymin = 0.125, xmax = 70.125, ymax = 70.125)) ysub = y[bb] st_dimensions(ysub) ## from to offset delta refsys x/y ## x 41 281 0 0.25 NA [x] ## y 80 360 90 -0.25 NA [y] ## zlev 1 1 0 [m] NA NA ## time 1 9 1981-09-01 UTC 1 days POSIXct class(ysub) # still no data here!! ## [1] \"stars_proxy\" \"stars\" plot(ysub, reset = FALSE) # plot reads the data, at resolution that is relevant plot(st_as_sfc(bb), add = TRUE, lwd = .5, border = 'red')"},{"path":"/articles/stars2.html","id":"lazy-evaluation-changing-evaluation-order","dir":"Articles","previous_headings":"Stars proxy objects","what":"Lazy evaluation, changing evaluation order","title":"2. stars proxy objects","text":"actions can carried stars_proxy objects, effect delayed data actually needed (plot, write_stars). instance, range selections dimensions shown first need data, can carried . functions added object, attribute called call_list: allows optimizing order operations done. example, st_apply, reading can done sequentially dimensions function applied: example function applied band (: compute band quantiles), bands can read sequentially, discarded quantiles computed. time series function applied pixel time series result plotted map, time series function evaluated pixels actually plotted. means e.g. order evaluation reversed: plot knows pixels going shown, controls x downsampled st_apply carried subset.","code":"yy = adrop(y) yyy = yy[,1:10,1:10,] class(yyy) # still no data ## [1] \"stars_proxy\" \"stars\" st_dimensions(yyy) # and dimensions not adjusted ## from to offset delta refsys x/y ## x 1 1440 0 0.25 NA [x] ## y 1 720 90 -0.25 NA [y] ## zlev 1 1 0 [m] NA NA ## time 1 9 1981-09-01 UTC 1 days POSIXct attr(yyy, \"call_list\") # the name of object in the call (y) is replaced with x: ## [[1]] ## adrop(x = x, drop = drop) ## attr(,\".Environment\") ## ## ## [[2]] ## x[i = i, 1:10, 1:10, , drop = drop, crop = crop] ## attr(,\".Environment\") ## plot(st_apply(x, c(\"x\", \"y\"), range))"},{"path":"/articles/stars2.html","id":"fetching-the-data","dir":"Articles","previous_headings":"Stars proxy objects > Lazy evaluation, changing evaluation order","what":"Fetching the data","title":"2. stars proxy objects","text":"Fetching data now involves reading whole array evaluating call_list , sequentially:","code":"(x = st_as_stars(yyy)) # read, adrop, subset ## stars object with 3 dimensions and 4 attributes ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## sst [°*C] -1.28 -1.17 -1.11 -1.1163555 -1.06 -0.95 ## anom [°*C] 0.48 0.62 0.69 0.6649555 0.72 0.77 ## err [°*C] 0.30 0.30 0.30 0.3000000 0.30 0.30 ## ice [percent] 0.76 0.79 0.81 0.8062889 0.82 0.85 ## dimension(s): ## from to offset delta refsys x/y ## x 1 10 0 0.25 NA [x] ## y 1 10 90 -0.25 NA [y] ## time 1 9 1981-09-01 UTC 1 days POSIXct"},{"path":"/articles/stars2.html","id":"plotting-with-changed-evaluation-order","dir":"Articles","previous_headings":"Stars proxy objects > Lazy evaluation, changing evaluation order","what":"Plotting with changed evaluation order","title":"2. stars proxy objects","text":"Sentinel 2 data, band 4 represents NIR band 1 red, can compute NDVI ","code":"# S2 10m: band 4: near infrared, band 1: red. #ndvi = function(x) (x[4] - x[1])/(x[4] + x[1]) ndvi = function(x1, x2, x3, x4) (x4 - x1)/(x4 + x1) rm(x) (s2.ndvi = st_apply(p, c(\"x\", \"y\"), ndvi)) ## stars_proxy object with 1 attribute in 1 file(s): ## $EPSG_32632 ## [1] \"[...]/MTD_MSIL1C.xml:10m:EPSG_32632\" ## ## dimension(s): ## from to offset delta refsys values x/y ## x 1 10980 3e+05 10 WGS 84 / UTM zone 32N NULL [x] ## y 1 10980 6e+06 -10 WGS 84 / UTM zone 32N NULL [y] ## band 1 4 NA NA NA B4,...,B8 ## call_list: ## [[1]] ## st_apply(X = X, MARGIN = MARGIN, FUN = FUN, CLUSTER = CLUSTER, ## PROGRESS = PROGRESS, FUTURE = FUTURE, rename = rename, .fname = .fname) ## attr(,\".Environment\") ## ## ## This object has pending lazy operations: dimensions as printed may not reflect this. system.time(plot(s2.ndvi)) # read - compute ndvi - plot ## downsample set to 18 ## user system elapsed ## 0.721 0.196 0.592"},{"path":"/articles/stars2.html","id":"multi-resolution-proxy-objects","dir":"Articles","previous_headings":"","what":"Multi-resolution proxy objects","title":"2. stars proxy objects","text":"sections shows examples stars_proxy objects deal situation different maps dissimilar resolution. assumptions : maps need origin coordinates (typically upper-left corner) CRS. first map determines “working” resolution, e.g. native downsampled resolutions refer ’ll create four maps cells size 1, 2 3: created three rasters identical cell values dimensions, different cell sizes, hence extents. bind single proxy object, see multi-resolution mentioned printed summary. converting stars object, secondary rasters resampled cellsize + extent first: sub-range, defined object resolutions, get: now create four maps, region ([0,4] x [0,4]), different resolutions (cell size 1, 1/2 1/3): Finally, example first raster higher resolution:","code":"s1 = st_as_stars(matrix(1:16, 4)) s2 = st_as_stars(matrix(1:16, 4)) s3 = st_as_stars(matrix(1:16, 4)) attr(s1, \"dimensions\")$X1$offset = 0 attr(s1, \"dimensions\")$X2$offset = 4 attr(s2, \"dimensions\")$X1$offset = 0 attr(s2, \"dimensions\")$X2$offset = 4 attr(s3, \"dimensions\")$X1$offset = 0 attr(s3, \"dimensions\")$X2$offset = 4 attr(s1, \"dimensions\")$X1$delta = 1 attr(s1, \"dimensions\")$X2$delta = -1 attr(s2, \"dimensions\")$X1$delta = 2 attr(s2, \"dimensions\")$X2$delta = -2 attr(s3, \"dimensions\")$X1$delta = 3 attr(s3, \"dimensions\")$X2$delta = -3 plot(s1, axes = TRUE, text_values = TRUE, text_color = 'orange') plot(s2, axes = TRUE, text_values = TRUE, text_color = 'orange') plot(s3, axes = TRUE, text_values = TRUE, text_color = 'orange') fn1 = paste0(tempdir(), .Platform$file.sep, \"img1.tif\") fn2 = paste0(tempdir(), .Platform$file.sep, \"img2.tif\") fn3 = paste0(tempdir(), .Platform$file.sep, \"img3.tif\") write_stars(s1, fn1) write_stars(s2, fn2) write_stars(s3, fn3) (r1 = read_stars(c(fn1, fn2, fn3), proxy = TRUE)) ## multi-resolution stars_proxy object with 3 attributes in 3 file(s): ## $`1` ## [1] \"[...]/img1.tif\" ## ## $`2` ## [1] \"[...]/img2.tif\" ## ## $`3` ## [1] \"[...]/img3.tif\" ## ## dimension(s): ## from to offset delta x/y ## x 1 4 0 1 [x] ## y 1 4 4 -1 [y] st_as_stars(r1) %>% merge() %>% plot(breaks = \"equal\", text_values = TRUE, text_color = 'orange', axes = TRUE) st_as_stars(r1[,2:4,2:4]) %>% merge() %>% plot(breaks = \"equal\", text_values = TRUE, text_color = 'orange', axes = TRUE) s4 = st_as_stars(matrix(1: 16, 4)) s5 = st_as_stars(matrix(1: 64, 8)) s6 = st_as_stars(matrix(1:144,12)) attr(s4, \"dimensions\")$X1$offset = 0 attr(s4, \"dimensions\")$X2$offset = 4 attr(s5, \"dimensions\")$X1$offset = 0 attr(s5, \"dimensions\")$X2$offset = 4 attr(s6, \"dimensions\")$X1$offset = 0 attr(s6, \"dimensions\")$X2$offset = 4 attr(s4, \"dimensions\")$X1$delta = 1 attr(s4, \"dimensions\")$X2$delta = -1 attr(s5, \"dimensions\")$X1$delta = 1/2 attr(s5, \"dimensions\")$X2$delta = -1/2 attr(s6, \"dimensions\")$X1$delta = 1/3 attr(s6, \"dimensions\")$X2$delta = -1/3 plot(s4, axes = TRUE, text_values = TRUE, text_color = 'orange') plot(s5, axes = TRUE, text_values = TRUE, text_color = 'orange') plot(s6, axes = TRUE, text_values = TRUE, text_color = 'orange') fn4 = paste0(tempdir(), .Platform$file.sep, \"img4.tif\") fn5 = paste0(tempdir(), .Platform$file.sep, \"img5.tif\") fn6 = paste0(tempdir(), .Platform$file.sep, \"img6.tif\") write_stars(s4, fn4) write_stars(s5, fn5) write_stars(s6, fn6) (r2 = read_stars(c(fn4, fn5, fn6), proxy = TRUE)) ## multi-resolution stars_proxy object with 3 attributes in 3 file(s): ## $`4` ## [1] \"[...]/img4.tif\" ## ## $`5` ## [1] \"[...]/img5.tif\" ## ## $`6` ## [1] \"[...]/img6.tif\" ## ## dimension(s): ## from to offset delta x/y ## x 1 4 0 1 [x] ## y 1 4 4 -1 [y] st_as_stars(r2) %>% merge() %>% plot(breaks = \"equal\", text_values = TRUE, text_color = 'orange', axes = TRUE) st_as_stars(r2[,2:4,2:4]) %>% merge() %>% plot(breaks = \"equal\", text_values = TRUE, text_color = 'orange', axes = TRUE) (r3 = read_stars(c(fn6, fn5, fn4), proxy = TRUE)) ## multi-resolution stars_proxy object with 3 attributes in 3 file(s): ## $`6` ## [1] \"[...]/img6.tif\" ## ## $`5` ## [1] \"[...]/img5.tif\" ## ## $`4` ## [1] \"[...]/img4.tif\" ## ## dimension(s): ## from to offset delta x/y ## x 1 12 0 0.3333 [x] ## y 1 12 4 -0.3333 [y] st_as_stars(r3) %>% merge() %>% plot(breaks = \"equal\", text_values = TRUE, text_color = 'orange', axes = TRUE) st_as_stars(r3[,2:6,3:6]) %>% merge() %>% plot(breaks = \"equal\", text_values = TRUE, text_color = 'orange', axes = TRUE)"},{"path":"/articles/stars3.html","id":"slice","dir":"Articles","previous_headings":"","what":"slice","title":"3. stars tidyverse methods","text":"slice slices sub-array cube; done specifying dimension act, slice number. returns lower-dimensional array single element selected along slice dimension.","code":"x %>% slice(band, 6) -> x6 x6 ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 1 32 60 59.97521 88 255 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y]"},{"path":"/articles/stars3.html","id":"filter","dir":"Articles","previous_headings":"","what":"filter","title":"3. stars tidyverse methods","text":"Similar slice, filter selects dimensions evaluates values rather index: subarray created based x coordinate values. Note filter converts object tbl_cube, uses dplyr filter method tbl_cube objects. limitation stars objects rectilinear, curvilinear simple feature geometries handled. objects, using regular [ selection using st_crop may alternative.","code":"x %>% filter(x > 289000, x < 291000, band > 3) -> x7 x7 ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 5 54 70 71.79194 88 252 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 70 289004 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 3 4 1 NA NA"},{"path":"/articles/stars3.html","id":"pull","dir":"Articles","previous_headings":"","what":"pull","title":"3. stars tidyverse methods","text":"pull pulls array stars object:","code":"x %>% pull(1) -> x8 class(x8) ## [1] \"array\" dim(x8) ## x y band ## 349 352 6"},{"path":"/articles/stars3.html","id":"mutate","dir":"Articles","previous_headings":"","what":"mutate","title":"3. stars tidyverse methods","text":"","code":"x %>% mutate(band2 = 2 * L7_ETMs.tif) -> x2 x2 ## stars object with 3 dimensions and 2 attributes ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 1 54 69 68.91242 86 255 ## band2 2 108 138 137.82484 172 510 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 6 NA NA NA NA"},{"path":"/articles/stars3.html","id":"select","dir":"Articles","previous_headings":"","what":"select","title":"3. stars tidyverse methods","text":"select selects attribute, set attributes:","code":"x2 %>% select(band2) -> x9 x9 ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## band2 2 108 138 137.8248 172 510 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 6 NA NA NA NA"},{"path":"/articles/stars3.html","id":"geom_stars","dir":"Articles","previous_headings":"","what":"geom_stars","title":"3. stars tidyverse methods","text":"geom_raster ggplot2 geom function accepts stars objects data argument sets raster vector spatial coordinates plot dimensions, first attribute fill variable allows downsampling (without choosing suitable downsampling level) chooses using geom_raster, geom_rect geom_sf depending whether geometry regular, rectilinear vector geometries example use ","code":"library(ggplot2) library(viridis) ## Loading required package: viridisLite ggplot() + geom_stars(data = x) + coord_equal() + facet_wrap(~band) + theme_void() + scale_fill_viridis() + scale_x_discrete(expand = c(0, 0)) + scale_y_discrete(expand = c(0, 0))"},{"path":"/articles/stars4.html","id":"stars-objects","dir":"Articles","previous_headings":"","what":"Stars objects","title":"4. stars data model","text":"stars objects consist (possibly empty) named list arrays, named dimensions (dim) attribute attribute called dimensions class dimensions carries dimension metadata class name includes stars dimensions object named list dimension elements, describing semantics dimension data arrays (space, time, type etc). addition , dimensions object attribute called raster class stars_raster, named list three elements: dimensions length 2 character; dimension names constitute spatial raster (NA) affine length 2 numeric; two affine parameters geotransform (NA) curvilinear boolean indicating whether raster curvilinear raster (NA) affine curvilinear values relevant case raster data, indicated dimensions non-NA values. dimension object describes single dimension; list named elements : (numeric length 1): start index array : (numeric length 1): end index array offset: (numeric length 1): start coordinate (time) value first pixel (.e., pixel/cell boundary) delta: (numeric length 1): increment, cell size refsys: (character, crs): object describing reference system; e.g. PROJ string, string POSIXct PCICt (360 365 days/year calendars), object class crs (containing EPSG code proj4string) point: (logical length 1): boolean indicating whether cells/pixels refer areas/periods, points/instances (may NA) NULL (missing), vector coordinate values (numeric, POSIXct, PCICt, sfc), object class intervals (list two vectors, start end, interval start- end-values), matrix longitudes latitudes cells (case curvilinear grids) usually 1 dimension size, may larger 1 case sub-grid got selected (cropped). offset delta apply regularly discretized dimensions, NA case. NA, dimension values may held values field. Rectilinear curvilinear grids need grid values values can either: rectilinear grids: irregularly spaced coordinate values, coordinate intervals irregular width (rectilinear grid can one dimension regular), curvilinear grids: matrix grid cell centre values row/col combinations (usually longitude latitude). Alternatively, values can contains set spatial geometries encoded sfc vector (“list-column”), case vector data cube.","code":""},{"path":[]},{"path":"/articles/stars4.html","id":"regular-grids","dir":"Articles","previous_headings":"Grid type","what":"Regular grids","title":"4. stars data model","text":"simple file created \\(4 \\times 5\\) matrix see rows (5) mapped first dimension, x-coordinate columns (4) mapped second dimension, y-coordinate fields dimension define range corresponds array dimension: offset delta specify increasing row column index maps x y coordinate values respectively. plot object, using image method stars objects, see \\((0,0)\\) origin grid (grid corner), \\(1\\) coordinate value increase one index (row, col) next. means consecutive matrix columns represent grid lines, going south north. Grids defined way regular: grid cell size constant everywhere. Many actual grid datasets y coordinates (grid rows) going North South (top bottom); realised negative value delta. see grid origing \\((0,0)\\) change: example GeoTIFF carried package, , probably data sources read GDAL, negative delta y-coordinate:","code":"suppressPackageStartupMessages(library(stars)) m = matrix(1:20, nrow = 5, ncol = 4) dim(m) = c(x = 5, y = 4) # named dim (s = st_as_stars(m)) ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## A1 1 5.75 10.5 10.5 15.25 20 ## dimension(s): ## from to offset delta point x/y ## x 1 5 0 1 FALSE [x] ## y 1 4 0 1 FALSE [y] dim(s[[1]]) ## x y ## 5 4 image(s, text_values = TRUE, axes = TRUE) attr(s, \"dimensions\")[[2]]$delta = -1 image(s, text_values = TRUE, axes = TRUE) tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") st_dimensions(read_stars(tif))[\"y\"] ## from to offset delta refsys point ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE"},{"path":"/articles/stars4.html","id":"raster-attributes-rotated-and-sheared-grids","dir":"Articles","previous_headings":"Grid type","what":"Raster attributes, rotated and sheared grids","title":"4. stars data model","text":"Dimension tables stars objects carry raster attribute: list holds dimensions: character, names raster dimensions (), opposed e.g. spectral, temporal dimensions affine: numeric, affine parameters curvilinear: logical indicating whether raster curvilinear fields needed level, describe properties array higher level individual dimensions : pair dimensions forms raster, affine curvilinear describe x y pair derived grid indexes (see ) done per-dimension basis. two affine parameters \\(a_1\\) \\(a_2\\), \\(x\\) \\(y\\) coordinates derived (1-based) grid indexes \\(\\) \\(j\\), grid offset values \\(o_x\\) \\(o_y\\), grid cell sizes \\(d_x\\) \\(d_y\\) \\[x = o_x + (-1) d_x + (j-1) a_1\\] \\[y = o_y + (-1) a_2 + (j-1) d_y\\] Clearly, \\(a_1=a_2=0\\), \\(x\\) \\(y\\) entirely derived respective index, offset cellsize. Note integer indexes, coordinates starting edge grid cell; get grid cell center top left grid cell (case negative \\(d_y\\)), use \\(=1.5\\) \\(j=1.5\\). can rotate grids setting \\(a_1\\) \\(a_2\\) non-zero value: rotation angle, degrees, Sheared grids obtained two rotation coefficients, \\(a_1\\) \\(a_2\\), unequal: Now, y-axis x-axis different rotation degrees respectively","code":"str(attr(st_dimensions(s), \"raster\")) ## List of 4 ## $ affine : num [1:2] 0 0 ## $ dimensions : chr [1:2] \"x\" \"y\" ## $ curvilinear: logi FALSE ## $ blocksizes : NULL ## - attr(*, \"class\")= chr \"stars_raster\" attr(attr(s, \"dimensions\"), \"raster\")$affine = c(0.1, 0.1) plot(st_as_sf(s, as_points = FALSE), axes = TRUE, nbreaks = 20) atan2(0.1, 1) * 180 / pi ## [1] 5.710593 attr(attr(s, \"dimensions\"), \"raster\")$affine = c(0.1, 0.2) plot(st_as_sf(s, as_points = FALSE), axes = TRUE, nbreaks = 20) atan2(c(0.1, 0.2), 1) * 180 / pi ## [1] 5.710593 11.309932"},{"path":"/articles/stars4.html","id":"rectilinear-grids","dir":"Articles","previous_headings":"","what":"Rectilinear grids","title":"4. stars data model","text":"Rectilinear grids orthogonal axes, congruent (equally sized shaped) cells: axis irregular subdivision. can define rectilinear grid specifying cell boundaries, meaning every dimension specify one value dimension size: leave last value, stars may come different cell boundary last cell, now derived width one--last cell: problematic cells constant width, case boundaries reduced offset delta value, irrespective whether upper boundary given: Alternatively, one can also set cell midpoints specifying arguments cell_midpoints st_dimensions call: dimension regular, results offset shifted back half delta, else intervals derived distances cell centers. obviously done cell boundaries specified.","code":"x = c(0, 0.5, 1, 2, 4, 5) # 6 numbers: boundaries! y = c(0.3, 0.5, 1, 2, 2.2) # 5 numbers: boundaries! (r = st_as_stars(list(m = m), dimensions = st_dimensions(x = x, y = y))) ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## m 1 5.75 10.5 10.5 15.25 20 ## dimension(s): ## from to point values x/y ## x 1 5 FALSE [0,0.5),...,[4,5) [x] ## y 1 4 FALSE [0.3,0.5),...,[2,2.2) [y] st_bbox(r) ## xmin ymin xmax ymax ## 0.0 0.3 5.0 2.2 image(r, axes = TRUE, col = grey((1:20)/20)) x = c(0, 0.5, 1, 2, 4) # 5 numbers: offsets only! y = c(0.3, 0.5, 1, 2) # 4 numbers: offsets only! (r = st_as_stars(list(m = m), dimensions = st_dimensions(x = x, y = y))) ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## m 1 5.75 10.5 10.5 15.25 20 ## dimension(s): ## from to point values x/y ## x 1 5 FALSE [0,0.5),...,[4,6) [x] ## y 1 4 FALSE [0.3,0.5),...,[2,3) [y] st_bbox(r) ## xmin ymin xmax ymax ## 0.0 0.3 6.0 3.0 x = c(0, 1, 2, 3, 4) # 5 numbers: offsets only! y = c(0.5, 1, 1.5, 2) # 4 numbers: offsets only! (r = st_as_stars(list(m = m), dimensions = st_dimensions(x = x, y = y))) ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## m 1 5.75 10.5 10.5 15.25 20 ## dimension(s): ## from to offset delta point x/y ## x 1 5 0 1 FALSE [x] ## y 1 4 0.5 0.5 FALSE [y] st_bbox(r) ## xmin ymin xmax ymax ## 0.0 0.5 5.0 2.5 x = st_as_stars(matrix(1:9, 3, 3), st_dimensions(x = c(1, 2, 3), y = c(2, 3, 10), cell_midpoints = TRUE))"},{"path":"/articles/stars4.html","id":"curvilinear-grids","dir":"Articles","previous_headings":"","what":"Curvilinear grids","title":"4. stars data model","text":"Curvilinear grids grids whose grid lines straight. Rather describing curvature parametrically, typical (HDF5 NetCDF) files found two raster layers longitudes latitudes every corresponding pixel remaining layers. example, use Sentinel 5P dataset available package starsdata; package can installed dataset found : can construct curvilinear stars raster calling read_stars right sub-array: array, can see GDAL metadata item GEOLOCATION: reveals , dataset, longitude latitude arrays kept. curvilinear array actual arrays (raster layers, matrices) longitude latitude values read dimension table. can plot file: can downsample data doesn’t look nice, plotting cells polygons looks better: Another approach warp curvilinear grid regular grid, e.g. ","code":"install.packages(\"starsdata\", repos = \"http://pebesma.staff.ifgi.de\", type = \"source\") (s5p = system.file(\"sentinel5p/S5P_NRTI_L2__NO2____20180717T120113_20180717T120613_03932_01_010002_20180717T125231.nc\", package = \"starsdata\")) ## [1] \"/home/runner/work/_temp/Library/starsdata/sentinel5p/S5P_NRTI_L2__NO2____20180717T120113_20180717T120613_03932_01_010002_20180717T125231.nc\" subs = gdal_subdatasets(s5p) subs[[6]] ## [1] \"NETCDF:\\\"/home/runner/work/_temp/Library/starsdata/sentinel5p/S5P_NRTI_L2__NO2____20180717T120113_20180717T120613_03932_01_010002_20180717T125231.nc\\\":/PRODUCT/nitrogendioxide_tropospheric_column\" gdal_metadata(subs[[6]], \"GEOLOCATION\") ## $LINE_OFFSET ## [1] \"0\" ## ## $LINE_STEP ## [1] \"1\" ## ## $PIXEL_OFFSET ## [1] \"0\" ## ## $PIXEL_STEP ## [1] \"1\" ## ## $SRS ## [1] \"GEOGCS[\\\"WGS 84\\\",DATUM[\\\"WGS_1984\\\",SPHEROID[\\\"WGS 84\\\",6378137,298.257223563,AUTHORITY[\\\"EPSG\\\",\\\"7030\\\"]],AUTHORITY[\\\"EPSG\\\",\\\"6326\\\"]],PRIMEM[\\\"Greenwich\\\",0,AUTHORITY[\\\"EPSG\\\",\\\"8901\\\"]],UNIT[\\\"degree\\\",0.0174532925199433,AUTHORITY[\\\"EPSG\\\",\\\"9122\\\"]],AXIS[\\\"Latitude\\\",NORTH],AXIS[\\\"Longitude\\\",EAST],AUTHORITY[\\\"EPSG\\\",\\\"4326\\\"]]\" ## ## $X_BAND ## [1] \"1\" ## ## $X_DATASET ## [1] \"NETCDF:\\\"/home/runner/work/_temp/Library/starsdata/sentinel5p/S5P_NRTI_L2__NO2____20180717T120113_20180717T120613_03932_01_010002_20180717T125231.nc\\\":/PRODUCT/longitude\" ## ## $Y_BAND ## [1] \"1\" ## ## $Y_DATASET ## [1] \"NETCDF:\\\"/home/runner/work/_temp/Library/starsdata/sentinel5p/S5P_NRTI_L2__NO2____20180717T120113_20180717T120613_03932_01_010002_20180717T125231.nc\\\":/PRODUCT/latitude\" ## ## attr(,\"class\") ## [1] \"gdal_metadata\" nit.c = read_stars(subs[[6]]) ## Warning in CPL_read_gdal(as.character(x), as.character(options), ## as.character(driver), : GDAL Message 1: The dataset has several variables that ## could be identified as vector fields, but not all share the same primary ## dimension. Consequently they will be ignored. ## Warning in CPL_read_gdal(as.character(x), as.character(options), ## as.character(driver), : GDAL Message 1: The dataset has several variables that ## could be identified as vector fields, but not all share the same primary ## dimension. Consequently they will be ignored. ## Warning in CPL_read_gdal(as.character(x), as.character(options), ## as.character(driver), : GDAL Message 1: The dataset has several variables that ## could be identified as vector fields, but not all share the same primary ## dimension. Consequently they will be ignored. ## Warning in CPL_read_gdal(as.character(x), as.character(options), ## as.character(driver), : GDAL Message 1: The dataset has several variables that ## could be identified as vector fields, but not all share the same primary ## dimension. Consequently they will be ignored. ## Warning in CPL_read_gdal(as.character(x), as.character(options), ## as.character(driver), : GDAL Message 1: The dataset has several variables that ## could be identified as vector fields, but not all share the same primary ## dimension. Consequently they will be ignored. ## Warning in CPL_read_gdal(as.character(x), as.character(options), ## as.character(driver), : GDAL Message 1: The dataset has several variables that ## could be identified as vector fields, but not all share the same primary ## dimension. Consequently they will be ignored. threshold = units::set_units(9e+36, mol/m^2) nit.c[[1]][nit.c[[1]] > threshold] = NA nit.c ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. ## nitrogendioxide_tropospheri... [mol/m^2] -3.301083e-05 1.868205e-05 ## Median Mean 3rd Qu. ## nitrogendioxide_tropospheri... [mol/m^2] 2.622178e-05 2.898976e-05 3.629641e-05 ## Max. NA's ## nitrogendioxide_tropospheri... [mol/m^2] 0.0003924858 330 ## dimension(s): ## from to offset refsys values x/y ## x 1 450 NA WGS 84 [450x278] -5.811 [°],...,30.95 [°] [x] ## y 1 278 NA WGS 84 [450x278] 28.36 [°],...,51.47 [°] [y] ## time 1 1 2018-07-17 UTC POSIXct NULL ## curvilinear grid plot(nit.c, breaks = \"equal\", reset = FALSE, axes = TRUE, as_points = TRUE, pch = 16, logz = TRUE, key.length = 1) ## Warning in NextMethod(): NaNs produced ## Warning in plot.sf(x, pal = col, ...): NaNs produced maps::map('world', add = TRUE, col = 'red') plot(nit.c, breaks = \"equal\", reset = FALSE, axes = TRUE, as_points = FALSE, border = NA, logz = TRUE, key.length = 1) ## Warning in NextMethod(): NaNs produced ## Warning in plot.sf(x, pal = col, ...): NaNs produced maps::map('world', add = TRUE, col = 'red') (nit.c_ds = stars:::st_downsample(nit.c, 8)) ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median ## nitrogendioxide_tropospheri... [mol/m^2] -1.847503e-05 1.85778e-05 2.700901e-05 ## Mean 3rd Qu. Max. ## nitrogendioxide_tropospheri... [mol/m^2] 2.9113e-05 3.642568e-05 0.0001363282 ## NA's ## nitrogendioxide_tropospheri... [mol/m^2] 32 ## dimension(s): ## from to offset refsys values x/y ## x 1 50 NA WGS 84 [50x31] -5.811 [°],...,30.14 [°] [x] ## y 1 31 NA WGS 84 [50x31] 28.78 [°],...,51.47 [°] [y] ## time 1 1 2018-07-17 UTC POSIXct NULL ## curvilinear grid plot(nit.c_ds, breaks = \"equal\", reset = FALSE, axes = TRUE, as_points = TRUE, pch = 16, logz = TRUE, key.length = 1) ## Warning in NextMethod(): NaNs produced ## Warning in plot.sf(x, pal = col, ...): NaNs produced maps::map('world', add = TRUE, col = 'red') plot(nit.c_ds, breaks = \"equal\", reset = FALSE, axes = TRUE, as_points = FALSE, border = NA, logz = TRUE, key.length = 1) ## Warning in NextMethod(): NaNs produced ## Warning in plot.sf(x, pal = col, ...): NaNs produced maps::map('world', add = TRUE, col = 'red') w = st_warp(nit.c, crs = 4326, cellsize = 0.25) ## Warning in transform_grid_grid(st_as_stars(src), st_dimensions(dest), ## threshold): using Euclidean distance measures on geodetic coordinates ## threshold set to 0.108545 : set a larger value if you see missing values where they shouldn't be plot(w)"},{"path":"/articles/stars5.html","id":"rasterizing-an-sf-vector-object","dir":"Articles","previous_headings":"","what":"Rasterizing an sf vector object","title":"5. vector-raster conversions, reprojection, warping","text":"algorithm used GDAL rasterize utility, options utility can passed st_rasterize. geometry final raster can controlled passing target bounding box either raster dimensions nx ny, pixel size dx dy parameters.","code":"library(stars) ## Loading required package: abind system.file(\"gpkg/nc.gpkg\", package = \"sf\") %>% read_sf() %>% st_transform(32119) -> nc nc$dens = nc$BIR79 / units::set_units(st_area(nc), km^2) (nc.st = st_rasterize(nc[\"dens\"], dx = 5000, dy = 5000)) ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's ## dens [1/km^2] 0.2545072 1.225631 1.932222 3.345918 3.825745 21.24828 4808 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 162 123829 5000 NAD83 / North Carolina FALSE [x] ## y 1 61 318260 -5000 NAD83 / North Carolina FALSE [y] plot(nc.st)"},{"path":"/articles/stars5.html","id":"vectorizing-a-raster-object-to-an-sf-object","dir":"Articles","previous_headings":"","what":"Vectorizing a raster object to an sf object","title":"5. vector-raster conversions, reprojection, warping","text":"stars objects can converted sf object using st_as_sf. number options, depending whether pixels represent point value pixel center, small square polygons single value. work landsat-7 6-band image, select first band round values:","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif)[, 1:50, 1:50, 1:2] x[[1]] = round(x[[1]]/5)"},{"path":"/articles/stars5.html","id":"polygonizing","dir":"Articles","previous_headings":"Vectorizing a raster object to an sf object","what":"Polygonizing","title":"5. vector-raster conversions, reprojection, warping","text":"case raster cells reflect point values want get vector representation whole field, can draw contour lines export contour sets (available GDAL version least 2.4.0):","code":"l = st_contour(x, contour_lines = TRUE, breaks = 11:15) plot(l[1], key.pos = 1, pal = sf.colors, lwd = 2, key.length = 0.8)"},{"path":"/articles/stars5.html","id":"exporting-to-points","dir":"Articles","previous_headings":"Vectorizing a raster object to an sf object","what":"Exporting to points","title":"5. vector-raster conversions, reprojection, warping","text":"Alternatively, can simply export pixels points, get either wide table bands per point, replicated POINT geometries: long table single attribute points replicated: can see, additional attribute band now indicates band concerned.","code":"st_as_sf(x, as_points = TRUE, merge = FALSE) ## Simple feature collection with 2500 features and 2 fields ## Geometry type: POINT ## Dimension: XY ## Bounding box: xmin: 288790.5 ymin: 9119350 xmax: 290187 ymax: 9120747 ## Projected CRS: SIRGAS 2000 / UTM zone 25S ## First 10 features: ## L7_ETMs.tif.V1 L7_ETMs.tif.V2 geometry ## 1 14 11 POINT (288790.5 9120747) ## 2 14 11 POINT (288819 9120747) ## 3 13 10 POINT (288847.5 9120747) ## 4 12 9 POINT (288876 9120747) ## 5 12 10 POINT (288904.5 9120747) ## 6 12 10 POINT (288933 9120747) ## 7 12 10 POINT (288961.5 9120747) ## 8 12 10 POINT (288990 9120747) ## 9 13 10 POINT (289018.5 9120747) ## 10 13 10 POINT (289047 9120747) st_as_sf(x, as_points = TRUE, merge = FALSE, long = TRUE) ## Simple feature collection with 5000 features and 2 fields ## Geometry type: POINT ## Dimension: XY ## Bounding box: xmin: 288790.5 ymin: 9119350 xmax: 290187 ymax: 9120747 ## Projected CRS: SIRGAS 2000 / UTM zone 25S ## First 10 features: ## band L7_ETMs.tif geometry ## 1 1 14 POINT (288790.5 9120747) ## 2 1 14 POINT (288819 9120747) ## 3 1 13 POINT (288847.5 9120747) ## 4 1 12 POINT (288876 9120747) ## 5 1 12 POINT (288904.5 9120747) ## 6 1 12 POINT (288933 9120747) ## 7 1 12 POINT (288961.5 9120747) ## 8 1 12 POINT (288990 9120747) ## 9 1 13 POINT (289018.5 9120747) ## 10 1 13 POINT (289047 9120747)"},{"path":"/articles/stars5.html","id":"exporting-to-polygons","dir":"Articles","previous_headings":"Vectorizing a raster object to an sf object","what":"Exporting to polygons","title":"5. vector-raster conversions, reprojection, warping","text":"Alternatively, can export polygons either get single polygon per pixel, merge polygons identical pixel values; plotted boundaries, see resolved boundaries areas pixel value: option connect8 can set TRUE use 8 connectedness, rather default 4 connectedness algorithm. cases, polygons returned often invalid according simple feature standard, can made valid using lwgeom::st_make_valid.","code":"st_as_sf(x[1], as_points = FALSE, merge = FALSE) ## Simple feature collection with 2500 features and 2 fields ## Geometry type: POLYGON ## Dimension: XY ## Bounding box: xmin: 288776.3 ymin: 9119336 xmax: 290201.3 ymax: 9120761 ## Projected CRS: SIRGAS 2000 / UTM zone 25S ## First 10 features: ## L7_ETMs.tif.V1 L7_ETMs.tif.V2 geometry ## 1 14 11 POLYGON ((288776.3 9120761,... ## 2 14 11 POLYGON ((288804.8 9120761,... ## 3 13 10 POLYGON ((288833.3 9120761,... ## 4 12 9 POLYGON ((288861.8 9120761,... ## 5 12 10 POLYGON ((288890.3 9120761,... ## 6 12 10 POLYGON ((288918.8 9120761,... ## 7 12 10 POLYGON ((288947.3 9120761,... ## 8 12 10 POLYGON ((288975.8 9120761,... ## 9 13 10 POLYGON ((289004.3 9120761,... ## 10 13 10 POLYGON ((289032.8 9120761,... p = st_as_sf(x, as_points = FALSE, merge = TRUE) plot(p)"},{"path":"/articles/stars5.html","id":"switching-between-vector-and-raster-in-stars-objects","dir":"Articles","previous_headings":"","what":"Switching between vector and raster in stars objects","title":"5. vector-raster conversions, reprojection, warping","text":"can convert raster dimension vector dimension keeping dimensions stars object also requires setting as_points arguments st_as_sf.","code":"x.sf = st_xy2sfc(x, as_points = TRUE) x.sf ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 7 9 11 11.2548 12 28 ## dimension(s): ## from to refsys point ## geometry 1 2500 SIRGAS 2000 / UTM zone 25S TRUE ## band 1 2 NA NA ## values ## geometry POINT (288790.5 9120747),...,POINT (290187 9119350) ## band NULL"},{"path":"/articles/stars5.html","id":"reprojecting-a-raster","dir":"Articles","previous_headings":"","what":"Reprojecting a raster","title":"5. vector-raster conversions, reprojection, warping","text":"accept curvilinear rasters rasters , regular rectilinear grids special cases curvilinear grids, reprojecting raster longer “problem”, just recomputes new coordinates every raster cell, generally results curvilinear grid (sometimes can brought back regular rectilinear grid). curvilinear grid cells represented coordinates cell center, actual shape grid cell gets lost, may larger effect grid cells large transformation stronger non-linear. example reprojection grid created noted dimensionality grid didn’t change: set raster cells replotted new CRS, now curvilinear grid.","code":"nc.st %>% st_transform(\"+proj=laea +lat_0=34 +lon_0=-60\") -> nc.curv nc.curv ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's ## dens [1/km^2] 0.2545072 1.225631 1.932222 3.345918 3.825745 21.24828 4808 ## dimension(s): ## from to refsys point values ## x 1 162 +proj=laea +lat_0=34 +lon... FALSE [162x61] -2210936,...,-1371611 ## y 1 61 +proj=laea +lat_0=34 +lon... FALSE [162x61] 90650,...,538204 ## x/y ## x [x] ## y [y] ## curvilinear grid plot(nc.curv, border = NA, graticule = TRUE)"},{"path":"/articles/stars5.html","id":"warping-a-raster","dir":"Articles","previous_headings":"","what":"Warping a raster","title":"5. vector-raster conversions, reprojection, warping","text":"Warping raster means creating new regular grid new CRS, based (usually regular) grid another CRS. can transformation previous section first creating target grid: warping old raster new new object regular grid new CRS, aligned new x- y-axes.","code":"nc %>% st_transform(\"+proj=laea +lat_0=34 +lon_0=-60\") %>% st_bbox() %>% st_as_stars() -> newgrid nc.st %>% st_warp(newgrid) -> nc.new nc.new ## stars object with 2 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's ## dens [1/km^2] 0.2545072 1.225631 1.932222 3.344805 3.825745 21.24828 36155 ## dimension(s): ## from to offset delta refsys x/y ## x 1 380 -2188110 2098 +proj=laea +lat_0=34 +lon... [x] ## y 1 171 494924 -2098 +proj=laea +lat_0=34 +lon... [y] plot(nc.new)"},{"path":"/articles/stars6.html","id":"comment-legend","dir":"Articles","previous_headings":"","what":"COMMENT LEGEND","title":"6. How `raster` functions map to `stars` functions","text":"? = sure / unknown * = present, low priority # = present, high priority NA = available design","code":""},{"path":[]},{"path":[]},{"path":[]},{"path":[]},{"path":[]},{"path":[]},{"path":[]},{"path":[]},{"path":[]},{"path":[]},{"path":"/articles/stars6.html","id":"computing-row-column-cell-numbers-and-coordinates","dir":"Articles","previous_headings":"","what":"Computing row, column, cell numbers and coordinates","title":"6. How `raster` functions map to `stars` functions","text":"format table follows raster-package entry raster manual, found https://cran.r-project.org/web/packages/raster/raster.pdf.","code":""},{"path":"/articles/stars7.html","id":"training-and-prediction-with-stars-objects","dir":"Articles","previous_headings":"","what":"Training and prediction with stars objects","title":"7. Statistical modelling with stars objects","text":"usual way statistical modelling R uses data.frames (tibbles), proceeds like model function like lm, glm, randomForest etc. returns classed object, predict generic can choose right prediction function based class. formula looks like y ~ x1+x2 specifies dependent variable (y) predictors (x1, x2), found columns data. newdata needs predictors columns, returns predicted values y values predictors.","code":"m = model(formula, data) pr = predict(m, newdata)"},{"path":"/articles/stars7.html","id":"stars-objects-as-data-frames","dir":"Articles","previous_headings":"Training and prediction with stars objects","what":"stars objects as data.frames","title":"7. Statistical modelling with stars objects","text":"analogy stars objects data.frame : attribute (array) becomes single column dimensions become added (index) columns see works 6-band example dataset, consider : see get one single variable object (array) name, added columns dimension values (x, y, band). typical case, like six bands distributed six variables, single observation (row) x/y pair. , use e.g. utils::unstack dplyr::pivot_wider data.frame, efficient way use dedicated split method stars objects, resolves dimension splits attributes, one dimension value: reason split efficient mentioned alternatives () split match records based dimensions (x/y), (ii) works --memory (stars_proxy) arrays, chunked process/write loop write_stars(). ### Predict stars objects pattern obtain predictions pixels stars objects : use full dataset sample train model, using .data.frame() (possibly split) use predict(star_object, model) predict pixels stars_object, using stars-wrapper predict method model. predict method model, provide one (see kmeans example ) works stars objects (-memory) stars_proxy objects (-memory). plotting stars_proxy objects, downsampling done prediction (predicting pixels shown), full rasters can written disk write_stars(), carry predictions chunks read written.","code":"library(stars) ## Loading required package: abind ## Loading required package: sf ## Linking to GEOS 3.10.2, GDAL 3.4.1, PROJ 8.2.1; sf_use_s2() is TRUE l7 = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") %>% read_stars() l7 ## stars object with 3 dimensions and 1 attribute ## attribute(s): ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## L7_ETMs.tif 1 54 69 68.91242 86 255 ## dimension(s): ## from to offset delta refsys point x/y ## x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] ## y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] ## band 1 6 NA NA NA NA as.data.frame(l7) %>% head() ## x y band L7_ETMs.tif ## 1 288790.5 9120747 1 69 ## 2 288819.0 9120747 1 69 ## 3 288847.5 9120747 1 63 ## 4 288876.0 9120747 1 60 ## 5 288904.5 9120747 1 61 ## 6 288933.0 9120747 1 61 l7 %>% split(\"band\") %>% as.data.frame() %>% head() ## x y X1 X2 X3 X4 X5 X6 ## 1 288790.5 9120747 69 56 46 79 86 46 ## 2 288819.0 9120747 69 57 49 75 88 49 ## 3 288847.5 9120747 63 52 45 66 75 41 ## 4 288876.0 9120747 60 45 35 66 69 38 ## 5 288904.5 9120747 61 52 44 76 92 60 ## 6 288933.0 9120747 61 50 37 78 74 38"},{"path":"/articles/stars7.html","id":"models-fitted-for-every-pixel","dir":"Articles","previous_headings":"","what":"models fitted for every pixel","title":"7. Statistical modelling with stars objects","text":"can run models many different ways array data. One way run single model pixels, model operates e.g. spectral (band) temporal dimension. example given vignette 2, NDVI computed red near infrared band. NDVI involve estimating parameters, reducing two bands one. example fit model every pixel fit time series model pixel time series, output one model coefficients pixel; shown next.","code":""},{"path":"/articles/stars7.html","id":"linear-regression-on-pixel-time-series","dir":"Articles","previous_headings":"models fitted for every pixel","what":"Linear regression on pixel time series","title":"7. Statistical modelling with stars objects","text":"can read avhrr dataset, containing 9 days: use function computes slope regression line temperature time. get temperatures vector first argument function supplied st_apply, t already defined. function look like optimize bit, using anyNA lm.fit rather lm: result lazily defined (adrop drops singular dimension) computed following command, computations restricted pixels plotted: interisting pattern appears (despite short time series!): SST reveals main signal colder getting equator, changes SST show much fine grained structures areas going , others going . diverging color ramp better choice , distinguis positive negative trends.","code":"library(stars) x = c(\"avhrr-only-v2.19810901.nc\", \"avhrr-only-v2.19810902.nc\", \"avhrr-only-v2.19810903.nc\", \"avhrr-only-v2.19810904.nc\", \"avhrr-only-v2.19810905.nc\", \"avhrr-only-v2.19810906.nc\", \"avhrr-only-v2.19810907.nc\", \"avhrr-only-v2.19810908.nc\", \"avhrr-only-v2.19810909.nc\") file_list = system.file(paste0(\"netcdf/\", x), package = \"starsdata\") y = read_stars(file_list, sub = \"sst\", quiet = TRUE, proxy = TRUE) (t = st_get_dimension_values(y, 4)) ## [1] \"1981-09-01 UTC\" \"1981-09-02 UTC\" \"1981-09-03 UTC\" \"1981-09-04 UTC\" ## [5] \"1981-09-05 UTC\" \"1981-09-06 UTC\" \"1981-09-07 UTC\" \"1981-09-08 UTC\" ## [9] \"1981-09-09 UTC\" slope = function(x) { if (any(is.na(x))) NA_real_ else coeffients(lm(x~t))[2] } slope = function(x) { if (anyNA(x)) NA_real_ else lm.fit(cbind(1, t), x)$coefficients[2] } out = st_apply(adrop(y), c(1,2), slope) plot(out, breaks = \"equal\", main = \"9-day time trend (slope)\") ## downsample set to 1"},{"path":[]},{"path":"/articles/stars7.html","id":"principal-components","dir":"Articles","previous_headings":"Unsupervised learners","what":"Principal components","title":"7. Statistical modelling with stars objects","text":"first example, build principal components entire data set, rather small. see, amongst others, PC1 picks difference sea (dark) land, PC2 3 structures sea coastal waters. second example, build principal components sample entire data set, entire dataset rather large. apply , using predict, pixels shown plot (.e. reduced rather full resolution) plotting , ’ll add country borders delineate sea, obtained mapdata package: plot results independent color ranges, every PC stretched entire grey scale. suggests PC1 picks difference cloud signal (difference clouds non-clouds), PC2 difference sea land areas, PC4 sensor artefacts (striping swath direction). compute full resolution (10000 x 10000 pixels) results write file, use","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") r = split(read_stars(tif)) pc = prcomp(as.data.frame(r)[,-(1:2)]) # based on all data out = predict(r, pc) plot(merge(out), breaks = \"equal\", join_zlim = FALSE) granule = system.file(\"sentinel/S2A_MSIL1C_20180220T105051_N0206_R051_T32ULE_20180221T134037.zip\", package = \"starsdata\") s2 = paste0(\"SENTINEL2_L1C:/vsizip/\", granule, \"/S2A_MSIL1C_20180220T105051_N0206_R051_T32ULE_20180221T134037.SAFE/MTD_MSIL1C.xml:10m:EPSG_32632\") p = read_stars(s2, proxy = TRUE, NA_value = 0) %>% split() r = st_sample(p, 1000) pc = prcomp(na.omit(as.data.frame(r))[,-(1:2)]) # based on all data out = predict(p, pc) bb = st_bbox(p) %>% st_as_sfc() %>% st_transform(4326) %>% st_bbox() library(maps) library(mapdata) m = map(\"worldHires\", xlim = bb[c(1,3)], ylim = bb[c(2,4)], plot=F,fill=TRUE) %>% st_as_sfc() %>% st_transform(st_crs(r)) plt_boundary = function() plot(m, border = 'orange', add = TRUE) plot(merge(out), hook = plt_boundary, join_zlim = FALSE) ## downsample set to 18 write_stars(merge(out), \"out.tif\")"},{"path":"/articles/stars7.html","id":"k-means-clustering","dir":"Articles","previous_headings":"Unsupervised learners","what":"K-means clustering","title":"7. Statistical modelling with stars objects","text":"small dataset: seems pick fair number land cover classes: water (5), rural (3), densely populated (1, 2). large(r) dataset: see class 1 3 identify unclouded area, 3 land, classes seem mainly catch aspects cloud signal.","code":"library(clue) predict.kmeans = function(object, newdata, ...) { unclass(clue::cl_predict(object, newdata[, -c(1:2)], ...)) } tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") i = read_stars(tif, proxy = TRUE) %>% split() nclus = 5 sam = st_sample(i, 1000) k = kmeans(na.omit(as.data.frame(sam)[, -c(1:2)]), nclus) out = predict(i, k) plot(out, col = sf.colors(nclus, categorical=TRUE)) i = read_stars(s2, proxy = TRUE, NA_value = 0) %>% split() sam = st_sample(i, 1000) k = kmeans(na.omit(as.data.frame(sam)[, -c(1:2)]), nclus) out = predict(i, k) plot(out, col = sf.colors(nclus, categorical=TRUE), reset = FALSE) ## downsample set to 18 plot(m, add = TRUE)"},{"path":[]},{"path":"/articles/stars7.html","id":"random-forest-land-use-classification","dir":"Articles","previous_headings":"Supervised learners","what":"Random Forest land use classification","title":"7. Statistical modelling with stars objects","text":"following example purely educational purposes; classified “land use” just rough approximation seems easily visible image: sea, land, areas partially covered clouds. opted therefore four classes: sea, land, clouds sea, clouds land. polygon areas land use classified, residing GeoPackage file. (file created using QGIS, using instructions found .) Next, need points, sampled inside polygons, need extract satellite spectral data comes rather trivial finding land sea can well predicted clouds, less trivial finding can reasonably distinguished patchy clouds kind. Note predictions kind pure pixel-based: prediction spectral bands pixel considered, instance neighboring pixels.","code":"# for all, multi-resolution, use: bands = c(\"B04\", \"B03\", \"B02\", \"B08\", \"B01\", \"B05\", \"B06\", \"B07\", \"B8A\", \"B09\", \"B10\", \"B11\", \"B12\") # bands = c(\"B04\", \"B03\", \"B02\", \"B08\") s2 = paste0(\"/vsizip/\", granule, \"/S2A_MSIL1C_20180220T105051_N0206_R051_T32ULE_20180221T134037.SAFE/GRANULE/L1C_T32ULE_A013919_20180220T105539/IMG_DATA/T32ULE_20180220T105051_\", bands, \".jp2\") r = read_stars(s2, proxy = TRUE, NA_value = 0) %>% setNames(bands) cl = read_sf(system.file(\"gpkg/s2.gpkg\", package = \"stars\")) %>% st_transform(st_crs(r)) plot(r, reset = FALSE) ## downsample set to 8 plot(cl, add = TRUE) plot(m, add = TRUE, border = 'orange') pts = st_sample(cl, 1000, \"regular\") %>% st_as_sf() %>% st_intersection(cl) ## Warning: attribute variables are assumed to be spatially constant throughout ## all geometries train = st_extract(r, pts) train$use = as.factor(pts$use) # no need for join, since the order did not change train ## Simple feature collection with 1000 features and 14 fields ## Geometry type: POINT ## Dimension: XY ## Bounding box: xmin: 328195.1 ymin: 5909563 xmax: 407928.8 ymax: 5970391 ## Projected CRS: WGS 84 / UTM zone 32N ## First 10 features: ## B04 B03 B02 B08 B01 B05 B06 B07 B8A B09 B10 B11 B12 ## 1 921 1139 1396 2375 1744 1180 1860 2099 2396 1006 15 1458 779 ## 2 879 1136 1366 2935 1728 1246 2148 2537 2814 994 14 1669 887 ## 3 870 1029 1338 1872 1694 1076 1567 1765 2042 824 14 1629 856 ## 4 1016 1228 1439 3054 1789 1477 2655 3057 3427 1207 15 2220 1210 ## 5 1010 1145 1449 2039 1782 1302 1724 1975 2144 860 10 1795 999 ## 6 1344 1213 1475 1943 1770 1427 1684 1901 2143 863 14 2276 1365 ## 7 1067 1204 1472 2348 1778 1369 2057 2306 2685 1032 17 2010 1179 ## 8 1035 1144 1437 2289 1760 1299 1891 2246 2637 1042 11 1788 920 ## 9 854 1047 1371 1902 1715 1146 1815 1941 2133 782 16 1568 949 ## 10 941 1155 1379 2802 1689 1380 2268 2595 2976 1058 15 2012 1086 ## x use ## 1 POINT (394518.2 5940525) land ## 2 POINT (390045.1 5931738) land ## 3 POINT (390340.9 5929888) land ## 4 POINT (391254 5938829) land ## 5 POINT (391997.7 5937843) land ## 6 POINT (395680.9 5933296) land ## 7 POINT (388792.2 5934807) land ## 8 POINT (392185.2 5940074) land ## 9 POINT (387142.8 5936359) land ## 10 POINT (390877.6 5927178) land library(randomForest) ## randomForest 4.7-1.1 ## Type rfNews() to see new features/changes/bug fixes. ## ## Attaching package: 'randomForest' ## The following object is masked from 'package:dplyr': ## ## combine train = as.data.frame(train) train$x = NULL # remove geometry rf = randomForest(use ~ ., train) # ~ . : use all other attributes pr = predict(r, rf) plot(pr, key.width = lcm(5), reset = FALSE, key.pos = 4) ## downsample set to 8 # add country outline: plot(m, add = TRUE)"},{"path":"/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Edzer Pebesma. Author, maintainer. Michael Sumner. Contributor. Etienne Racine. Contributor. Adriano Fantini. Contributor. David Blodgett. Contributor.","code":""},{"path":"/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Pebesma E, Bivand R (2023). Spatial Data Science: applications R. Chapman Hall/CRC, London. doi:10.1201/9780429459016, https://r-spatial.org/book/.","code":"@Book{, title = {{Spatial Data Science: With applications in R}}, author = {Edzer Pebesma and Roger Bivand}, year = {2023}, publisher = {Chapman and Hall/CRC}, address = {London}, url = {https://r-spatial.org/book/}, pages = {352}, doi = {10.1201/9780429459016}, }"},{"path":"/index.html","id":"spatiotemporal-arrays-raster-and-vector-datacubes","dir":"","previous_headings":"","what":"Spatiotemporal Arrays, Raster and Vector Data Cubes","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"Spatiotemporal data often comes form dense arrays, space time array dimensions. Examples include socio-economic demographic data, environmental variables monitored fixed stations, raster maps time series satellite images multiple spectral bands, spatial simulations, climate weather model output. R package provides classes methods reading, manipulating, plotting writing data cubes, extent proper formats .","code":""},{"path":"/index.html","id":"raster-and-vector-data-cubes","dir":"","previous_headings":"","what":"Raster and vector data cubes","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"canonical data cube us mind two dimensions represent spatial raster dimensions, third time (band), e.g. shown : data cubes however also consider higher-dimensional cubes (hypercubes) five-dimensional cube addition time, spectral band sensor form dimensions: lower-dimensional cubes raster image: Raster data need regular aligned North/East, package stars supports besides regular also rotated, sheared, rectilinear curvilinear rasters: Vector data cubes arise two regularly discretized spatial dimensions, single dimension points distinct spatial feature geometries, polygons (e.g. denoting administrative regions): points (e.g. denoting sensor locations): NetCDF’s CF-convention calls discrete axis.","code":"suppressPackageStartupMessages(library(dplyr)) library(stars) # Loading required package: abind # Loading required package: sf # Linking to GEOS 3.11.1, GDAL 3.6.2, PROJ 9.1.1; sf_use_s2() is TRUE tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") read_stars(tif) |> slice(index = 1, along = \"band\") |> plot()"},{"path":"/index.html","id":"netcdf-gdal","dir":"","previous_headings":"","what":"NetCDF, GDAL","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"stars provides two functions read data: read_ncdf read_stars, latter reads GDAL. (future, integrated read_stars.) reading NetCDF files, package RNetCDF used, reading GDAL, package sf provides binary linking GDAL. vector raster operations, stars uses much possible routines available GDAL PROJ (e.g. st_transform, rasterize, polygonize, warp). Read vignette vector-raster conversions, reprojection, warping.","code":""},{"path":"/index.html","id":"out-of-memory-on-disk-rasters","dir":"","previous_headings":"","what":"Out-of-memory (on-disk) rasters","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"Package stars provides stars_proxy objects (currently read GDAL), contain dimensions metadata pointers files disk. objects work lazily: reading processing data postponed moment pixels really needed (plot time, writing disk), done lowest spatial resolution possible still fulfills resolution graphics device. details found stars proxy vignette. following methods currently available stars_proxy objects:","code":"methods(class = \"stars_proxy\") # [1] [ [[<- [<- adrop # [5] aggregate aperm as.data.frame c # [9] coerce dim droplevels filter # [13] hist initialize is.na Math # [17] merge mutate Ops plot # [21] predict print pull rename # [25] select show slice slotsFromS3 # [29] split st_apply st_as_sf st_as_stars # [33] st_crop st_dimensions<- st_downsample st_mosaic # [37] st_normalize st_redimension st_sample st_set_bbox # [41] transmute write_stars # see '?methods' for accessing help and source code"},{"path":"/index.html","id":"raster-and-vector-time-series-analysis-example","dir":"","previous_headings":"","what":"Raster and vector time series analysis example","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"following, curvilinear grid hourly precipitation values hurricane imported first 12 time steps plotted: next, intersected counties North Carolina, maximum precipitation intensity obtained per county, plotted: can integrate (reduce) time, instance find maximum precipitation occurred. following code finds time index, corresponding time value: package cubble, can make glyph map see magnitude timings county maximum precipitation:","code":"prec_file = system.file(\"nc/test_stageiv_xyt.nc\", package = \"stars\") (prec = read_stars(gdal_subdatasets(prec_file)[[1]])) # stars object with 3 dimensions and 1 attribute # attribute(s): # Min. 1st Qu. Median Mean 3rd Qu. # Total_precipitation_surface... [kg/m^2] 0 0 0.75 4.143009 4.63 # Max. # Total_precipitation_surface... [kg/m^2] 163.75 # dimension(s): # from to offset delta refsys # x 1 87 NA NA WGS 84 # y 1 118 NA NA WGS 84 # time 1 23 2018-09-13 19:00:00 UTC 1 hours POSIXct # values x/y # x [87x118] -80.61 [°],...,-74.88 [°] [x] # y [87x118] 32.44 [°],...,37.62 [°] [y] # time NULL # curvilinear grid # or: (prec = read_ncdf(prec_file, curvilinear = c(\"lon\", \"lat\"), ignore_bounds = TRUE)) sf::read_sf(system.file(\"gpkg/nc.gpkg\", package = \"sf\"), \"nc.gpkg\") |> st_transform(st_crs(prec)) -> nc # transform from NAD27 to WGS84 nc_outline = st_union(st_geometry(nc)) plot_hook = function() plot(nc_outline, border = 'red', add = TRUE) prec |> slice(index = 1:12, along = \"time\") |> plot(downsample = c(3, 3, 1), hook = plot_hook) a = aggregate(prec, by = nc, FUN = max) plot(a, max.plot = 23, border = 'grey', lwd = .5) index_max = function(x) ifelse(all(is.na(x)), NA, which.max(x)) b = st_apply(a, \"geom\", index_max) b |> mutate(when = st_get_dimension_values(a, \"time\")[b$index_max]) |> select(when) |> plot(key.pos = 1, main = \"time of maximum precipitation\") library(cubble) # # Attaching package: 'cubble' # The following object is masked from 'package:stats': # # filter library(ggplot2) a |> setNames(\"precip\") |> st_set_dimensions(2, name = \"tm\") |> units::drop_units() |> as_cubble(key = id, index = tm) |> suppressWarnings() -> a.cb a.cb |> face_temporal() |> unfold(long, lat) |> mutate(tm = as.numeric(tm)) |> ggplot(aes(x_major = long, x_minor = tm, y_major = lat, y_minor = precip)) + geom_sf(data = nc, inherit.aes = FALSE) + geom_glyph_box(width = 0.3, height = 0.1) + geom_glyph(width = 0.3, height = 0.1) # Warning: There were 84 warnings in `dplyr::mutate()`. # The first warning was: # ℹ In argument: `y = .data$y_major + rescale11(.data$y_minor) * .data$height/2`. # ℹ In group 12: `group = 12`. # Caused by warning in `min()`: # ! no non-missing arguments to min; returning Inf # ℹ Run `dplyr::last_dplyr_warnings()` to see the 83 remaining warnings. # Warning: Removed 966 rows containing missing values (`geom_glyph_box()`). # Warning: Removed 966 rows containing missing values (`geom_glyph()`)."},{"path":[]},{"path":"/index.html","id":"gdalcubes","dir":"","previous_headings":"Other packages for data cubes","what":"gdalcubes","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"Package gdalcubes can used create data cubes (functions ) image collections, sets multi-band images varying spatial resolution spatial extent coordinate reference systems (e.g., spread multiple UTM zones) observation times resampling /aggregating space /time. reuses GDAL VRT’s gdalwarp spatial resampling /warping, handles temporal resampling aggregation .","code":""},{"path":"/index.html","id":"ncdfgeom","dir":"","previous_headings":"Other packages for data cubes","what":"ncdfgeom","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"ncdfgeom reads writes vector data cubes netcdf files standards-compliant way.","code":""},{"path":"/index.html","id":"raster-and-terra","dir":"","previous_headings":"Other packages for data cubes","what":"raster and terra","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"Packages raster successor, terra powerful packages handling raster maps stacks raster maps memory disk, address non-raster time series, multi-attribute rasters time series rasters mixed type attributes (e.g., numeric, logical, factor, POSIXct) rectilinear curvilinear rasters list stars commands matching existing raster commands found wiki. list translations opposite direction (stars raster terra) still needs made. comment differences stars terra found .","code":""},{"path":"/index.html","id":"other-stars-resources","dir":"","previous_headings":"","what":"Other stars resources:","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"blog posts: first, second, third, newer blog posts vignettes: first, second, third, fourth, fifth original R Consortium proposal.","code":""},{"path":"/index.html","id":"acknowledgment","dir":"","previous_headings":"Other stars resources:","what":"Acknowledgment","title":"Spatiotemporal Arrays, Raster and Vector Data Cubes","text":"project realized financial support ","code":""},{"path":"/reference/L7_ETMs.html","id":null,"dir":"Reference","previous_headings":"","what":"Landsat-7 bands for a selected region around Olinda, BR — L7_ETMs","title":"Landsat-7 bands for a selected region around Olinda, BR — L7_ETMs","text":"Probably containing six 30 m bands: Band 1 Visible (0.45 - 0.52 µm) 30 m Band 2 Visible (0.52 - 0.60 µm) 30 m Band 3 Visible (0.63 - 0.69 µm) 30 m Band 4 Near-Infrared (0.77 - 0.90 µm) 30 m Band 5 Short-wave Infrared (1.55 - 1.75 µm) 30 m Band 7 Mid-Infrared (2.08 - 2.35 µm) 30 m","code":""},{"path":"/reference/L7_ETMs.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Landsat-7 bands for a selected region around Olinda, BR — L7_ETMs","text":"","code":"L7_ETMs"},{"path":"/reference/L7_ETMs.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Landsat-7 bands for a selected region around Olinda, BR — L7_ETMs","text":"object class stars_proxy (inherits stars) dimension 349 x 352 x 6.","code":""},{"path":"/reference/aggregate.stars.html","id":null,"dir":"Reference","previous_headings":"","what":"spatially or temporally aggregate stars object — aggregate.stars","title":"spatially or temporally aggregate stars object — aggregate.stars","text":"spatially temporally aggregate stars object, returning data cube lower spatial temporal resolution","code":""},{"path":"/reference/aggregate.stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"spatially or temporally aggregate stars object — aggregate.stars","text":"","code":"# S3 method for stars aggregate( x, by, FUN, ..., drop = FALSE, join = st_intersects, as_points = any(st_dimension(by) == 2, na.rm = TRUE), rightmost.closed = FALSE, left.open = FALSE, exact = FALSE )"},{"path":"/reference/aggregate.stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"spatially or temporally aggregate stars object — aggregate.stars","text":"x object class stars information aggregated object class sf sfc spatial aggregation, temporal aggregation vector time values (Date, POSIXct, PCICt) interpreted sequence left-closed, right-open time intervals string like \"months\", \"5 days\" like (see cut.POSIXt), function cuts time intervals; object class stars, converted sfc st_as_sfc(, as_points = FALSE) thus ignoring time component. Note: pixel assigned single group (order groups occur) non-overlapping spatial features temporal windows recommended. FUN aggregation function, mean ... arguments passed FUN, na.rm=TRUE drop logical; ignored join function; function used find matches x as_points see st_as_sf: shall raster pixels taken points, small square polygons? rightmost.closed see findInterval left.open logical; used time intervals, see findInterval cut.POSIXt exact logical; TRUE, use coverage_fraction compute exact overlap fractions polygons raster cells","code":""},{"path":[]},{"path":"/reference/aggregate.stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"spatially or temporally aggregate stars object — aggregate.stars","text":"","code":"# aggregate time dimension in format Date tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") t1 = as.Date(\"2018-07-31\") x = read_stars(c(tif, tif, tif, tif), along = list(time = c(t1, t1+1, t1+2, t1+3)))[,1:30,1:30] st_get_dimension_values(x, \"time\") #> [1] \"2018-07-31\" \"2018-08-01\" \"2018-08-02\" \"2018-08-03\" x_agg_time = aggregate(x, by = t1 + c(0, 2, 4), FUN = max) # aggregate time dimension in format Date - interval by_t = \"2 days\" x_agg_time2 = aggregate(x, by = by_t, FUN = max) st_get_dimension_values(x_agg_time2, \"time\") #> [1] \"2018-07-31\" \"2018-08-02\" #TBD: #x_agg_time - x_agg_time2 # aggregate time dimension in format POSIXct x = st_set_dimensions(x, 4, values = as.POSIXct(c(\"2018-07-31\", \"2018-08-01\", \"2018-08-02\", \"2018-08-03\")), names = \"time\") by_t = as.POSIXct(c(\"2018-07-31\", \"2018-08-02\")) x_agg_posix = aggregate(x, by = by_t, FUN = max) st_get_dimension_values(x_agg_posix, \"time\") #> [1] \"2018-07-31 UTC\" \"2018-08-02 UTC\" #TBD: # x_agg_time - x_agg_posix aggregate(x, \"2 days\", mean) #> stars object with 4 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 17 43 58 57.58796 70 145 #> dimension(s): #> from to offset delta refsys point x/y #> time 1 2 2018-07-31 UTC 2 days POSIXct NA #> x 1 30 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 30 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA if (require(ncmeta, quietly = TRUE)) { # Spatial aggregation, see https://github.com/r-spatial/stars/issues/299 prec_file = system.file(\"nc/test_stageiv_xyt.nc\", package = \"stars\") prec = read_ncdf(prec_file, curvilinear = c(\"lon\", \"lat\")) prec_slice = dplyr::slice(prec, index = 17, along = \"time\") nc = sf::read_sf(system.file(\"gpkg/nc.gpkg\", package = \"sf\"), \"nc.gpkg\") nc = st_transform(nc, st_crs(prec_slice)) agg = aggregate(prec_slice, st_geometry(nc), mean) plot(agg) } #> no 'var' specified, using Total_precipitation_surface_1_Hour_Accumulation #> other available variables: #> lat, lon, time #> Will return stars object with 236118 cells. #> No projection information found in nc file. #> Coordinate variable units found to be degrees, #> assuming WGS84 Lat/Lon. # example of using a function for \"by\": aggregate by month-of-year d = c(10, 10, 150) a = array(rnorm(prod(d)), d) # pure noise times = Sys.Date() + seq(1, 2000, length.out = d[3]) m = as.numeric(format(times, \"%m\")) signal = rep(sin(m / 12 * pi), each = prod(d[1:2])) # yearly period s = (st_as_stars(a) + signal) %>% st_set_dimensions(3, values = times) f = function(x, format = \"%B\") { months = format(as.Date(paste0(\"01-\", 1:12, \"-1970\")), format) factor(format(x, format), levels = months) } agg = aggregate(s, f, mean) plot(agg)"},{"path":"/reference/bcsd_obs.html","id":null,"dir":"Reference","previous_headings":"","what":"Monthly Gridded Meteorological Observations — bcsd_obs","title":"Monthly Gridded Meteorological Observations — bcsd_obs","text":"monthly observational data used BCSD downscaling. See: http://gdo-dcp.ucllnl.org/downscaled_cmip_projections/dcpInterface.html#information.\" ; \"Atmospheric Temperature, Air Temperature Atmosphere, Precipitation, Rain, Maximum Daily Temperature, Minimum Daily Temperature\" ;","code":""},{"path":"/reference/bcsd_obs.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Monthly Gridded Meteorological Observations — bcsd_obs","text":"","code":"bcsd_obs"},{"path":"/reference/bcsd_obs.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Monthly Gridded Meteorological Observations — bcsd_obs","text":"object class stars_proxy (inherits stars) dimension 81 x 33 x 12.","code":""},{"path":"/reference/c.stars.html","id":null,"dir":"Reference","previous_headings":"","what":"combine multiple stars objects, or combine multiple attributes in a single stars object into a single array — c.stars","title":"combine multiple stars objects, or combine multiple attributes in a single stars object into a single array — c.stars","text":"combine multiple stars objects, combine multiple attributes single stars object single array","code":""},{"path":"/reference/c.stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"combine multiple stars objects, or combine multiple attributes in a single stars object into a single array — c.stars","text":"","code":"# S3 method for stars c( ..., along = NA_integer_, try_hard = FALSE, nms = names(list(...)), tolerance = sqrt(.Machine$double.eps) ) # S3 method for stars_proxy c( ..., along = NA_integer_, along_crs = FALSE, try_hard = FALSE, nms = names(list(...)), tolerance = sqrt(.Machine$double.eps) )"},{"path":"/reference/c.stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"combine multiple stars objects, or combine multiple attributes in a single stars object into a single array — c.stars","text":"... object(s) class star: case multiple arguments, combined single stars object, case single argument, attributes combined single attribute. case multiple objects, objects dimensionality. along integer; see read_stars try_hard logical; TRUE arrays different dimensions, combine dimensions matching first array nms character; vector array names tolerance numeric; values used .equal compare dimension values combine dimensions matching first array along_crs logical; TRUE, combine arrays along CRS dimension","code":""},{"path":"/reference/c.stars.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"combine multiple stars objects, or combine multiple attributes in a single stars object into a single array — c.stars","text":"single stars object merged (binded) arrays.","code":""},{"path":"/reference/c.stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"combine multiple stars objects, or combine multiple attributes in a single stars object into a single array — c.stars","text":"error raised attempting combine arrays different measurement units single array. intentded, drop_units can used remove units stars object merging.","code":""},{"path":"/reference/c.stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"combine multiple stars objects, or combine multiple attributes in a single stars object into a single array — c.stars","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) (new = c(x, x)) #> stars object with 3 dimensions and 2 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> L7_ETMs.tif.1 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA c(new) # collapses two arrays into one with an additional dimension #> stars object with 3 dimensions and 2 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> L7_ETMs.tif.1 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA c(x, x, along = 3) #> stars object with 3 dimensions and 1 attribute #> attribute(s), summary of first 1e+05 cells: #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 47 65 76 77.3419 87 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 12 NA NA NA NA"},{"path":"/reference/coerce-methods.html","id":null,"dir":"Reference","previous_headings":"","what":"Coerce stars object into a Raster raster or brick — as","title":"Coerce stars object into a Raster raster or brick — as","text":"Coerce stars object Raster raster brick Coerce stars object terra SpatRaster","code":""},{"path":"/reference/coerce-methods.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Coerce stars object into a Raster raster or brick — as","text":"object coerce","code":""},{"path":"/reference/coerce-methods.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Coerce stars object into a Raster raster or brick — as","text":"RasterLayer RasterBrick SpatRaster","code":""},{"path":"/reference/coerce-methods.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Coerce stars object into a Raster raster or brick — as","text":"stars object three dimensions, dimensions higher third collapsed third dimensions. stars object x/y raster multiple attributes, merged first, put raster brick. stars object three dimensions, dimensions higher third collapsed third dimensions. stars object x/y raster multiple attributes, merged first, put SpatRaster.","code":""},{"path":"/reference/contour.stars.html","id":null,"dir":"Reference","previous_headings":"","what":"plot contours of a stars object — contour.stars","title":"plot contours of a stars object — contour.stars","text":"plot contours stars object","code":""},{"path":"/reference/contour.stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"plot contours of a stars object — contour.stars","text":"","code":"# S3 method for stars contour(x, ...)"},{"path":"/reference/contour.stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"plot contours of a stars object — contour.stars","text":"x object class stars ... parameters passed contour","code":""},{"path":"/reference/contour.stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"plot contours of a stars object — contour.stars","text":"uses R internal contour algorithm, (default) plots contours; st_contour uses GDAL contour algorithm returns contours simple features.","code":""},{"path":"/reference/contour.stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"plot contours of a stars object — contour.stars","text":"","code":"d = st_dimensions(x = 1:ncol(volcano), y = 1:nrow(volcano)) r = st_as_stars(t(volcano)) r = st_set_dimensions(r, 1, offset = 0, delta = 1) r = st_set_dimensions(r, 2, offset = 0, delta = -1) plot(r, reset = FALSE) contour(r, add = TRUE)"},{"path":"/reference/cut_stars.html","id":null,"dir":"Reference","previous_headings":"","what":"cut methods for stars objects — cut_stars","title":"cut methods for stars objects — cut_stars","text":"cut methods stars objects","code":""},{"path":"/reference/cut_stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"cut methods for stars objects — cut_stars","text":"","code":"# S3 method for array cut(x, breaks, ...) # S3 method for matrix cut(x, breaks, ...) # S3 method for stars cut(x, breaks, ...)"},{"path":"/reference/cut_stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"cut methods for stars objects — cut_stars","text":"x see cut breaks see cut ... see cut","code":""},{"path":"/reference/cut_stars.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"cut methods for stars objects — cut_stars","text":"array matrix levels attribute; see details","code":""},{"path":"/reference/cut_stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"cut methods for stars objects — cut_stars","text":"R's factor works vectors, arrays matrices. work-around (hack?) keep factor levels generated cut use plots.","code":""},{"path":"/reference/cut_stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"cut methods for stars objects — cut_stars","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) cut(x, c(0, 50, 100, 255)) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> L7_ETMs.tif #> (0,50] :156060 #> (50,100] :503764 #> (100,255]: 77264 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA cut(x[,,,1], c(0, 50, 100, 255)) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> L7_ETMs.tif #> (0,50] : 1 #> (50,100] :117134 #> (100,255]: 5713 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 1 NA NA NA NA plot(cut(x[,,,1], c(0, 50, 100, 255))) tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x1 = read_stars(tif) (x1_cut = cut(x1, breaks = c(0, 50, 100, Inf))) # shows factor in summary #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> L7_ETMs.tif #> (0,50] :156060 #> (50,100] :503764 #> (100,Inf]: 77264 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(x1_cut[,,,c(3,6)]) # propagates through [ and plot"},{"path":"/reference/dplyr.html","id":null,"dir":"Reference","previous_headings":"","what":"dplyr verbs for stars objects — dplyr","title":"dplyr verbs for stars objects — dplyr","text":"dplyr verbs stars objects; package dplyr needs loaded methods can used stars objects.","code":""},{"path":"/reference/dplyr.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"dplyr verbs for stars objects — dplyr","text":"","code":"filter.stars(.data, ...) filter.stars_proxy(.data, ...) mutate.stars(.data, ...) mutate.stars_proxy(.data, ...) transmute.stars(.data, ...) transmute.stars_proxy(.data, ...) select.stars(.data, ...) select.stars_proxy(.data, ...) rename.stars(.data, ...) rename.stars_proxy(.data, ...) pull.stars(.data, var = -1) pull.stars_proxy(.data, ...) as.tbl_cube.stars(x, ...) slice.stars(.data, along, index, ..., drop = length(index) == 1) slice.stars_proxy(.data, along, index, ...) replace_na.stars(data, replace, ...) replace_na.stars_proxy(data, ...)"},{"path":"/reference/dplyr.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"dplyr verbs for stars objects — dplyr","text":".data object class stars ... see filter var see pull x object class stars along name index dimension slice applied index integer value(s) index drop logical; drop dimensions single index? data data set work replace see replace_na: list variable=value pairs, value replacement value NA's","code":""},{"path":"/reference/dplyr.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"dplyr verbs for stars objects — dplyr","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x1 = read_stars(tif) if (require(dplyr, quietly = TRUE)) { x1 %>% slice(\"band\", 2:3) x1 %>% slice(\"x\", 50:100) } #> #> Attaching package: ‘dplyr’ #> The following objects are masked from ‘package:stats’: #> #> filter, lag #> The following objects are masked from ‘package:base’: #> #> intersect, setdiff, setequal, union #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 11 56 68 70.50099 82 252 #> dimension(s): #> from to offset delta refsys point x/y #> x 50 100 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA"},{"path":"/reference/geom_stars.html","id":null,"dir":"Reference","previous_headings":"","what":"ggplot geom for stars objects — geom_stars","title":"ggplot geom for stars objects — geom_stars","text":"ggplot geom stars objects","code":""},{"path":"/reference/geom_stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"ggplot geom for stars objects — geom_stars","text":"","code":"geom_stars( mapping = NULL, data = NULL, ..., downsample = 0, sf = FALSE, na.action = na.pass ) theme_stars(...)"},{"path":"/reference/geom_stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"ggplot geom for stars objects — geom_stars","text":"mapping see geom_raster data see geom_raster ... see geom_raster downsample downsampling rate: e.g. 3 keeps rows cols 1, 4, 7, 10 etc.; value 0 downsample; can specified dimension, e.g. c(5,5,0) downsample first two dimensions third. sf logical; TRUE rasters converted polygons plotted using geom_sf. na.action function; NA values need removed plotting use value na.omit (applies objects raster dimensions)","code":""},{"path":"/reference/geom_stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"ggplot geom for stars objects — geom_stars","text":"geom_stars returns (call ) either geom_raster, geom_tile, geom_sf, depending raster vector geometry; first , aes call constructed raster dimension names first array fill variable. calls coord_equal facet_wrap needed control aspect ratio layers plotted; see examples. stars array contains hex color values, fill parameter given, color values used fill color; see example . visual artefacts occur (Moiré-Effekt), see details section plot.stars","code":""},{"path":"/reference/geom_stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"ggplot geom for stars objects — geom_stars","text":"","code":"system.file(\"tif/L7_ETMs.tif\", package = \"stars\") %>% read_stars() -> x if (require(ggplot2, quietly = TRUE)) { ggplot() + geom_stars(data = x) + coord_equal() + facet_wrap(~band) + theme_void() + scale_x_discrete(expand=c(0,0))+ scale_y_discrete(expand=c(0,0)) # plot rgb composite: st_as_stars(L7_ETMs)[,,,1:3] |> st_rgb() -> x # x contains colors as pixel values ggplot() + geom_stars(data = x) }"},{"path":"/reference/in-methods.html","id":null,"dir":"Reference","previous_headings":"","what":"evaluate whether cube values are in a given set — %in%,stars-method","title":"evaluate whether cube values are in a given set — %in%,stars-method","text":"evaluate whether cube values given set","code":""},{"path":"/reference/in-methods.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"evaluate whether cube values are in a given set — %in%,stars-method","text":"","code":"# S4 method for stars %in%(x, table)"},{"path":"/reference/in-methods.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"evaluate whether cube values are in a given set — %in%,stars-method","text":"x data cube value table values set","code":""},{"path":"/reference/make_intervals.html","id":null,"dir":"Reference","previous_headings":"","what":"create an intervals object — make_intervals","title":"create an intervals object — make_intervals","text":"create intervals object, assuming left-closed right-open intervals","code":""},{"path":"/reference/make_intervals.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"create an intervals object — make_intervals","text":"","code":"make_intervals(start, end)"},{"path":"/reference/make_intervals.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"create an intervals object — make_intervals","text":"start vector start values, 2-column matrix start end values column 1 2, respectively end vector end values","code":""},{"path":"/reference/mdim.html","id":null,"dir":"Reference","previous_headings":"","what":"Read or write data using GDAL's multidimensional array API — mdim","title":"Read or write data using GDAL's multidimensional array API — mdim","text":"Read write data using GDAL's multidimensional array API","code":""},{"path":"/reference/mdim.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Read or write data using GDAL's multidimensional array API — mdim","text":"","code":"read_mdim( filename, variable = character(0), ..., options = character(0), raster = NULL, offset = integer(0), count = integer(0), step = integer(0), proxy = FALSE, debug = FALSE, bounds = TRUE, curvilinear = NA ) write_mdim( x, filename, driver = detect.driver(filename), ..., root_group_options = character(0), options = character(0), as_float = TRUE )"},{"path":"/reference/mdim.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Read or write data using GDAL's multidimensional array API — mdim","text":"filename name source destination file data source variable name array read ... ignored options character; driver specific options regarding opening (read_mdim) creation (write_mdim) dataset raster names raster variables (default: first two dimensions) offset integer; offset dimension (pixels) sub-array read, defaults 0 dimension(requires sf >= 1.0-9) count integer; size dimension (pixels) sub-array read (default: read ); value NA read corresponding dimension entirely; counts relative step size (requires sf >= 1.0-9) step integer; step size dimension (pixels) sub-aray read; defaults 1 dimension (requires sf >= 1.0-9) proxy logical; return proxy object? (functional yet) debug logical; print debug info? bounds logical character: TRUE tries infer \"bounds\" attribute; character, named vector form c(longitude=\"lon_bnds\", latitude=\"lat_bnds\") names dimension names curvilinear control reading curvilinear (geolocation) coordinate arrays; NA try reading x/y dimension names; character, defines arrays read; FALSE try; see also read_stars x stars object driver character; driver name root_group_options character; driver specific options regarding creation root group as_float logical; TRUE write 4-byte floating point numbers, FALSE write 8-byte doubles","code":""},{"path":"/reference/mdim.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Read or write data using GDAL's multidimensional array API — mdim","text":"assumed first two dimensions easting northing","code":""},{"path":"/reference/mdim.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Read or write data using GDAL's multidimensional array API — mdim","text":"","code":"set.seed(135) m = matrix(runif(10), 2, 5) names(dim(m)) = c(\"stations\", \"time\") times = as.Date(\"2022-05-01\") + 1:5 pts = st_as_sfc(c(\"POINT(0 1)\", \"POINT(3 5)\")) s = st_as_stars(list(Precipitation = m)) |> st_set_dimensions(1, values = pts) |> st_set_dimensions(2, values = times) nc = tempfile(fileext=\".nc\") if (compareVersion(sf_extSoftVersion()[\"GDAL\"], \"3.4.0\") > -1) { write_mdim(s, nc) # try ncdump on the generated file print(read_mdim(nc)) } #> Warning: GDAL Error 6: SetIndexingVariable() not implemented #> Warning: GDAL Error 6: SetIndexingVariable() not implemented #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> Precipitation 0.03524588 0.3224987 0.3772574 0.4289465 0.511113 0.9204841 #> dimension(s): #> from to offset delta refsys point values #> stations 1 2 NA NA NA TRUE POINT (0 1), POINT (3 5) #> time 1 5 2022-05-02 1 days Date NA NULL"},{"path":"/reference/merge.html","id":null,"dir":"Reference","previous_headings":"","what":"merge or split stars object — merge","title":"merge or split stars object — merge","text":"merge attributes dimension, split dimension attributes","code":""},{"path":"/reference/merge.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"merge or split stars object — merge","text":"","code":"# S3 method for stars split(x, f = length(dim(x)), drop = TRUE, ...) # S3 method for stars merge(x, y, ..., name = \"attributes\")"},{"path":"/reference/merge.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"merge or split stars object — merge","text":"x object class stars f name index dimension split; default last dimension drop ignored ... defined, first unnamed argument used dimension values, defined, attribute names used dimension values y needs missing name name new dimension","code":""},{"path":"/reference/merge.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"merge or split stars object — merge","text":"merge merges attributes stars object new dimension; split splits dimension attributes","code":""},{"path":"/reference/merge.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"merge or split stars object — merge","text":"split.stars works first attribute, give error one attribute present","code":""},{"path":"/reference/ops_stars.html","id":null,"dir":"Reference","previous_headings":"","what":"S3 Ops Group Generic Functions for stars objects — ops_stars","title":"S3 Ops Group Generic Functions for stars objects — ops_stars","text":"Ops functions stars objects, including comparison, product divide, add, subtract","code":""},{"path":"/reference/ops_stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"S3 Ops Group Generic Functions for stars objects — ops_stars","text":"","code":"# S3 method for stars Ops(e1, e2) # S3 method for stars Math(x, ...) # S3 method for stars_proxy Ops(e1, e2) # S3 method for stars_proxy Math(x, ...)"},{"path":"/reference/ops_stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"S3 Ops Group Generic Functions for stars objects — ops_stars","text":"e1 object class stars e2 object class stars x object class stars ... parameters passed Math functions","code":""},{"path":"/reference/ops_stars.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"S3 Ops Group Generic Functions for stars objects — ops_stars","text":"object class stars","code":""},{"path":"/reference/ops_stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"S3 Ops Group Generic Functions for stars objects — ops_stars","text":"e1 e2 numeric vector, e2 less smaller dimensions e1, e2 recycled fits e1, using usual R array recycling rules. user needs make sure sensible; may needed use aperm permutate dimensions first.","code":""},{"path":"/reference/ops_stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"S3 Ops Group Generic Functions for stars objects — ops_stars","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) x * x #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 2916 4761 5512.41 7396 65025 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA x / x #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 1 1 1 1 1 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA x + x #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 2 108 138 137.8248 172 510 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA x + 10 #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 11 64 79 78.91242 96 265 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA all.equal(x * 10, 10 * x) #> [1] TRUE tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) a = sqrt(x) b = log(x, base = 10)"},{"path":"/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"plot stars object, with subplots for each level of first non-spatial dimension — plot","title":"plot stars object, with subplots for each level of first non-spatial dimension — plot","text":"plot stars object, subplots level first non-spatial dimension, customization legend key","code":""},{"path":"/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"plot stars object, with subplots for each level of first non-spatial dimension — plot","text":"","code":"# S3 method for stars plot( x, y, ..., join_zlim = TRUE, main = make_label(x, 1), axes = FALSE, downsample = TRUE, nbreaks = 11, breaks = \"quantile\", col = grey(1:(nbreaks - 1)/nbreaks), key.pos = get_key_pos(x, ...), key.width = lcm(1.8), key.length = 0.618, key.lab = main, reset = TRUE, box_col = grey(0.8), center_time = FALSE, hook = NULL, mfrow = NULL ) # S3 method for stars image( x, ..., band = 1, attr = 1, asp = NULL, rgb = NULL, maxColorValue = ifelse(inherits(rgb, \"data.frame\"), 255, max(x[[attr]], na.rm = TRUE)), xlab = if (!axes) \"\" else names(d)[1], ylab = if (!axes) \"\" else names(d)[2], xlim = st_bbox(extent)$xlim, ylim = st_bbox(extent)$ylim, text_values = FALSE, text_color = \"black\", axes = FALSE, interpolate = FALSE, as_points = FALSE, key.pos = NULL, logz = FALSE, key.width = lcm(1.8), key.length = 0.618, add.geom = NULL, border = NA, useRaster = isTRUE(dev.capabilities()$rasterImage == \"yes\"), extent = x ) # S3 method for nc_proxy plot(x, y, ..., downsample = get_downsample(dim(x)), max_times = 16) # S3 method for stars_proxy plot(x, y, ..., downsample = get_downsample(dim(x)))"},{"path":"/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"plot stars object, with subplots for each level of first non-spatial dimension — plot","text":"x object class stars y ignored ... arguments: plot, passed image.stars; image, passed image.default rasterImage. join_zlim logical; TRUE, compute single, joint zlim (color scale) subplots x main character; subplot title prefix; use \"\" get time, use NULL suppress subplot titles axes logical; axes box added plot? downsample logical numeric; TRUE try plot many pixels actually visible, FALSE, downsampling takes place, numeric, number pixels/lines/bands etc skipped; see Details. nbreaks number color breaks; one number colors. missing col specified, derived . breaks actual color breaks, method name used classIntervals. col colors use grid cells, color palette function key.pos integer; side plot color key: 1 bottom, 2 left, 3 top, 4 right; set NULL omit key. Ignored multiple columns plotted single function call. Default depends plot size, map aspect, , set, parameter asp. key.width amount space reserved width key (labels); relative absolute (using lcm) key.length amount space reserved length key (labels); relative absolute (using lcm) key.lab character; label color key case multiple subplots, use \"\" suppress reset logical; FALSE, keep plot mode allows adding map elements; TRUE restore original mode plotting box_col color box around sub-plots; use 0 suppress plotting boxes around sub-plots. center_time logical; TRUE, sub-plot titles show center time intervals, otherwise start hook NULL function; hook function called every sub-plot; see examples. mfrow length-2 integer vector nrows, ncolumns composite plot, override default layout band integer; band (dimension) plot attr integer; attribute plot asp numeric; aspect ratio image rgb integer; specify three bands form rgb composite. Experimental: rgb color table; see Details. maxColorValue numeric; passed rgb xlab character; x axis label ylab character; y axis label xlim x axis limits ylim y axis limits text_values logical; print values text image? text_color character; color printed text values interpolate logical; using rasterImage (rgb), pixels interpolated? as_points logical; curvilinear sheared grids: parameter passed st_as_sf, determining whether raster cells plotted symbols (fast, approximate) small polygons (slow, exact) logz logical; TRUE, use log10-scale attribute variable. case, breaks need given log10-values; see examples. add.geom object class sfc, list arguments plot, added image sub-image border color used cell borders (case x curvilinear rotated/sheared grid) useRaster logical; use rasterImage capabilities graphics device? extent object st_bbox method; sets plotting extent max_times integer; maximum number time steps attempt plot.","code":""},{"path":"/reference/plot.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"plot stars object, with subplots for each level of first non-spatial dimension — plot","text":"Downsampling: value downsample 0: downsampling, 1: every dimension value (pixel/line/band), one value skipped (half original resolution), 2: every dimension value, 2 values skipped (one third original resolution), etc. downsample TRUE length 1 numeric vector, downsampling applied raster [x] [y] dimensions. remove unused classes categorical raster, use droplevels function. bitmaps show visual artefacts (Moiré effects), make sure device png used rather ragg::agg_png latter uses antialiasing filled polygons causes ; see also https://github.com/r-spatial/stars/issues/573 . use rgb color table experimental; see https://github.com/r-spatial/mapview/issues/208 plotting subsetted stars_proxy object, default value argument downsample computed correctly, set manually. plotting subsetted stars_proxy object, default value argument downsample computed correctly, set manually.","code":""},{"path":"/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"plot stars object, with subplots for each level of first non-spatial dimension — plot","text":"","code":"st_bbox(L7_ETMs) |> st_as_sfc() |> st_centroid() |> st_coordinates() -> pt hook1 = function() { text(pt[,\"X\"], pt[,\"Y\"], \"foo\", col = 'orange', cex = 2) } plot(L7_ETMs, hook = hook1) x = st_set_dimensions(L7_ETMs, 3, paste0(\"B_\", 1:6)) hook2 = function(..., row, col, nr, nrow, ncol, value, bbox) { str = paste0(\"row \", row, \"/\", nrow, \", col \", col, \"/\", ncol, \"\\nnr: \", nr, \" value: \", value) bbox |> st_as_sfc() |> st_centroid() |> st_coordinates() -> pt text(pt[,\"X\"], pt[,\"Y\"], str, col = 'red', cex = 2) } plot(x, hook = hook2, col = grey(c(.2,.25,.3,.35))) if (isTRUE(dev.capabilities()$rasterImage == \"yes\")) { lc = system.file(\"tif/lc.tif\", package = \"stars\") plot(read_stars(lc), key.pos=4, key.width=lcm(5)) } tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) image(x, col = grey((3:9)/10)) if (isTRUE(dev.capabilities()$rasterImage == \"yes\")) { image(x, rgb = c(1,3,5)) # false color composite }"},{"path":"/reference/predict.stars.html","id":null,"dir":"Reference","previous_headings":"","what":"Predict values, given a model object, for a stars or stars_proxy object — predict.stars","title":"Predict values, given a model object, for a stars or stars_proxy object — predict.stars","text":"Predict values, given model object, stars stars_proxy object","code":""},{"path":"/reference/predict.stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Predict values, given a model object, for a stars or stars_proxy object — predict.stars","text":"","code":"# S3 method for stars predict(object, model, ..., drop_dimensions = FALSE) # S3 method for stars_proxy predict(object, model, ...)"},{"path":"/reference/predict.stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Predict values, given a model object, for a stars or stars_proxy object — predict.stars","text":"object object class `stars` model model object class predict method; check `methods(class = class(object))` ... arguments passed predict method drop_dimensions logical; `TRUE`, remove dimensions (coordinates etc) `data.frame` predictors","code":""},{"path":"/reference/predict.stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Predict values, given a model object, for a stars or stars_proxy object — predict.stars","text":"separate predictors object need separate attributes object; case e.g. band dimension, use `split(object)`","code":""},{"path":"/reference/print_stars.html","id":null,"dir":"Reference","previous_headings":"","what":"print stars or dimensions object — print_stars","title":"print stars or dimensions object — print_stars","text":"print stars dimensions object","code":""},{"path":"/reference/print_stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"print stars or dimensions object — print_stars","text":"","code":"# S3 method for stars print(x, ..., n = 1e+05, abbrev = 30) # S3 method for dimensions as.data.frame( x, ..., digits = max(3, getOption(\"digits\") - 3), usetz = TRUE, stars_crs = getOption(\"stars.crs\") %||% 28, all = FALSE ) # S3 method for dimensions print(x, ...)"},{"path":"/reference/print_stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"print stars or dimensions object — print_stars","text":"x object class stars class dimensions ... passed .data.frame.dimensions n prod(dim(x)) > 10 * n, first n cells used attribute summary statistics abbrev number characters abbreviate attribute names digits number digits print numbers usetz logical; used format PCICt POSIXct values stars_crs maximum width string CRS objects logical; TRUE print also fields entirely filled NA NULL","code":""},{"path":"/reference/read_ncdf.html","id":null,"dir":"Reference","previous_headings":"","what":"Read NetCDF into stars object — read_ncdf","title":"Read NetCDF into stars object — read_ncdf","text":"Read data file (source) using NetCDF library directly.","code":""},{"path":"/reference/read_ncdf.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Read NetCDF into stars object — read_ncdf","text":"","code":"read_ncdf( .x, ..., var = NULL, ncsub = NULL, curvilinear = character(0), eps = sqrt(.Machine$double.eps), ignore_bounds = FALSE, make_time = TRUE, make_units = TRUE, proxy = NULL, downsample = 0 )"},{"path":"/reference/read_ncdf.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Read NetCDF into stars object — read_ncdf","text":".x NetCDF file source character vector nc_proxy object. ... ignored var variable name names (must matching grids) ncsub matrix start, count columns (see Details) curvilinear length two character named vector names variables holding longitude latitude values raster cells. `stars` attempts figure appropriate curvilinear coordinates supplied. eps numeric; dimension value increases considered identical differ less eps ignore_bounds logical; bounds values dimensions, present, ignored? make_time TRUE (default), atttempt made provide date-time class \"time\" variable make_units TRUE (default), attempt made set units property variable proxy logical; TRUE, object class stars_proxy read contains array metadata ; FALSE full array data read memory. set, defaults TRUE number cells read larger options(stars.n_proxy), 1e8 option set. downsample integer; number cells omit samples along dimension. e.g. c(1,1,2) return every cell x y every third cell third dimension (z t). 0, downsampling applied. Note transformation applied NetCDF data read using st_downsample. , proxy=TRUE, option ignored.","code":""},{"path":"/reference/read_ncdf.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Read NetCDF into stars object — read_ncdf","text":"following logic applied coordinates. coordinate axes regularly spaced coordinate variables reduced offset/delta form 'affine = c(0, 0)', otherwise values coordinates stored used define rectilinear grid. data two dimensions first two regular nominated 'raster' plotting. curvilinear argument used specifies 2D arrays containing coordinate values first two dimensions data read. currently assumed coordinates 2D relate first two dimensions order. var set first set variables shared grid used. start count columns ncsub must correspond variable dimemsion (nrows) valid index using var.get.nc convention (start 1-based). count value NA steps included. Axis order must match variable/s read.","code":""},{"path":"/reference/read_ncdf.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Read NetCDF into stars object — read_ncdf","text":"","code":"f <- system.file(\"nc/reduced.nc\", package = \"stars\") if (require(ncmeta, quietly = TRUE)) { read_ncdf(f) read_ncdf(f, var = c(\"anom\")) read_ncdf(f, ncsub = cbind(start = c(1, 1, 1, 1), count = c(10, 12, 1, 1))) } #> no 'var' specified, using sst, anom, err, ice #> other available variables: #> lon, lat, zlev, time #> 0-360 longitude crossing the international dateline encountered. #> Longitude coordinates will be0-360 in output. #> Will return stars object with 16200 cells. #> No projection information found in nc file. #> Coordinate variable units found to be degrees, #> assuming WGS84 Lat/Lon. #> 0-360 longitude crossing the international dateline encountered. #> Longitude coordinates will be0-360 in output. #> Will return stars object with 16200 cells. #> No projection information found in nc file. #> Coordinate variable units found to be degrees, #> assuming WGS84 Lat/Lon. #> no 'var' specified, using sst, anom, err, ice #> other available variables: #> lon, lat, zlev, time #> Will return stars object with 120 cells. #> No projection information found in nc file. #> Coordinate variable units found to be degrees, #> assuming WGS84 Lat/Lon. #> stars object with 4 dimensions and 4 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. NA's #> sst [°C] -1.39 -0.7200 -0.515 -0.53399999 -0.275 0.03 90 #> anom [°C] -1.07 -0.3625 0.195 0.05866667 0.555 0.92 90 #> err [°C] 0.30 0.3000 0.300 0.30299999 0.300 0.32 90 #> ice [percent] 0.01 0.1100 0.170 0.20937500 0.255 0.52 104 #> dimension(s): #> from to offset delta refsys values x/y #> lon 1 10 -1 2 WGS 84 NULL [x] #> lat 1 12 -90 2 WGS 84 NULL [y] #> zlev 1 1 NA NA NA 0 #> time 1 1 NA NA POSIXct 1981-12-31 UTC if (require(ncmeta, quietly = TRUE)) { #' precipitation data in a curvilinear NetCDF prec_file = system.file(\"nc/test_stageiv_xyt.nc\", package = \"stars\") prec = read_ncdf(prec_file, curvilinear = c(\"lon\", \"lat\"), ignore_bounds = TRUE) } #> no 'var' specified, using Total_precipitation_surface_1_Hour_Accumulation #> other available variables: #> lat, lon, time #> Will return stars object with 236118 cells. #> No projection information found in nc file. #> Coordinate variable units found to be degrees, #> assuming WGS84 Lat/Lon. ##plot(prec) ## gives error about unique breaks ## remove NAs, zeros, and give a large number ## of breaks (used for validating in detail) qu_0_omit = function(x, ..., n = 22) { x = units::drop_units(na.omit(x)) c(0, quantile(x[x > 0], seq(0, 1, length.out = n))) } if (require(dplyr, quietly = TRUE)) { prec_slice = slice(prec, index = 17, along = \"time\") plot(prec_slice, border = NA, breaks = qu_0_omit(prec_slice[[1]]), reset = FALSE) nc = sf::read_sf(system.file(\"gpkg/nc.gpkg\", package = \"sf\"), \"nc.gpkg\") plot(st_geometry(nc), add = TRUE, reset = FALSE, col = NA) }"},{"path":"/reference/read_stars.html","id":null,"dir":"Reference","previous_headings":"","what":"read raster/array dataset from file or connection — read_stars","title":"read raster/array dataset from file or connection — read_stars","text":"read raster/array dataset file connection","code":""},{"path":"/reference/read_stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"read raster/array dataset from file or connection — read_stars","text":"","code":"read_stars( .x, sub = TRUE, ..., options = character(0), driver = character(0), quiet = FALSE, NA_value = NA_real_, along = NA_integer_, RasterIO = list(), proxy = getOption(\"stars.n_proxy\") %||% 1e+08, curvilinear = character(0), normalize_path = TRUE, RAT = character(0), tolerance = 1e-10, exclude = \"\", shorten = TRUE )"},{"path":"/reference/read_stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"read raster/array dataset from file or connection — read_stars","text":".x character vector name(s) file(s) data source(s) read, function returns vector sub character, integer logical; name, index indicator sub-dataset(s) read ... passed st_as_stars curvilinear set options character; opening options driver character; driver use opening file. override fixing subdatasets autodetect well, use NULL. quiet logical; print progress output? NA_value numeric value used conversion NA values; default read input file along length-one character integer, list; determines several arrays combined, see Details. RasterIO list named parameters GDAL's RasterIO, control extent, resolution bands read data source; see details. proxy logical; TRUE, object class stars_proxy read contains array metadata ; FALSE full array data read memory. Always FALSE curvilinear girds. set number, defaults TRUE number cells read larger number. curvilinear length two character vector names subdatasets holding longitude latitude values raster cells, named length 2 list holding longitude latitude matrices; names list correspond raster dimensions referred normalize_path logical; FALSE, suppress call normalizePath .x RAT character; raster attribute table column name use factor levels tolerance numeric; passed .equal comparing dimension parameters. exclude character; vector category value(s) exclude shorten logical character; TRUE length(.x) > 1, remove common start end parts array names; character new prefix","code":""},{"path":"/reference/read_stars.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"read raster/array dataset from file or connection — read_stars","text":"object class stars","code":""},{"path":"/reference/read_stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"read raster/array dataset from file or connection — read_stars","text":"case .x contains multiple files, read combined c.stars. Along dimension, objects merged? along set NA merge arrays new attributes objects identical dimensions, else try merge along time dimension called time indicates different time stamps. single name (positive value) along merge along dimension, create new one already exist. arrays arranged along one dimensions values (e.g. time stamps), named list can passed along specify ; see example. RasterIO list zero following named arguments: nXOff, nYOff (1-based: first row/col offset value 1), nXSize, nYSize, nBufXSize, nBufYSize, bands, resample. See https://gdal.org/doxygen/classGDALDataset.html meaning; bands integer vector containing band numbers read (1-based: first band 1). Note nBufXSize nBufYSize specified downsampling image, resulting adjusted geotransform. resample reflects resampling method one : \"nearest_neighbour\" (default), \"bilinear\", \"cubic\", \"cubic_spline\", \"lanczos\", \"average\", \"mode\", \"Gauss\". Data read memory (proxy=FALSE) read numeric (double) array, except categorical variables read numeric (integer) array class factor.","code":""},{"path":"/reference/read_stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"read raster/array dataset from file or connection — read_stars","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") (x1 = read_stars(tif)) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA (x2 = read_stars(c(tif, tif))) #> stars object with 3 dimensions and 2 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> L7_ETMs.tif.1 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA (x3 = read_stars(c(tif, tif), along = \"band\")) #> stars object with 3 dimensions and 1 attribute #> attribute(s), summary of first 1e+05 cells: #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 47 65 76 77.3419 87 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 12 NA NA NA NA (x4 = read_stars(c(tif, tif), along = \"new_dimensions\")) # create 4-dimensional array #> stars object with 4 dimensions and 1 attribute #> attribute(s), summary of first 1e+05 cells: #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 47 65 76 77.3419 87 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA #> new_dimensions 1 2 NA NA NA NA x1o = read_stars(tif, options = \"OVERVIEW_LEVEL=1\") t1 = as.Date(\"2018-07-31\") # along is a named list indicating two dimensions: read_stars(c(tif, tif, tif, tif), along = list(foo = c(\"bar1\", \"bar2\"), time = c(t1, t1+2))) #> stars object with 5 dimensions and 1 attribute #> attribute(s), summary of first 1e+05 cells: #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 47 65 76 77.3419 87 255 #> dimension(s): #> from to offset delta refsys point values x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL [y] #> band 1 6 NA NA NA NA NULL #> foo 1 2 NA NA NA NA bar1, bar2 #> time 1 2 2018-07-31 2 days Date NA NULL m = matrix(1:120, nrow = 12, ncol = 10) dim(m) = c(x = 10, y = 12) # named dim st = st_as_stars(m) attr(st, \"dimensions\")$y$delta = -1 attr(st, \"dimensions\")$y$offset = 12 st #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> A1 1 30.75 60.5 60.5 90.25 120 #> dimension(s): #> from to offset delta point x/y #> x 1 10 0 1 FALSE [x] #> y 1 12 12 -1 FALSE [y] tmp = tempfile(fileext = \".tif\") write_stars(st, tmp) (red <- read_stars(tmp)) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> file5be73519d78b.tif 1 30.75 60.5 60.5 90.25 120 #> dimension(s): #> from to offset delta x/y #> x 1 10 0 1 [x] #> y 1 12 12 -1 [y] read_stars(tmp, RasterIO = list(nXOff = 1, nYOff = 1, nXSize = 10, nYSize = 12, nBufXSize = 2, nBufYSize = 2))[[1]] #> [,1] [,2] #> [1,] 33 93 #> [2,] 38 98 (red <- read_stars(tmp, RasterIO = list(nXOff = 1, nYOff = 1, nXSize = 10, nYSize = 12, nBufXSize = 2, nBufYSize = 2))) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> file5be73519d78b.tif 33 36.75 65.5 65.5 94.25 98 #> dimension(s): #> from to offset delta x/y #> x 1 2 0 5 [x] #> y 1 2 12 -6 [y] red[[1]] # cell values of subsample grid: #> [,1] [,2] #> [1,] 33 93 #> [2,] 38 98 if (FALSE) { plot(st, reset = FALSE, axes = TRUE, ylim = c(-.1,12.1), xlim = c(-.1,10.1), main = \"nBufXSize & nBufYSize demo\", text_values = TRUE) plot(st_as_sfc(red, as_points = TRUE), add = TRUE, col = 'red', pch = 16) plot(st_as_sfc(st_as_stars(st), as_points = FALSE), add = TRUE, border = 'grey') plot(st_as_sfc(red, as_points = FALSE), add = TRUE, border = 'green', lwd = 2) } file.remove(tmp) #> [1] TRUE"},{"path":"/reference/redimension.html","id":null,"dir":"Reference","previous_headings":"","what":"redimension array, or collapse attributes into a new dimension — redimension","title":"redimension array, or collapse attributes into a new dimension — redimension","text":"redimension array, collapse attributes new dimension","code":""},{"path":"/reference/redimension.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"redimension array, or collapse attributes into a new dimension — redimension","text":"","code":"st_redimension(x, new_dims, along, ...) # S3 method for stars st_redimension( x, new_dims = st_dimensions(x), along = setNames(list(names(x)), name), ..., name = \"new_dim\" ) # S3 method for stars_proxy st_redimension( x, new_dims = st_dimensions(x), along = list(new_dim = names(x)), ... )"},{"path":"/reference/redimension.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"redimension array, or collapse attributes into a new dimension — redimension","text":"x object class stars new_dims target dimensions: either `dimensions` object integer vector dimensions' sizes along named list new dimension name values ... ignored name character name new dimension","code":""},{"path":"/reference/reexports.html","id":null,"dir":"Reference","previous_headings":"","what":"Objects exported from other packages — reexports","title":"Objects exported from other packages — reexports","text":"objects imported packages. Follow links see documentation. lwgeom st_transform_proj","code":""},{"path":"/reference/st_apply.html","id":null,"dir":"Reference","previous_headings":"","what":"st_apply apply a function to one or more array dimensions — st_apply","title":"st_apply apply a function to one or more array dimensions — st_apply","text":"st_apply apply function array dimensions: aggregate space, time, something else","code":""},{"path":"/reference/st_apply.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"st_apply apply a function to one or more array dimensions — st_apply","text":"","code":"# S3 method for stars st_apply( X, MARGIN, FUN, ..., CLUSTER = NULL, PROGRESS = FALSE, FUTURE = FALSE, rename = TRUE, .fname, single_arg = has_single_arg(FUN, list(...)) || can_single_arg(FUN), keep = FALSE )"},{"path":"/reference/st_apply.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"st_apply apply a function to one or more array dimensions — st_apply","text":"X object class stars MARGIN see apply; index number(s) name(s) dimensions FUN applied FUN see apply see Details. ... arguments passed FUN CLUSTER cluster use parallel apply; see makeCluster PROGRESS logical; TRUE, use pbapply::pbapply show progress bar FUTURE logical;TRUE, use future.apply::future_apply rename logical; TRUE X one attribute FUN simple function name, rename attribute returned object function name .fname function name new attribute name (one dimensions reduced) new dimension (new dimension created); missing, name FUN used single_arg logical; TRUE, FUN takes single argument (like fn_ndvi1 ), FALSE FUN takes multiple arguments (like fn_ndvi2 ). keep logical; TRUE, preserve dimension metadata (e.g. time stamps)","code":""},{"path":"/reference/st_apply.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"st_apply apply a function to one or more array dimensions — st_apply","text":"object class stars accordingly reduced number dimensions; case FUN returns one value, new dimension created carrying name function used; see examples. Following logic apply, new dimension put dimensions; use aperm rearrange , see last example.","code":""},{"path":"/reference/st_apply.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"st_apply apply a function to one or more array dimensions — st_apply","text":"FUN function either operates single object, data iteration step dimensions MARGIN, function many arguments elements object. See NDVI examples . second form can much faster e.g. trivial function called every pixel, (example). heuristics default single_arg work often, always; try setting right value st_apply gives error.","code":""},{"path":"/reference/st_apply.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"st_apply apply a function to one or more array dimensions — st_apply","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) st_apply(x, 1:2, mean) # mean band value for each pixel #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> mean 25.5 53.33333 68.33333 68.91242 82 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] st_apply(x, c(\"x\", \"y\"), mean) # equivalent to the above #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> mean 25.5 53.33333 68.33333 68.91242 82 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] st_apply(x, 3, mean) # mean of all pixels for each band #> stars object with 1 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> mean 59.23541 61.07112 65.96675 68.91242 76.25445 83.18266 #> dimension(s): #> from to #> band 1 6 if (FALSE) { st_apply(x, \"band\", mean) # equivalent to the above st_apply(x, 1:2, range) # min and max band value for each pixel fn_ndvi1 = function(x) (x[4]-x[3])/(x[4]+x[3]) # ONE argument: will be called for each pixel fn_ndvi2 = function(red,nir) (nir-red)/(nir+red) # n arguments: will be called only once ndvi1 = st_apply(x, 1:2, fn_ndvi1) # note that we can select bands 3 and 4 in the first argument: ndvi2 = st_apply(x[,,,3:4], 1:2, fn_ndvi2) all.equal(ndvi1, ndvi2) # compute the (spatial) variance of each band; https://github.com/r-spatial/stars/issues/430 st_apply(x, 3, function(x) var(as.vector(x))) # as.vector is required! # to get a progress bar also in non-interactive mode, specify: if (require(pbapply)) { # install it, if FALSE pboptions(type = \"timer\") } st_apply(x, 1:2, range) # dimension \"range\" is first; rearrange by: st_apply(x, 1:2, range) %>% aperm(c(2,3,1)) }"},{"path":"/reference/st_as_sf.html","id":null,"dir":"Reference","previous_headings":"","what":"Convert stars object into an sf object — st_as_sf","title":"Convert stars object into an sf object — st_as_sf","text":"Convert stars object sf object","code":""},{"path":"/reference/st_as_sf.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Convert stars object into an sf object — st_as_sf","text":"","code":"# S3 method for stars st_as_sfc(x, ..., as_points, which = seq_len(prod(dim(x)[1:2]))) # S3 method for stars st_as_sf( x, ..., as_points = FALSE, merge = FALSE, na.rm = TRUE, use_integer = is.logical(x[[1]]) || is.integer(x[[1]]), long = FALSE, connect8 = FALSE ) # S3 method for stars_proxy st_as_sf(x, ..., downsample = 0)"},{"path":"/reference/st_as_sf.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Convert stars object into an sf object — st_as_sf","text":"x object class stars ... ignored as_points logical; cells converted points polygons? See details. linear index cells keep (argument recommended used) merge logical; TRUE, cells identical values merged (using GDAL_Polygonize GDAL_FPolygonize); FALSE, polygon raster cell returned; see details na.rm logical; missing valued cells removed, also converted features? use_integer (relevant merge TRUE): TRUE, polygonizing values rounded 32-bits signed integer values (GDALPolygonize), otherwise converted 32-bit floating point values (GDALFPolygonize). long logical; TRUE, return long table form sf, geometries dimensions recycled connect8 logical; TRUE, use 8 connectedness. Otherwise 4 connectedness algorithm applied. downsample see st_as_stars","code":""},{"path":"/reference/st_as_sf.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Convert stars object into an sf object — st_as_sf","text":"merge TRUE, first attribute converted sf object. na.rm FALSE, areas NA values also written polygons. Note resulting polygons typically invalid, use st_make_valid create valid polygons .","code":""},{"path":"/reference/st_as_sf.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Convert stars object into an sf object — st_as_sf","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) x = x[,1:100,1:100,6] # subset of a band with lower values in it x[[1]][x[[1]] < 30] = NA # set lower values to NA x[[1]] = x[[1]] < 100 # make the rest binary x #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> L7_ETMs.tif #> Mode :logical #> FALSE:525 #> TRUE :7665 #> NA's :1810 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 100 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 100 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 6 6 NA NA NA NA (p = st_as_sf(x)) # removes NA areas #> Simple feature collection with 8190 features and 1 field #> Geometry type: POLYGON #> Dimension: XY #> Bounding box: xmin: 288776.3 ymin: 9117911 xmax: 291626.3 ymax: 9120761 #> Projected CRS: SIRGAS 2000 / UTM zone 25S #> First 10 features: #> V1 geometry #> 1 TRUE POLYGON ((288776.3 9120761,... #> 2 TRUE POLYGON ((288804.8 9120761,... #> 3 TRUE POLYGON ((288833.3 9120761,... #> 4 TRUE POLYGON ((288861.8 9120761,... #> 5 TRUE POLYGON ((288890.3 9120761,... #> 6 TRUE POLYGON ((288918.8 9120761,... #> 7 TRUE POLYGON ((288947.3 9120761,... #> 8 TRUE POLYGON ((288975.8 9120761,... #> 9 TRUE POLYGON ((289004.3 9120761,... #> 10 TRUE POLYGON ((289032.8 9120761,... (p = st_as_sf(x[,,,1], merge = TRUE)) # glues polygons together #> Simple feature collection with 155 features and 1 field #> Geometry type: POLYGON #> Dimension: XY #> Bounding box: xmin: 288776.3 ymin: 9117911 xmax: 291626.3 ymax: 9120761 #> Projected CRS: SIRGAS 2000 / UTM zone 25S #> First 10 features: #> L7_ETMs.tif geometry #> 1 0 POLYGON ((289517.3 9120761,... #> 2 0 POLYGON ((290144.3 9120761,... #> 3 0 POLYGON ((290315.3 9120761,... #> 4 0 POLYGON ((291113.3 9120761,... #> 5 0 POLYGON ((291341.3 9120761,... #> 6 1 POLYGON ((291455.3 9120761,... #> 7 1 POLYGON ((291569.3 9120761,... #> 8 0 POLYGON ((290372.3 9120732,... #> 9 1 POLYGON ((290628.8 9120732,... #> 10 1 POLYGON ((290771.3 9120732,... all(st_is_valid(p)) # not all valid, see details #> [1] TRUE plot(p, axes = TRUE) (p = st_as_sf(x, na.rm = FALSE, merge = TRUE)) # includes polygons with NA values #> Simple feature collection with 380 features and 1 field #> Geometry type: POLYGON #> Dimension: XY #> Bounding box: xmin: 288776.3 ymin: 9117911 xmax: 291626.3 ymax: 9120761 #> Projected CRS: SIRGAS 2000 / UTM zone 25S #> First 10 features: #> L7_ETMs.tif geometry #> 1 0 POLYGON ((289517.3 9120761,... #> 2 0 POLYGON ((290144.3 9120761,... #> 3 0 POLYGON ((290315.3 9120761,... #> 4 0 POLYGON ((291113.3 9120761,... #> 5 0 POLYGON ((291341.3 9120761,... #> 6 1 POLYGON ((291455.3 9120761,... #> 7 1 POLYGON ((291569.3 9120761,... #> 8 NA POLYGON ((289745.3 9120732,... #> 9 NA POLYGON ((289830.8 9120732,... #> 10 0 POLYGON ((290372.3 9120732,... plot(p, axes = TRUE)"},{"path":"/reference/st_as_stars.html","id":null,"dir":"Reference","previous_headings":"","what":"convert objects into a stars object — st_as_stars","title":"convert objects into a stars object — st_as_stars","text":"convert objects stars object","code":""},{"path":"/reference/st_as_stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"convert objects into a stars object — st_as_stars","text":"","code":"st_as_stars(.x, ...) # S3 method for list st_as_stars(.x, ..., dimensions = NULL) # S3 method for default st_as_stars(.x = NULL, ..., raster = NULL) # S3 method for stars st_as_stars(.x, ..., curvilinear = NULL, crs = st_crs(\"OGC:CRS84\")) # S3 method for bbox st_as_stars( .x, ..., nx, ny, dx = dy, dy = dx, xlim = .x[c(\"xmin\", \"xmax\")], ylim = .x[c(\"ymin\", \"ymax\")], values = 0, n = 64800, pretty = FALSE, inside = FALSE, nz, proxy = FALSE ) # S3 method for sf st_as_stars(.x, ..., name = attr(.x, \"sf_column\")) # S3 method for Raster st_as_stars(.x, ..., att = 1, ignore_file = FALSE) # S3 method for SpatRaster st_as_stars( .x, ..., ignore_file = FALSE, as_attributes = all(terra::is.factor(.x)) ) # S3 method for ncdfgeom st_as_stars(.x, ..., sf_geometry = NA) # S3 method for stars_proxy st_as_stars( .x, ..., downsample = 0, url = attr(.x, \"url\"), envir = parent.frame() ) # S3 method for data.frame st_as_stars( .x, ..., dims = coords, xy = dims[1:2], y_decreasing = TRUE, coords = 1:2 ) # S3 method for xts st_as_stars(.x, ..., dimensions, name = \"attr\") # S3 method for OpenStreetMap st_as_stars(.x, ..., as_col = FALSE) # S3 method for cubble_df st_as_stars(.x, ..., check_times = FALSE)"},{"path":"/reference/st_as_stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"convert objects into a stars object — st_as_stars","text":".x object convert ... case .x class bbox, arguments passed pretty. case .x class nc_proxy, arguments passed read_ncdf. dimensions object class dimensions raster character; names dimensions denote raster dimensions curvilinear creating curvilinear grids: named length 2 list holding longitude latitude matrices stars arrays, names corresponding attributes .x; names vector correspond raster dimensions matrices associated ; see Details. crs object class crs coordinate reference system values curvilinear; see details nx integer; number cells x direction; see details ny integer; number cells y direction; see details dx numeric object class units; cell size x direction; see details dy numeric object class units; cell size y direction; see details xlim length 2 numeric vector extent (min, max) x direction ylim length 2 numeric vector extent (min, max) y direction values value(s) populate raster values n (approximate) target number grid cells pretty logical; cell coordinates pretty values? inside logical; cells entirely fall inside bbox, potentially covering completely (TRUE), allways cover bbox (FALSE), find good approximation (NA, default)? nz integer; number cells z direction; missing z-dimension created. proxy logical; stars_proxy object created? (requires gdal_create binary sf < 1.0-6) name character; attribute name array xts object att see factorValues; column RasterLayer's attribute table ignore_file logical; TRUE, ignore SpatRaster object file name as_attributes logical; TRUE .x one layer, load separate attributes rather band time dimension (implemented case ignore_file TRUE) sf_geometry sf data.frame geometry attributes added stars object. Must number rows timeseries instances. downsample integer: larger 0, downsample rate (number pixels skip every row/column); length 2, specifies downsampling rate x y. url character; URL stars endpoint data reside envir environment resolve objects dims column names indices form cube dimensions xy x y raster dimension names indices; takes effect dims specified y_decreasing logical; TRUE, (numeric) y values get negative delta (decrease increasing index) coords dims, symmetry st_as_sf as_col logical; return rgb numbers (FALSE) (character) color values (TRUE)? check_times logical; check time stamps time series identical?","code":""},{"path":"/reference/st_as_stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"convert objects into a stars object — st_as_stars","text":"curvilinear list stars objects longitude latitude values, coordinate reference system typically latitude longitude values. curvilinear contains names two arrays .x, removed returned object. bbox method: pretty TRUE, raster cells may extend coordinate range .x sides. addition nx ny, dx dy also missing, set single value computed sqrt(diff(xlim)*diff(ylim)/n). nx ny missing, computed (ceiling, floor, rounded integer value) ratio (x y) range divided (dx dy), depending value inside. Positive dy made negative. named arguments (...) passed pretty. dx dy units objects, value converted units st_crs(.x) (sf >= 1.0-7). ncdfgeom method: objects point-timeseries optional line polygon geometry timeseries specified sf_geometry parameter. See ncdfgeom NetCDF-based format geometry timeseries. xts methods, dimensions provided, time first dimension.","code":""},{"path":"/reference/st_as_stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"convert objects into a stars object — st_as_stars","text":"","code":"if (require(plm, quietly = TRUE)) { data(Produc, package = \"plm\") st_as_stars(Produc, y_decreasing = FALSE) data(Produc, package = \"plm\") st_as_stars(Produc, y_decreasing = FALSE) } #> #> Attaching package: ‘plm’ #> The following objects are masked from ‘package:dplyr’: #> #> between, lag, lead #> stars object with 2 dimensions and 9 attributes #> attribute(s): #> region pcap hwy water #> 5 :136 Min. : 2627 Min. : 1827 Min. : 228.5 #> 8 :136 1st Qu.: 7097 1st Qu.: 3858 1st Qu.: 764.5 #> 4 :119 Median : 17572 Median : 7556 Median : 2266.5 #> 1 :102 Mean : 25037 Mean :10218 Mean : 3618.8 #> 3 : 85 3rd Qu.: 27692 3rd Qu.:11267 3rd Qu.: 4318.7 #> 6 : 68 Max. :140217 Max. :47699 Max. :24592.3 #> (Other):170 #> util pc gsp emp #> Min. : 538.5 Min. : 4053 Min. : 4354 Min. : 108.3 #> 1st Qu.: 2488.3 1st Qu.: 21651 1st Qu.: 16502 1st Qu.: 475.0 #> Median : 7008.8 Median : 40671 Median : 39987 Median : 1164.8 #> Mean :11199.5 Mean : 58188 Mean : 61014 Mean : 1747.1 #> 3rd Qu.:11598.5 3rd Qu.: 64796 3rd Qu.: 68126 3rd Qu.: 2114.1 #> Max. :80728.1 Max. :375342 Max. :464550 Max. :11258.0 #> #> unemp #> Min. : 2.800 #> 1st Qu.: 5.000 #> Median : 6.200 #> Mean : 6.602 #> 3rd Qu.: 7.900 #> Max. :18.000 #> #> dimension(s): #> from to offset delta values x/y #> state 1 48 NA NA ALABAMA,...,WYOMING [x] #> year 1 17 1970 1 NULL [y]"},{"path":"/reference/st_cells.html","id":null,"dir":"Reference","previous_headings":"","what":"return the cell index corresponding to the location of a set of points — st_cells","title":"return the cell index corresponding to the location of a set of points — st_cells","text":"return cell index corresponding location set points","code":""},{"path":"/reference/st_cells.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"return the cell index corresponding to the location of a set of points — st_cells","text":"","code":"st_cells(x, sf)"},{"path":"/reference/st_cells.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"return the cell index corresponding to the location of a set of points — st_cells","text":"x object class stars sf object class sf sfc","code":""},{"path":"/reference/st_cells.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"return the cell index corresponding to the location of a set of points — st_cells","text":"","code":"set.seed(1345) st_bbox(L7_ETMs) |> st_as_sfc() |> st_sample(10) -> pts (x <- st_cells(L7_ETMs, pts)) #> [1] 102496 112324 74862 56976 112862 105242 75593 11784 91245 63885 # get the pixel values (first band only): st_as_stars(L7_ETMs)[[1]][x] #> [1] 92 92 89 76 67 94 77 98 113 56 # get pixel values for all bands: st_as_stars(L7_ETMs) |> split() |> sapply(`[`, x) #> X1 X2 X3 X4 X5 X6 #> [1,] 92 81 60 14 14 11 #> [2,] 92 83 59 13 13 12 #> [3,] 89 83 88 66 113 92 #> [4,] 76 63 66 61 108 78 #> [5,] 67 55 50 65 69 38 #> [6,] 94 81 92 60 125 105 #> [7,] 77 63 65 58 114 93 #> [8,] 98 85 88 57 93 80 #> [9,] 113 98 104 66 110 94 #> [10,] 56 40 27 68 50 24 # compare with st_extract(): st_as_stars(L7_ETMs) |> split() |> st_extract(pts) #> Simple feature collection with 10 features and 6 fields #> Geometry type: POINT #> Dimension: XY #> Bounding box: xmin: 289267.4 ymin: 9111549 xmax: 297166.8 ymax: 9119794 #> Projected CRS: SIRGAS 2000 / UTM zone 25S #> X1 X2 X3 X4 X5 X6 geometry #> 1 92 81 60 14 14 11 POINT (295582.2 9112406) #> 2 92 83 59 13 13 12 POINT (297166.8 9111599) #> 3 89 83 88 66 113 92 POINT (293775.8 9114659) #> 4 76 63 66 61 108 78 POINT (291294.7 9116093) #> 5 67 55 50 65 69 38 POINT (292609.8 9111549) #> 6 94 81 92 60 125 105 POINT (294276.2 9112159) #> 7 77 63 65 58 114 93 POINT (294731 9114598) #> 8 98 85 88 57 93 80 POINT (296360.6 9119794) #> 9 113 98 104 66 110 94 POINT (293206.5 9113313) #> 10 56 40 27 68 50 24 POINT (289267.4 9115521)"},{"path":"/reference/st_contour.html","id":null,"dir":"Reference","previous_headings":"","what":"Compute or plot contour lines or sets — st_contour","title":"Compute or plot contour lines or sets — st_contour","text":"Compute contour lines sets","code":""},{"path":"/reference/st_contour.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Compute or plot contour lines or sets — st_contour","text":"","code":"st_contour( x, na.rm = TRUE, contour_lines = FALSE, breaks = classInt::classIntervals(na.omit(as.vector(x[[1]])))$brks )"},{"path":"/reference/st_contour.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Compute or plot contour lines or sets — st_contour","text":"x object class stars na.rm logical; missing valued cells removed, also converted features? contour_lines logical; FALSE, polygons returned (contour sets), otherwise contour lines breaks numerical; values \"draw\" contour levels","code":""},{"path":"/reference/st_contour.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Compute or plot contour lines or sets — st_contour","text":"function requires GDAL >= 2.4.0","code":""},{"path":[]},{"path":"/reference/st_coordinates.html","id":null,"dir":"Reference","previous_headings":"","what":"retrieve coordinates for raster or vector cube cells — st_coordinates","title":"retrieve coordinates for raster or vector cube cells — st_coordinates","text":"retrieve coordinates raster vector cube cells","code":""},{"path":"/reference/st_coordinates.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"retrieve coordinates for raster or vector cube cells — st_coordinates","text":"","code":"# S3 method for stars st_coordinates(x, ..., add_max = FALSE, center = TRUE) # S3 method for stars as.data.frame(x, ..., add_max = FALSE, center = NA) as_tibble.stars(.x, ..., add_max = FALSE, center = NA)"},{"path":"/reference/st_coordinates.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"retrieve coordinates for raster or vector cube cells — st_coordinates","text":"x object class stars ... ignored add_max logical; TRUE, dimensions given min (x) max (x_max) value center logical; (add_max FALSE): grid cell center coordinates returned (TRUE) offset values (FALSE)? center can named logical vector list specify values dimension. .x object converted tibble","code":""},{"path":"/reference/st_crop.html","id":null,"dir":"Reference","previous_headings":"","what":"crop a stars object — st_crop","title":"crop a stars object — st_crop","text":"crop stars object","code":""},{"path":"/reference/st_crop.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"crop a stars object — st_crop","text":"","code":"# S3 method for stars_proxy st_crop( x, y, ..., crop = TRUE, epsilon = sqrt(.Machine$double.eps), collect = TRUE ) # S3 method for stars st_crop( x, y, ..., crop = TRUE, epsilon = sqrt(.Machine$double.eps), as_points = all(st_dimension(y) == 2, na.rm = TRUE) )"},{"path":"/reference/st_crop.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"crop a stars object — st_crop","text":"x object class stars y object class sf, sfc bbox; see Details . ... ignored crop logical; TRUE, spatial extent returned object cropped still cover obj, FALSE, extent remains cells outside y given NA values. epsilon numeric; factor shrink bounding box y towards center cropping. collect logical; TRUE, repeat cropping stars object, .e. data read as_points logical; relevant y class sf sfc: FALSE, treat x set points, else set small polygons. Default: TRUE y two-dimensional, else FALSE; see Details","code":""},{"path":"/reference/st_crop.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"crop a stars object — st_crop","text":"raster x, st_crop selects cells intersect y. intersection, raster cells interpreted points small polygons? y class stars, x raster cells interpreted points; y class bbox, x cells interpreted cells (small polygons). Otherwise, as_points given, cells interpreted points y two-dimensional geometry.","code":""},{"path":"/reference/st_crop.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"crop a stars object — st_crop","text":"","code":"l7 = read_stars(system.file(\"tif/L7_ETMs.tif\", package = \"stars\")) d = st_dimensions(l7) # area around cells 3:10 (x) and 4:11 (y): offset = c(d[[\"x\"]]$offset, d[[\"y\"]]$offset) res = c(d[[\"x\"]]$delta, d[[\"y\"]]$delta) bb = st_bbox(c(xmin = offset[1] + 2 * res[1], ymin = offset[2] + 11 * res[2], xmax = offset[1] + 10 * res[1], ymax = offset[2] + 3 * res[2]), crs = st_crs(l7)) l7[bb] #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 17 43 55.5 56.36979 65 111 #> dimension(s): #> from to offset delta refsys point x/y #> x 3 10 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 4 11 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA # equivalent: st_crop(l7, bb) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 17 43 55.5 56.36979 65 111 #> dimension(s): #> from to offset delta refsys point x/y #> x 3 10 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 4 11 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(l7[,1:13,1:13,1], reset = FALSE) image(l7[bb,,,1], add = TRUE, col = sf.colors()) plot(st_as_sfc(bb), add = TRUE, border = 'green', lwd = 2) # slightly smaller bbox: bb = st_bbox(c(xmin = offset[1] + 2.1 * res[1], ymin = offset[2] + 10.9 * res[2], xmax = offset[1] + 9.9 * res[1], ymax = offset[2] + 3.1 * res[2]), crs = st_crs(l7)) l7[bb] #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 17 43 55.5 56.36979 65 111 #> dimension(s): #> from to offset delta refsys point x/y #> x 3 10 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 4 11 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(l7[,1:13,1:13,1], reset = FALSE) image(l7[bb,,,1], add = TRUE, col = sf.colors()) plot(st_as_sfc(bb), add = TRUE, border = 'green', lwd = 2) # slightly larger bbox: bb = st_bbox(c(xmin = offset[1] + 1.9 * res[1], ymin = offset[2] + 11.1 * res[2], xmax = offset[1] + 10.1 * res[1], ymax = offset[2] + 2.9 * res[2]), crs = st_crs(l7)) l7[bb] #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 17 43 55 56.11167 66 112 #> dimension(s): #> from to offset delta refsys point x/y #> x 2 11 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 3 12 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(l7[,1:13,1:13,1], reset = FALSE) image(l7[bb,,,1], add = TRUE, col = sf.colors()) plot(st_as_sfc(bb), add = TRUE, border = 'green', lwd = 2) # half a cell size larger bbox: bb = st_bbox(c(xmin = offset[1] + 1.49 * res[1], ymin = offset[2] + 11.51 * res[2], xmax = offset[1] + 10.51 * res[1], ymax = offset[2] + 2.49 * res[2]), crs = st_crs(l7)) l7[bb] #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 17 43 55 56.11167 66 112 #> dimension(s): #> from to offset delta refsys point x/y #> x 2 11 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 3 12 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(l7[,1:13,1:13,1], reset = FALSE) image(l7[bb,,,1], add = TRUE, col = sf.colors()) plot(st_as_sfc(bb), add = TRUE, border = 'green', lwd = 2)"},{"path":"/reference/st_dim_to_attr.html","id":null,"dir":"Reference","previous_headings":"","what":"create an array with dimension values — st_dim_to_attr","title":"create an array with dimension values — st_dim_to_attr","text":"create array dimension values","code":""},{"path":"/reference/st_dim_to_attr.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"create an array with dimension values — st_dim_to_attr","text":"","code":"st_dim_to_attr(x, which = seq_along(dim(x)))"},{"path":"/reference/st_dim_to_attr.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"create an array with dimension values — st_dim_to_attr","text":"x object class stars integer; indices dimensions address (default: )","code":""},{"path":"/reference/st_dim_to_attr.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"create an array with dimension values — st_dim_to_attr","text":"stars object dimension values attributes","code":""},{"path":"/reference/st_dim_to_attr.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"create an array with dimension values — st_dim_to_attr","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x1 = read_stars(tif) (x = st_dim_to_attr(x1)) #> stars object with 3 dimensions and 3 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> x 288790.5 291270 293749.5 293749.5 296229 298708.5 #> y 9110743.0 9113244 9115744.8 9115744.8 9118246 9120746.5 #> band 1.0 2 3.5 3.5 5 6.0 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(x) (x = st_dim_to_attr(x1, 2:3)) #> stars object with 3 dimensions and 2 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> y 9110743 9113244 9115744.8 9115744.8 9118246 9120747 #> band 1 2 3.5 3.5 5 6 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(x) (x= st_dim_to_attr(x1, 3)) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> band 1 2 3.5 3.5 5 6 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA plot(x)"},{"path":"/reference/st_dimensions.html","id":null,"dir":"Reference","previous_headings":"","what":"get dimensions from stars object — st_dimensions","title":"get dimensions from stars object — st_dimensions","text":"get dimensions stars object","code":""},{"path":"/reference/st_dimensions.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"get dimensions from stars object — st_dimensions","text":"","code":"st_dimensions(.x, ...) # S3 method for stars st_dimensions(.x, ...) st_dimensions(x) <- value # S3 method for stars st_dimensions(x) <- value # S3 method for stars_proxy st_dimensions(x) <- value # S3 method for list st_dimensions(x) <- value # S3 method for array st_dimensions(.x, ...) # S3 method for default st_dimensions( .x, ..., .raster, affine = c(0, 0), cell_midpoints = FALSE, point = FALSE ) st_set_dimensions( .x, which, values = NULL, point = NULL, names = NULL, xy, ... ) st_get_dimension_values(.x, which, ..., where = NA, max = FALSE, center = NA)"},{"path":"/reference/st_dimensions.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"get dimensions from stars object — st_dimensions","text":".x object retrieve dimensions information ... arguments x object class dimensions value new object class dimensions, matching dimensions .raster length 2 character array names () raster dimensions affine numeric; specify parameters affine transformation cell_midpoints logical; TRUE dimension values strictly regular, values interpreted cell midpoint values rather cell offset values calculating offset (.e., half-cell-size correction applied); can value dimension, else recycled point logical; pixel value (measure) refer point (location) value pixel (area) summary value? integer character; index name dimension changed values values dimension (e.g. sfc list-column), length-1 dimensions object; setting special value NULL removes dimension values, instance remove curvilinear raster coordinates names character; vector new names dimensions, single new name dimension indicated xy length-2 character vector; (new) names x y raster dimensions character, one 'start', 'center' 'end'. Set NA (default) ignore use max center explictly. argument provides convenient alternative setting max center. max logical; TRUE return end, rather beginning interval center logical; TRUE return center interval; NA return center raster dimensions, start intervals cases","code":""},{"path":"/reference/st_dimensions.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"get dimensions from stars object — st_dimensions","text":"dimensions attribute x, class dimensions","code":""},{"path":"/reference/st_dimensions.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"get dimensions from stars object — st_dimensions","text":"dimensions can specified two ways. simplest pass vector numeric values numeric dimension, character values categorical dimension. Parameter cell_midpoints used specify whether numeric values refer offset (start) dimension interval (default), center; center case available regular dimensions. rectilinear numeric dimensions, one can specify either vector cell borders (start values), data.frame two columns named \"start\" \"end\", respective interval start end values. first case, end values computed start values assuming last two intervals equal width.","code":""},{"path":"/reference/st_dimensions.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"get dimensions from stars object — st_dimensions","text":"","code":"x = read_stars(system.file(\"tif/L7_ETMs.tif\", package = \"stars\")) # Landsat 7 ETM+ band semantics: https://landsat.gsfc.nasa.gov/the-enhanced-thematic-mapper-plus/ # set bands to values 1,2,3,4,5,7: (x1 = st_set_dimensions(x, \"band\", values = c(1,2,3,4,5,7), names = \"band_number\", point = TRUE)) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point values x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE NULL [y] #> band_number 1 6 NA NA NA TRUE 1,...,7 # set band values as bandwidth rbind(c(0.45,0.515), c(0.525,0.605), c(0.63,0.69), c(0.775,0.90), c(1.55,1.75), c(2.08,2.35)) %>% units::set_units(\"um\") -> bw # or: units::set_units(µm) -> bw # set bandwidth midpoint: (x2 = st_set_dimensions(x, \"band\", values = 0.5 * (bw[,1]+bw[,2]), names = \"bandwidth_midpoint\", point = TRUE)) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE #> bandwidth_midpoint 1 6 NA NA udunits TRUE #> values x/y #> x NULL [x] #> y NULL [y] #> bandwidth_midpoint 0.4825 [um],...,2.215 [um] # set bandwidth intervals: (x3 = st_set_dimensions(x, \"band\", values = make_intervals(bw), names = \"bandwidth\")) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE #> bandwidth 1 6 NA NA udunits NA #> values x/y #> x NULL [x] #> y NULL [y] #> bandwidth [0.45,0.515) [um],...,[2.08,2.35) [um] m = matrix(1:20, nrow = 5, ncol = 4) dim(m) = c(x = 5, y = 4) # named dim (s = st_as_stars(m)) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> A1 1 5.75 10.5 10.5 15.25 20 #> dimension(s): #> from to offset delta point x/y #> x 1 5 0 1 FALSE [x] #> y 1 4 0 1 FALSE [y] st_get_dimension_values(s, 'x', where = \"start\") #> [1] 0 1 2 3 4 st_get_dimension_values(s, 'x', center = FALSE) #> [1] 0 1 2 3 4 st_get_dimension_values(s, 'x', where = \"center\") #> [1] 0.5 1.5 2.5 3.5 4.5 st_get_dimension_values(s, 'x', center = TRUE) #> [1] 0.5 1.5 2.5 3.5 4.5 st_get_dimension_values(s, 'x', where = \"end\") #> [1] 1 2 3 4 5 st_get_dimension_values(s, 'x', max = TRUE) #> [1] 1 2 3 4 5"},{"path":"/reference/st_downsample.html","id":null,"dir":"Reference","previous_headings":"","what":"downsample stars or stars_proxy object by skipping rows, columns and bands — st_downsample","title":"downsample stars or stars_proxy object by skipping rows, columns and bands — st_downsample","text":"downsample stars stars_proxy object skipping rows, columns bands","code":""},{"path":"/reference/st_downsample.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"downsample stars or stars_proxy object by skipping rows, columns and bands — st_downsample","text":"","code":"st_downsample(x, n, ...) # S3 method for stars st_downsample(x, n, ...) # S3 method for stars_proxy st_downsample(x, n, ...)"},{"path":"/reference/st_downsample.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"downsample stars or stars_proxy object by skipping rows, columns and bands — st_downsample","text":"x object class stars stars_proxy n numeric; number pixels/lines/bands etc skipped; see Details. ... ignored","code":""},{"path":"/reference/st_downsample.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"downsample stars or stars_proxy object by skipping rows, columns and bands — st_downsample","text":"n == 0, downsampling takes place; 1, every second row/column/band skipped, 2, every second+third row/column/band skipped, etc. Downsampling stars_proxy object returns stars object, equivalent calling st_as_stars(x, downsample = 2), downsamples first two (x y) dimensions. Downsampled regular rasters keep dimension offsets, cell size (delta) n[]+1 times larger, may result (slightly) different extent.","code":""},{"path":"/reference/st_extract.html","id":null,"dir":"Reference","previous_headings":"","what":"Extract cell values at point locations — st_extract","title":"Extract cell values at point locations — st_extract","text":"Extract cell values point locations","code":""},{"path":"/reference/st_extract.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Extract cell values at point locations — st_extract","text":"","code":"st_extract(x, ...) # S3 method for stars st_extract( x, at, ..., bilinear = FALSE, time_column = attr(at, \"time_column\") %||% attr(at, \"time_col\"), interpolate_time = bilinear, FUN = mean )"},{"path":"/reference/st_extract.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Extract cell values at point locations — st_extract","text":"x object class stars stars_proxy ... passed aggregate.stars geometries exclusively POINT geometries object class sf sfc geometries, two-column matrix coordinate points rows, indicating extract values x bilinear logical; use bilinear interpolation rather nearest neighbour? time_column character integer; name index column time date values matched values dimension \"time\" x, dimension reduced. useful extract data cube values along trajectory; see https://github.com/r-spatial/stars/issues/352 . interpolate_time logical; time interpolated? FALSE, time instances matched using coinciding last preceding time data cube. FUN function used aggregate pixel values geometries intersect one pixel","code":""},{"path":"/reference/st_extract.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Extract cell values at point locations — st_extract","text":"class matrix, matrix extracted values returned; otherwise: x dimensions x y (raster), object class stars POINT geometries replacing x y raster dimensions, case, object sf extracted values.","code":""},{"path":"/reference/st_extract.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Extract cell values at point locations — st_extract","text":"points outside raster returned NA values. large sets points extraction needed, passing matrix may much faster passing sf sfc object.","code":""},{"path":"/reference/st_extract.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Extract cell values at point locations — st_extract","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") r = read_stars(tif) pnt = st_sample(st_as_sfc(st_bbox(r)), 10) st_extract(r, pnt) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 12 60.75 74 72.51667 87 150 #> dimension(s): #> from to refsys point #> geometry 1 10 SIRGAS 2000 / UTM zone 25S TRUE #> band 1 6 NA NA #> values #> geometry POINT (298340.2 9114943),...,POINT (289531.4 9111471) #> band NULL st_extract(r, pnt) %>% st_as_sf() #> Simple feature collection with 10 features and 6 fields #> Geometry type: POINT #> Dimension: XY #> Bounding box: xmin: 288950.3 ymin: 9111189 xmax: 298340.2 ymax: 9119338 #> Projected CRS: SIRGAS 2000 / UTM zone 25S #> L7_ETMs.tif.V1 L7_ETMs.tif.V2 L7_ETMs.tif.V3 L7_ETMs.tif.V4 L7_ETMs.tif.V5 #> 1 97 88 67 14 13 #> 2 82 66 74 49 107 #> 3 66 54 46 73 79 #> 4 80 68 69 77 117 #> 5 87 85 104 87 120 #> 6 90 83 65 13 13 #> 7 63 46 38 65 83 #> 8 110 101 114 74 150 #> 9 80 68 74 54 110 #> 10 80 65 65 44 84 #> L7_ETMs.tif.V6 geometry #> 1 12 POINT (298340.2 9114943) #> 2 82 POINT (293918.4 9114415) #> 3 42 POINT (293485.2 9118749) #> 4 86 POINT (294440.9 9114839) #> 5 79 POINT (295209 9118813) #> 6 12 POINT (295048.9 9111189) #> 7 50 POINT (289649.4 9116888) #> 8 128 POINT (295730.3 9119338) #> 9 88 POINT (288950.3 9111816) #> 10 71 POINT (289531.4 9111471) st_extract(r[,,,1], pnt) #> Simple feature collection with 10 features and 1 field #> Geometry type: POINT #> Dimension: XY #> Bounding box: xmin: 288950.3 ymin: 9111189 xmax: 298340.2 ymax: 9119338 #> Projected CRS: SIRGAS 2000 / UTM zone 25S #> L7_ETMs.tif geometry #> 1 97 POINT (298340.2 9114943) #> 2 82 POINT (293918.4 9114415) #> 3 66 POINT (293485.2 9118749) #> 4 80 POINT (294440.9 9114839) #> 5 87 POINT (295209 9118813) #> 6 90 POINT (295048.9 9111189) #> 7 63 POINT (289649.4 9116888) #> 8 110 POINT (295730.3 9119338) #> 9 80 POINT (288950.3 9111816) #> 10 80 POINT (289531.4 9111471) st_extract(r, st_coordinates(pnt)) # \"at\" is a matrix: return a matrix #> [,1] [,2] [,3] [,4] [,5] [,6] #> [1,] 97 88 67 14 13 12 #> [2,] 82 66 74 49 107 82 #> [3,] 66 54 46 73 79 42 #> [4,] 80 68 69 77 117 86 #> [5,] 87 85 104 87 120 79 #> [6,] 90 83 65 13 13 12 #> [7,] 63 46 38 65 83 50 #> [8,] 110 101 114 74 150 128 #> [9,] 80 68 74 54 110 88 #> [10,] 80 65 65 44 84 71"},{"path":"/reference/st_intersects.stars.html","id":null,"dir":"Reference","previous_headings":"","what":"spatial intersect predicate for stars and sfc object — st_intersects.stars","title":"spatial intersect predicate for stars and sfc object — st_intersects.stars","text":"spatial intersect predicate stars sfc object","code":""},{"path":"/reference/st_intersects.stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"spatial intersect predicate for stars and sfc object — st_intersects.stars","text":"","code":"# S3 method for stars st_intersects(x, y, sparse = TRUE, ..., as_points = NA, transpose = FALSE)"},{"path":"/reference/st_intersects.stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"spatial intersect predicate for stars and sfc object — st_intersects.stars","text":"x object class stars y object `st_geometry` method: class `sf` `sfc`, `stars` object `sfc` dimension sparse logical; TRUE, return sparse logical matrix (object class `sgbp`), FALSE, return logical matrix ... ignored, passed `st_intersects.sf` curvilinear grids as_points logical, grid cells considered points (TRUE) polygons (FALSE)? Default: FALSE warning emitted transpose logical; transpose `sgbp` object returned?","code":""},{"path":"/reference/st_intersects.stars.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"spatial intersect predicate for stars and sfc object — st_intersects.stars","text":"`sgbp` object sparse = TRUE, logical matrix otherwise","code":""},{"path":"/reference/st_intersects.stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"spatial intersect predicate for stars and sfc object — st_intersects.stars","text":"curvilinear grids always converted polygons, points grid boundaries may intersect two cells touched; grids cell boundary corner belongs one cell.","code":""},{"path":"/reference/st_join.stars.html","id":null,"dir":"Reference","previous_headings":"","what":"Spatially join a stars and an `sf` object — st_join.stars","title":"Spatially join a stars and an `sf` object — st_join.stars","text":"Spatially join stars `sf` object","code":""},{"path":"/reference/st_join.stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Spatially join a stars and an `sf` object — st_join.stars","text":"","code":"# S3 method for stars st_join( x, y, join = st_intersects, ..., what = \"left1\", as_points = NA, warn = TRUE )"},{"path":"/reference/st_join.stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Spatially join a stars and an `sf` object — st_join.stars","text":"x object class stars y object class sf, one can coerced st_as_sf join join function, return sgbp object; see details ... arguments passed join function \"left1\", \"right\" \"inner\"; see details as_points logical; controls whether grid cells x treated points, cell areas; st_intersects.stars method default derive x's metadata, else assume areas. warn logical; TRUE, warn 1--many matches \"left1\"","code":""},{"path":"/reference/st_join.stars.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Spatially join a stars and an `sf` object — st_join.stars","text":"\"left1\", object class stars (first) value y spatial instances x","code":""},{"path":"/reference/st_join.stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Spatially join a stars and an `sf` object — st_join.stars","text":"one match single x value, first matching record y taken (warn TRUE warning raised). \"inner\", object class sf matching records x y.","code":""},{"path":"/reference/st_mosaic.html","id":null,"dir":"Reference","previous_headings":"","what":"build mosaic (composite) of several spatially disjoint stars objects — st_mosaic","title":"build mosaic (composite) of several spatially disjoint stars objects — st_mosaic","text":"build mosaic (composite) several spatially disjoint stars objects","code":""},{"path":"/reference/st_mosaic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"build mosaic (composite) of several spatially disjoint stars objects — st_mosaic","text":"","code":"st_mosaic(.x, ...) # S3 method for stars st_mosaic( .x, ..., dst = tempfile(fileext = file_ext), options = c(\"-vrtnodata\", \"-9999\", \"-srcnodata\", \"nan\"), file_ext = \".tif\" ) # S3 method for character st_mosaic( .x, ..., dst = tempfile(fileext = file_ext), options = c(\"-vrtnodata\", \"-9999\"), file_ext = \".tif\" ) # S3 method for stars_proxy st_mosaic( .x, ..., dst = tempfile(fileext = file_ext), options = c(\"-vrtnodata\", \"-9999\"), file_ext = \".tif\" )"},{"path":"/reference/st_mosaic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"build mosaic (composite) of several spatially disjoint stars objects — st_mosaic","text":".x object class stars, character vector input dataset names ... input stars objects dst character; destination file name options character; options gdalbuildvrt command file_ext character; file extension, determining format used write (\".tif\" implies GeoTIFF)","code":""},{"path":"/reference/st_mosaic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"build mosaic (composite) of several spatially disjoint stars objects — st_mosaic","text":"stars method returns stars object composite input; character method returns file name file mosaic; see also GDAL documentation gdalbuildvrt","code":""},{"path":"/reference/st_mosaic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"build mosaic (composite) of several spatially disjoint stars objects — st_mosaic","text":"gdal function buildvrt builds mosaic input images; imput images can multi-band, higher-dimensional data cubes stars objects multiple attributes uses gdal_utils internally call buildvrt; executables external R called.","code":""},{"path":"/reference/st_mosaic.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"build mosaic (composite) of several spatially disjoint stars objects — st_mosaic","text":"","code":"x = read_stars(system.file(\"tif/L7_ETMs.tif\", package = \"stars\")) x1 = x[,100:200,100:200,] x2 = x[,150:300,150:300,] plot(st_mosaic(x1, x2))"},{"path":"/reference/st_raster_type.html","id":null,"dir":"Reference","previous_headings":"","what":"get the raster type (if any) of a stars object — st_raster_type","title":"get the raster type (if any) of a stars object — st_raster_type","text":"get raster type () stars object","code":""},{"path":"/reference/st_raster_type.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"get the raster type (if any) of a stars object — st_raster_type","text":"","code":"st_raster_type(x, dimension = character(0))"},{"path":"/reference/st_raster_type.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"get the raster type (if any) of a stars object — st_raster_type","text":"x object class stars dimension optional: numbers names dimension(s) get per-dimension type","code":""},{"path":"/reference/st_raster_type.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"get the raster type (if any) of a stars object — st_raster_type","text":"dimension specified, return spatial raster type: one NA (object raster dimensions), \"curvilinear\", \"rectilinear\", \"affine\", \"regular\". case dimension(s) specified, return one \"regular\", \"rectilinear\" (irregular numeric), \"discrete\" (anything else).","code":""},{"path":"/reference/st_raster_type.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"get the raster type (if any) of a stars object — st_raster_type","text":"categories \"curvilinear\" \"affine\" refer relationship pair spatial (raster) dimensions.","code":""},{"path":"/reference/st_raster_type.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"get the raster type (if any) of a stars object — st_raster_type","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) st_raster_type(x) #> [1] \"regular\" st_raster_type(x, 1:3) #> x y band #> \"regular\" \"regular\" \"discrete\""},{"path":"/reference/st_rasterize.html","id":null,"dir":"Reference","previous_headings":"","what":"rasterize simple feature geometries — st_rasterize","title":"rasterize simple feature geometries — st_rasterize","text":"rasterize simple feature geometries","code":""},{"path":"/reference/st_rasterize.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"rasterize simple feature geometries — st_rasterize","text":"","code":"st_rasterize( sf, template = guess_raster(sf, ...) %||% st_as_stars(st_bbox(sf), values = NA_real_, ...), file = tempfile(), driver = \"GTiff\", options = character(0), align = FALSE, proxy = FALSE, ... )"},{"path":"/reference/st_rasterize.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"rasterize simple feature geometries — st_rasterize","text":"sf object class sf template stars object desired target geometry, target geometry alignment align=TRUE file temporary file name driver driver temporary file options character; options vector GDALRasterize align logical; TRUE, template contain geometry alignment, informing target resolution offset . proxy logical; proxy object returned? ... arguments passed st_as_stars","code":""},{"path":"/reference/st_rasterize.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"rasterize simple feature geometries — st_rasterize","text":"","code":"demo(nc, echo = FALSE, ask = FALSE) (x = st_rasterize(nc)) # default grid: #> stars object with 2 dimensions and 12 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. NA's #> AREA 0.042 0.108 0.142 1.451932e-01 0.181 0.241 30904 #> PERIMETER 0.999 1.461 1.716 1.786110e+00 2.004 3.640 30904 #> CNTY_ 1825.000 1907.000 1989.000 1.998403e+03 2085.000 2241.000 30904 #> CNTY_ID 1825.000 1907.000 1989.000 1.998403e+03 2085.000 2241.000 30904 #> FIPSNO 37001.000 37049.000 37101.000 3.710042e+04 37153.000 37199.000 30904 #> CRESS_ID 1.000 25.000 51.000 5.071206e+01 77.000 100.000 30904 #> BIR74 248.000 1323.000 2648.000 3.791637e+03 4139.000 21588.000 30904 #> SID74 0.000 3.000 5.000 7.891985e+00 10.000 44.000 30904 #> NWBIR74 1.000 297.000 844.000 1.246210e+03 1396.000 8027.000 30904 #> BIR79 319.000 1606.000 3108.000 4.852046e+03 5400.000 30757.000 30904 #> SID79 0.000 3.000 6.000 9.584098e+00 13.000 57.000 30904 #> NWBIR79 3.000 360.000 1058.000 1.604642e+03 1524.000 11631.000 30904 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 461 -84.32 0.01925 NAD27 FALSE [x] #> y 1 141 36.59 -0.01925 NAD27 FALSE [y] plot(x, axes = TRUE) # a bit more customized grid: (x = st_rasterize(nc, st_as_stars(st_bbox(nc), nx = 100, ny = 50, values = NA_real_))) #> stars object with 2 dimensions and 12 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. NA's #> AREA 0.042 0.108 0.142 0.145536 0.181 0.241 2373 #> PERIMETER 0.999 1.470 1.716 1.789032 2.004 3.640 2373 #> CNTY_ 1825.000 1908.000 1989.000 1999.761325 2088.000 2241.000 2373 #> CNTY_ID 1825.000 1908.000 1989.000 1999.761325 2088.000 2241.000 2373 #> FIPSNO 37001.000 37049.000 37101.000 37100.327750 37151.000 37199.000 2373 #> CRESS_ID 1.000 25.000 51.000 50.663875 76.000 100.000 2373 #> BIR74 248.000 1323.500 2648.000 3790.530263 4139.000 21588.000 2373 #> SID74 0.000 3.000 5.000 7.905976 10.000 44.000 2373 #> NWBIR74 1.000 289.000 844.000 1246.116483 1396.000 8027.000 2373 #> BIR79 319.000 1606.000 3108.000 4848.231062 5386.000 30757.000 2373 #> SID79 0.000 3.000 6.000 9.574419 13.000 57.000 2373 #> NWBIR79 3.000 360.000 1058.000 1602.740769 1524.000 11631.000 2373 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 100 -84.32 0.08867 NAD27 FALSE [x] #> y 1 50 36.59 -0.05415 NAD27 FALSE [y] plot(x, axes = TRUE) (ls = st_sf(a = 1:2, st_sfc(st_linestring(rbind(c(0.1, 0), c(1.1, 1))), st_linestring(rbind(c(0, 0.05), c(1, 0.05)))))) #> Simple feature collection with 2 features and 1 field #> Geometry type: LINESTRING #> Dimension: XY #> Bounding box: xmin: 0 ymin: 0 xmax: 1.1 ymax: 1 #> CRS: NA #> a #> 1 1 #> 2 2 #> c..st_sfc.st_linestring.rbind.c.0.1..0...c.1.1..1.....st_linestring.rbind.c.0..........0.05...c.1..0.05...... #> 1 LINESTRING (0.1 0, 1.1 1) #> 2 LINESTRING (0 0.05, 1 0.05) (grd = st_as_stars(st_bbox(ls), nx = 10, ny = 10, xlim = c(0, 1.0), ylim = c(0, 1), values = NA_real_)) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. NA's #> values NA NA NA NaN NA NA 100 #> dimension(s): #> from to offset delta x/y #> x 1 10 0 0.1 [x] #> y 1 10 1 -0.1 [y] # Only the left-top corner is part of the grid cell: sf_extSoftVersion()[\"GDAL\"] #> GDAL #> \"3.4.1\" plot(st_rasterize(ls, grd), axes = TRUE, reset = FALSE) # ALL_TOUCHED=FALSE; plot(ls, add = TRUE, col = \"red\") plot(st_rasterize(ls, grd, options = \"ALL_TOUCHED=TRUE\"), axes = TRUE, reset = FALSE) plot(ls, add = TRUE, col = \"red\") # add lines to existing 0 values, summing values in case of multiple lines: (grd = st_as_stars(st_bbox(ls), nx = 10, ny = 10, xlim = c(0, 1.0), ylim = c(0, 1), values = 0)) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> values 0 0 0 0 0 0 #> dimension(s): #> from to offset delta x/y #> x 1 10 0 0.1 [x] #> y 1 10 1 -0.1 [y] r = st_rasterize(ls, grd, options = c(\"MERGE_ALG=ADD\", \"ALL_TOUCHED=TRUE\")) plot(r, axes = TRUE, reset = FALSE) plot(ls, add = TRUE, col = \"red\")"},{"path":"/reference/st_res.html","id":null,"dir":"Reference","previous_headings":"","what":"obtain (spatial) resolution of a stars object — st_res","title":"obtain (spatial) resolution of a stars object — st_res","text":"obtain resolution(s) stars object: default (absolute) x/y raster dimensions, optionally delta dimension parameters","code":""},{"path":"/reference/st_res.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"obtain (spatial) resolution of a stars object — st_res","text":"","code":"st_res(x, all = FALSE, absolute = !all)"},{"path":"/reference/st_res.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"obtain (spatial) resolution of a stars object — st_res","text":"x object class stars logical; FALSE return vector x/y raster resolution absolute logical; works = FALSE; TRUE return absolute resolution values, FALSE return delta values","code":""},{"path":"/reference/st_res.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"obtain (spatial) resolution of a stars object — st_res","text":"= FALSE vector x/y raster resolutions, otherwise list delta values","code":""},{"path":"/reference/st_res.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"obtain (spatial) resolution of a stars object — st_res","text":"","code":"st_res(L7_ETMs) #> x y #> 28.5 28.5 st_res(L7_ETMs, absolute = FALSE) #> x y #> 28.5 -28.5 st_res(L7_ETMs, all = TRUE) #> $x #> [1] 28.5 #> #> $y #> [1] -28.5 #> #> $band #> [1] NA #> if (require(starsdata)) { paste0(\"netcdf/\", c(\"avhrr-only-v2.19810901.nc\", \"avhrr-only-v2.19810902.nc\", \"avhrr-only-v2.19810903.nc\", \"avhrr-only-v2.19810904.nc\")) |> system.file(package = \"starsdata\") |> read_stars(quiet = TRUE) -> x st_res(x) |> print() st_res(x, all = TRUE) |> print() } #> Loading required package: starsdata #> x y #> 0.25 0.25 #> $x #> [1] 0.25 #> #> $y #> [1] -0.25 #> #> $zlev #> [1] NA #> #> $time #> Time difference of 1 days #>"},{"path":"/reference/st_rgb.html","id":null,"dir":"Reference","previous_headings":"","what":"reduce dimension to rgb (alpha) hex values — st_rgb","title":"reduce dimension to rgb (alpha) hex values — st_rgb","text":"reduce dimension rgb (alpha) hex values","code":""},{"path":"/reference/st_rgb.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"reduce dimension to rgb (alpha) hex values — st_rgb","text":"","code":"st_rgb( x, dimension = 3, use_alpha = dim(x)[dimension] == 4, maxColorValue = 255L, probs = c(0, 1), stretch = NULL )"},{"path":"/reference/st_rgb.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"reduce dimension to rgb (alpha) hex values — st_rgb","text":"x object class stars dimension dimension name number reduce use_alpha logical; TRUE, fourth band used alpha values maxColorValue integer; maximum value colors probs probability values quantiles used stretching \"percent\". stretch logical character; TRUE \"percent\", band stretched 0 ... maxColorValue \"percent clip\" method using probs values. \"histogram\", \"histogram equalization\" performed (probs values ignored). stretch NULL FALSE, stretching performed. character values interpreted \"percent\" message printed.","code":""},{"path":"/reference/st_rgb.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"reduce dimension to rgb (alpha) hex values — st_rgb","text":"dimension's bands mapped red, green, blue, alpha; different ordering wanted, use [.stars reorder dimension, see examples","code":""},{"path":[]},{"path":"/reference/st_rgb.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"reduce dimension to rgb (alpha) hex values — st_rgb","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) st_rgb(x[,,,3:1]) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> L7_ETMs.tif #> Length:122848 #> Class :character #> Mode :character #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] r = st_rgb(x[,,,c(6,5,4,3)], 3, use_alpha=TRUE) # now R=6,G=5,B=4,alpha=3 if (require(ggplot2)) { ggplot() + geom_stars(data = r) + scale_fill_identity() } r = st_rgb(x[,,,3:1], probs = c(0.01, 0.99), stretch = \"percent\") plot(r) #> Error in image.stars(x, ..., axes = axes, breaks = breaks, col = col, key.pos = key.pos, key.width = key.width, key.length = key.length, main = NULL): rgb plotting not supported on this device r = st_rgb(x[,,,3:1], probs = c(0.01, 0.99), stretch = \"histogram\") plot(r) #> Error in image.stars(x, ..., axes = axes, breaks = breaks, col = col, key.pos = key.pos, key.width = key.width, key.length = key.length, main = NULL): rgb plotting not supported on this device"},{"path":"/reference/st_set_bbox.html","id":null,"dir":"Reference","previous_headings":"","what":"set bounding box parameters of regular grid — st_set_bbox","title":"set bounding box parameters of regular grid — st_set_bbox","text":"set bounding box parameters regular grid","code":""},{"path":"/reference/st_set_bbox.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"set bounding box parameters of regular grid — st_set_bbox","text":"","code":"st_set_bbox(x, value, ...)"},{"path":"/reference/st_set_bbox.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"set bounding box parameters of regular grid — st_set_bbox","text":"x object class dimensions, stars stars_proxy value object class bbox ... ignored","code":""},{"path":"/reference/st_sfc2xy.html","id":null,"dir":"Reference","previous_headings":"","what":"replace POINT simple feature geometry list with an x y raster — st_sfc2xy","title":"replace POINT simple feature geometry list with an x y raster — st_sfc2xy","text":"replace POINT simple feature geometry list x y raster","code":""},{"path":"/reference/st_sfc2xy.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"replace POINT simple feature geometry list with an x y raster — st_sfc2xy","text":"","code":"st_sfc2xy(x, ...)"},{"path":"/reference/st_sfc2xy.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"replace POINT simple feature geometry list with an x y raster — st_sfc2xy","text":"x object class stars, class sf ... passed .data.frame.stars","code":""},{"path":"/reference/st_sfc2xy.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"replace POINT simple feature geometry list with an x y raster — st_sfc2xy","text":"object class stars POINT list replaced x y raster dimensions. works points distributed regular rectilinear grid.","code":""},{"path":"/reference/st_tile.html","id":null,"dir":"Reference","previous_headings":"","what":"Specify parameters to load raster in blocks — st_tile","title":"Specify parameters to load raster in blocks — st_tile","text":"Helper function specifying block parameters (nXOff, nYOff, nXsize, nYSize) required RasterIO argument read_stars","code":""},{"path":"/reference/st_tile.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Specify parameters to load raster in blocks — st_tile","text":"","code":"st_tile(img_rows, img_cols, x_window, y_window, overlap = 0)"},{"path":"/reference/st_tile.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Specify parameters to load raster in blocks — st_tile","text":"img_rows number input raster rows (integer) img_cols number input raster columns (integer) x_window number rows block (integer) y_window number columns block (integer) overlap number overlapping pixels (integer)","code":""},{"path":"/reference/st_tile.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Specify parameters to load raster in blocks — st_tile","text":"matrix specified nXOff, nYOff, nXsize, nYSize parameters every block","code":""},{"path":"/reference/st_tile.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Specify parameters to load raster in blocks — st_tile","text":"","code":"if (FALSE) { tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") r = read_stars(tif, proxy = TRUE) tiles = st_tile(nrow(r), ncol(r), 256, 256) for (i in seq_len(nrow(tiles))) { tile = read_stars(tif, proxy = FALSE, RasterIO = tiles[i, ]) # write tiles to separate files write_stars(tile, dsn = paste0(i, \".tif\")) } }"},{"path":"/reference/st_transform.html","id":null,"dir":"Reference","previous_headings":"","what":"transform geometries in stars objects to a new coordinate reference system, without warping — st_transform","title":"transform geometries in stars objects to a new coordinate reference system, without warping — st_transform","text":"transform geometries stars objects new coordinate reference system, without warping","code":""},{"path":"/reference/st_transform.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"transform geometries in stars objects to a new coordinate reference system, without warping — st_transform","text":"","code":"# S3 method for stars st_transform(x, crs, ...) # S3 method for stars st_transform_proj(x, crs, ...)"},{"path":"/reference/st_transform.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"transform geometries in stars objects to a new coordinate reference system, without warping — st_transform","text":"x object class stars, either raster simple feature geometries crs object class crs target crs ... ignored","code":""},{"path":"/reference/st_transform.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"transform geometries in stars objects to a new coordinate reference system, without warping — st_transform","text":"simple feature dimensions, st_transform called, leading lossless transformation. gridded spatial data, curvilinear grid transformed grid cell (centers) returned, also lossless. convert regular grid new CRS, use st_warp (general lossy).","code":""},{"path":[]},{"path":"/reference/st_transform.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"transform geometries in stars objects to a new coordinate reference system, without warping — st_transform","text":"","code":"geomatrix = system.file(\"tif/geomatrix.tif\", package = \"stars\") (x = read_stars(geomatrix)) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> geomatrix.tif 74 107 123 126.765 132 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 20 1841002 1.5 WGS 84 / UTM zone 11N TRUE [x] #> y 1 20 1144003 -1.5 WGS 84 / UTM zone 11N TRUE [y] #> sheared raster with parameters: -5 -5 new = st_crs('OGC:CRS84') y = st_transform(x, new) plot(st_transform(st_as_sfc(st_bbox(x)), new), col = NA, border = 'red') plot(st_as_sfc(y, as_points=FALSE), col = NA, border = 'green', axes = TRUE, add = TRUE) image(y, col = heat.colors(12), add = TRUE) plot(st_as_sfc(y, as_points=TRUE), pch=3, cex=.5, col = 'blue', add = TRUE) plot(st_transform(st_as_sfc(x, as_points=FALSE), new), add = TRUE)"},{"path":"/reference/st_warp.html","id":null,"dir":"Reference","previous_headings":"","what":"Warp (resample) grids in stars objects to a new grid, possibly in an new coordinate reference system — st_warp","title":"Warp (resample) grids in stars objects to a new grid, possibly in an new coordinate reference system — st_warp","text":"Warp (resample) grids stars objects new grid, possibly new coordinate reference system","code":""},{"path":"/reference/st_warp.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Warp (resample) grids in stars objects to a new grid, possibly in an new coordinate reference system — st_warp","text":"","code":"st_warp( src, dest, ..., crs = NA_crs_, cellsize = NA_real_, segments = 100, use_gdal = FALSE, options = character(0), no_data_value = NA_real_, debug = FALSE, method = \"near\", threshold = NA_real_ )"},{"path":"/reference/st_warp.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Warp (resample) grids in stars objects to a new grid, possibly in an new coordinate reference system — st_warp","text":"src object class stars source raster dest object class stars target raster geometry ... ignored crs coordinate reference system destination grid, used dest missing cellsize length 1 2 numeric; cellsize target coordinate reference system units segments (total) number segments segmentizing bounding box transforming new crs use_gdal logical; TRUE, use gdal's warp warper, gdal_utils options character vector options, passed gdalwarp no_data_value value used gdalwarp no_data (NA) writing temporary file; setting use_gdal TRUE leads warning debug logical; TRUE, remove temporary gdalwarp destination file, print name method character; see details options; methods near work use_gdal=TRUE threshold numeric; distance threshold warping curvilinear grids: new cells distances larger threshold assigned NA values.","code":""},{"path":"/reference/st_warp.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Warp (resample) grids in stars objects to a new grid, possibly in an new coordinate reference system — st_warp","text":"method one near, bilinear, cubic, cubicspline, lanczos, average, mode, max, min, med, q1 q3; see https://github.com/r-spatial/stars/issues/109 gridded spatial data (dimensions x y), see figure; existing grid transformed regular grid defined dest, possibly new coordinate reference system. dest specified, crs , procedure used choose target grid similar projectRaster. entails: () envelope (bounding box polygon) transformed new crs, possibly segmentation (red box); (ii) grid formed new crs, touching transformed envelope East North side, (cellsize given) cellsize similar cell size src, extent least covers x; (iii) cell center new grid, matching grid cell x used; match, NA value used.","code":""},{"path":"/reference/st_warp.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Warp (resample) grids in stars objects to a new grid, possibly in an new coordinate reference system — st_warp","text":"","code":"geomatrix = system.file(\"tif/geomatrix.tif\", package = \"stars\") (x = read_stars(geomatrix)) #> stars object with 2 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> geomatrix.tif 74 107 123 126.765 132 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 20 1841002 1.5 WGS 84 / UTM zone 11N TRUE [x] #> y 1 20 1144003 -1.5 WGS 84 / UTM zone 11N TRUE [y] #> sheared raster with parameters: -5 -5 new_crs = st_crs('OGC:CRS84') y = st_warp(x, crs = new_crs) plot(st_transform(st_as_sfc(st_bbox(x)), new_crs), col = NA, border = 'red') plot(st_as_sfc(y, as_points=FALSE), col = NA, border = 'green', axes = TRUE, add = TRUE) image(y, add = TRUE, nbreaks = 6) plot(st_as_sfc(y, as_points=TRUE), pch=3, cex=.5, col = 'blue', add = TRUE) plot(st_transform(st_as_sfc(x, as_points=FALSE), new_crs), add = TRUE) # warp 0-360 raster to -180-180 raster: r = read_stars(system.file(\"nc/reduced.nc\", package = \"stars\")) #> sst, anom, err, ice, r %>% st_set_crs('OGC:CRS84') %>% st_warp(st_as_stars(st_bbox(), dx = 2)) -> s plot(r, axes = TRUE) # no CRS set, so no degree symbols in labels plot(s, axes = TRUE) # downsample raster (90 to 270 m) r = read_stars(system.file(\"tif/olinda_dem_utm25s.tif\", package = \"stars\")) r270 = st_as_stars(st_bbox(r), dx = 270) r270 = st_warp(r, r270)"},{"path":"/reference/st_xy2sfc.html","id":null,"dir":"Reference","previous_headings":"","what":"replace x y raster dimensions with simple feature geometry list (points, or polygons = rasterize) — st_xy2sfc","title":"replace x y raster dimensions with simple feature geometry list (points, or polygons = rasterize) — st_xy2sfc","text":"replace x y raster dimensions simple feature geometry list (points, polygons = rasterize)","code":""},{"path":"/reference/st_xy2sfc.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"replace x y raster dimensions with simple feature geometry list (points, or polygons = rasterize) — st_xy2sfc","text":"","code":"st_xy2sfc(x, as_points, ..., na.rm = TRUE)"},{"path":"/reference/st_xy2sfc.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"replace x y raster dimensions with simple feature geometry list (points, or polygons = rasterize) — st_xy2sfc","text":"x object class stars as_points logical; TRUE, generate points cell centers, else generate polygons ... arguments passed st_as_sfc na.rm logical; omit (remove) cells entirely missing valued (across dimensions)?","code":""},{"path":"/reference/st_xy2sfc.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"replace x y raster dimensions with simple feature geometry list (points, or polygons = rasterize) — st_xy2sfc","text":"object class stars x y raster dimensions replaced single sfc geometry list column containing either points, polygons. Adjacent cells identical values merged; see st_rasterize .","code":""},{"path":"/reference/stars_sentinel2.html","id":null,"dir":"Reference","previous_headings":"","what":"Sentinel-2 sample tile — stars_sentinel2","title":"Sentinel-2 sample tile — stars_sentinel2","text":"Sentinel-2 sample tile, downloaded https://scihub.copernicus.eu/ reads four 10-m bands: B2 (490 nm), B3 (560 nm), B4 (665 nm) B8 (842 nm)","code":""},{"path":"/reference/stars_sentinel2.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Sentinel-2 sample tile — stars_sentinel2","text":"","code":"stars_sentinel2"},{"path":"/reference/stars_sentinel2.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Sentinel-2 sample tile — stars_sentinel2","text":"object class stars_proxy (inherits stars) dimension 10980 x 10980 x 4.","code":""},{"path":"/reference/stars_subset.html","id":null,"dir":"Reference","previous_headings":"","what":"subset stars objects — stars_subset","title":"subset stars objects — stars_subset","text":"subset stars objects","code":""},{"path":"/reference/stars_subset.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"subset stars objects — stars_subset","text":"","code":"# S3 method for stars_proxy [(x, i, downsample = 0) <- value # S3 method for stars [(x, i = TRUE, ..., drop = FALSE, crop = !is_curvilinear(x)) # S3 method for stars [(x, i) <- value st_flip(x, which = 1)"},{"path":"/reference/stars_subset.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"subset stars objects — stars_subset","text":"x object class stars first selector: integer, logical character vector indicating attributes select, object class sf, sfc, bbox, stars used spatial selector; see details downsample downsampling rate used case stars_proxy object value array dimensions equal x, vector value recycled array ... (logical integer vector) selectors, matched order, select individual dimensions drop logical; TRUE, degenerate dimensions (one value) dropped crop logical; TRUE parameter spatial geometry (sf sfc) object, extent (bounding box) result cropped match extent using st_crop. Cropping curvilinear grids supported. character integer; dimension(s) flipped","code":""},{"path":"/reference/stars_subset.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"subset stars objects — stars_subset","text":"st_flip flips (reverts) array values along chosen dimension without(s) changing dimension properties","code":""},{"path":"/reference/stars_subset.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"subset stars objects — stars_subset","text":"object class sf, sfc bbox, spatial subset covering geometry selected, possibly followed cropping extent. Array values cell centre inside geometry assigned NA. class stars, attributes logical, cells x corresponding NA FALSE cells assigned NA. Dimension ranges containing negative values NA may partially supported. assignment (replacement form, [<-), argument needs either () stars object logical attribute(s) dimensions matching (possibly recycling) x, case TRUE cells replaced /value recycled dimensions arrays x, (ii) length-one integer character vector indicating array replace, case value may stars object vector array (recycled).","code":""},{"path":"/reference/stars_subset.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"subset stars objects — stars_subset","text":"","code":"tif = system.file(\"tif/L7_ETMs.tif\", package = \"stars\") x = read_stars(tif) x[,,,1:3] # select bands #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 21 58 70 70.36041 83 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 3 NA NA NA NA x[,1:100,100:200,] # select x and y by range #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 13 54 65 67.21531 77 252 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 100 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 100 200 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA x[\"L7_ETMs.tif\"] # select attribute #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 1 54 69 68.91242 86 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA xy = structure(list(x = c(293253.999046018, 296400.196497684), y = c(9113801.64775462, 9111328.49619133)), .Names = c(\"x\", \"y\")) pts = st_as_sf(data.frame(do.call(cbind, xy)), coords = c(\"x\", \"y\"), crs = st_crs(x)) image(x, axes = TRUE) plot(st_as_sfc(st_bbox(pts)), col = NA, add = TRUE) bb = st_bbox(pts) (xx = x[bb]) #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> L7_ETMs.tif 3 56 73 70.87303 89 255 #> dimension(s): #> from to offset delta refsys point x/y #> x 158 268 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 245 331 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA image(xx) plot(st_as_sfc(bb), add = TRUE, col = NA) image(x) pt = st_point(c(x = 290462.103109179, y = 9114202.32594085)) buf = st_buffer(st_sfc(pt, crs = st_crs(x)), 1500) plot(buf, add = TRUE) buf = st_sfc(st_polygon(list(st_buffer(pt, 1500)[[1]], st_buffer(pt, 1000)[[1]])), crs = st_crs(x)) image(x[buf]) plot(buf, add = TRUE, col = NA) image(x[buf, crop=FALSE]) plot(buf, add = TRUE, col = NA) # with i of class stars: x[x > 75] # generates lots of NA's; pattern for each band #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. NA's #> L7_ETMs.tif 76 82 90 94.40052 101 255 443210 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA x[x[,,,1] > 75] # recycles a single band template for all bands #> stars object with 3 dimensions and 1 attribute #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. NA's #> L7_ETMs.tif 1 63 79 74.98075 93 255 318960 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] #> band 1 6 NA NA NA NA x = read_stars(tif) # replace, using a logical stars selector: cuts all values above 90 to 90 x[x > 90] = 90 # replace a single attribute when there are more than one: s = split(x) names(s) = paste0(\"band\", 1:6) # rescale only band 1: s[1] = s[1] * 0.75 # rescale only attribute named \"band2\": s[\"band2\"] = s[\"band2\"] * 0.85 # create a new attribute from a numeric vector: s[\"rnorm\"] = rnorm(prod(dim(s))) s #> stars object with 2 dimensions and 7 attributes #> attribute(s): #> Min. 1st Qu. Median Mean 3rd Qu. Max. #> band1 35.250000 50.2500000 58.500000000 57.878219426 66.7500000 67.500000 #> band2 27.200000 46.7500000 56.100000000 56.776205555 67.1500000 76.500000 #> band3 21.000000 49.0000000 63.000000000 62.777008987 77.0000000 90.000000 #> band4 9.000000 52.0000000 63.000000000 58.940544413 75.0000000 90.000000 #> band5 1.000000 63.0000000 89.000000000 71.285092146 90.0000000 90.000000 #> band6 1.000000 32.0000000 60.000000000 56.662127182 88.0000000 90.000000 #> rnorm -5.096659 -0.6759559 -0.004252816 -0.003659307 0.6699726 4.216072 #> dimension(s): #> from to offset delta refsys point x/y #> x 1 349 288776 28.5 SIRGAS 2000 / UTM zone 25S FALSE [x] #> y 1 352 9120761 -28.5 SIRGAS 2000 / UTM zone 25S FALSE [y] lc = read_stars(system.file(\"tif/lc.tif\", package = \"stars\")) x = c(orig = lc, flip_x = st_flip(lc, \"x\"), flip_y = st_flip(lc, \"y\"), flip_xy = st_flip(lc, c(\"x\", \"y\")), along = 3) plot(x)"},{"path":"/reference/write_stars.html","id":null,"dir":"Reference","previous_headings":"","what":"write stars object to gdal dataset (typically: to file) — write_stars","title":"write stars object to gdal dataset (typically: to file) — write_stars","text":"write stars object gdal dataset (typically: file)","code":""},{"path":"/reference/write_stars.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"write stars object to gdal dataset (typically: to file) — write_stars","text":"","code":"write_stars(obj, dsn, layer, ...) # S3 method for stars write_stars( obj, dsn, layer = 1, ..., driver = detect.driver(dsn), options = character(0), type = if (is.factor(obj[[1]]) && length(levels(obj[[1]])) < 256) \"Byte\" else \"Float32\", NA_value = NA_real_, update = FALSE, normalize_path = TRUE, scale_offset = c(1, 0) ) # S3 method for stars_proxy write_stars( obj, dsn, layer = 1, ..., driver = detect.driver(dsn), options = character(0), scale_offset = c(1, 0), type = \"Float32\", NA_value = NA_real_, chunk_size = c(dim(obj)[1], floor(2.5e+07/dim(obj)[1])), progress = TRUE ) detect.driver(filename)"},{"path":"/reference/write_stars.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"write stars object to gdal dataset (typically: to file) — write_stars","text":"obj object class stars dsn gdal dataset (file) name layer attribute name; missing, first attribute written ... passed gdal_write driver driver driver name; see st_drivers options character vector dataset creation options, passed GDAL type character; output binary type, one : Byte eight bit unsigned integer, UInt16 sixteen bit unsigned integer, Int16 sixteen bit signed integer, UInt32 thirty two bit unsigned integer, Int32 thirty two bit signed integer, Float32 thirty two bit floating point, Float64 sixty four bit floating point. NA_value non-NA value represent R's NA value target raster file; set NA, ignored. update logical; TRUE, existing file updated normalize_path logical; see read_stars scale_offset length 2 numeric vector scale, offset values: raw values computed raw = (value - offset) / scale written dsn; scale offset values written dsn else warning raised chunk_size length two integer vector number pixels (x, y) used read/write loop; see details. progress logical; TRUE, progress bar shown filename character; used guessing driver short name based file extension; see examples","code":""},{"path":"/reference/write_stars.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"write stars object to gdal dataset (typically: to file) — write_stars","text":"write_stars first creates target file, updates sequentially writing blocks chunk_size. case obj multi-file stars_proxy object, files written layers output file dsn","code":""},{"path":"/reference/write_stars.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"write stars object to gdal dataset (typically: to file) — write_stars","text":"","code":"detect.driver(\"L7_ETMs.tif\") #> [1] \"GTiff\""},{"path":"/news/index.html","id":"version-06-3","dir":"Changelog","previous_headings":"","what":"version 0.6-3","title":"version 0.6-3","text":"st_crop() works (warns) case crop area overlap area object; #638","code":""},{"path":"/news/index.html","id":"version-06-2","dir":"Changelog","previous_headings":"","what":"version 0.6-2","title":"version 0.6-2","text":"CRAN release: 2023-07-12 split.stars() accepts stars objects multiple attributes; #635 [.stars() supports NA values dimension ranges vector geometry (sfc) dimensions, resulting empty geometries st_extract() supports extracting points values curvilinear grids (proxy); #632 read_mdim() reads curvilinear rasters (geolocation arrays), far full extent/resolution st_as_stars.stars() accepts curvilinear argument points arrays .x consistently use OGC:CRS84 instead EPSG:4326 setting values = NULL st_set_dimensions() removes dimension values gracefully handle plotting global curvilinear grids; #632 image.stars() plots images (e.g. cross sections) x /y singular absent; #628 st_as_stars.cubble_df() adds conversion cubble; cubble::as_cubble() methods converts back [<-.stars() accepts indicator (numeric length character) array replaced; #626 plot.stars() gains argument key.lab set legend key label (requires sf >= 1.0-13)","code":""},{"path":"/news/index.html","id":"version-06-1","dir":"Changelog","previous_headings":"","what":"version 0.6-1","title":"version 0.6-1","text":"CRAN release: 2023-04-06 remove rgdal dependency read_stars() fixes combining bands different block sizes; #623 st_warp() gets (proper) default value threshold; #618 read_mdim() reads “raster” single pixel (point) [.stars(), r[x] allows x logical stars object [<-.stars_proxy() clones environment, r[r > 100] = NA don’t get infinite recursion realizing r read_stars() avoids reading raster twice determine choose proxy; proxy can now set (defaults ) number cells (bands * rows * columns) data read memory returned stars_proxy object; #609 fix using RasterIO read_stars() proxy=TRUE; #608 plot.stars() hook function can handle arguments row, col, nrow, ncol, nr, value bbox; #600 fix handling categorical rasters colors without category labels; #595, fallout #565 fix subsetting proxy objects time range; #596","code":""},{"path":"/news/index.html","id":"version-06-0","dir":"Changelog","previous_headings":"","what":"version 0.6-0","title":"version 0.6-0","text":"CRAN release: 2022-11-21 write_stars() writes scaled /shifted values using argument scale_offset; #589 aggregate.stars_proxy() implements aggregation non-spatial objects (lazily) fix [.stars_proxy() selecting dimension 3 higher; #561 plot.stars(), col can also palette function st_res() returns spatial resolutions, optionally dimension resolutions; #557 thanks Krzysztof Dyba read_stars() shortens band array names contain common start ending, unless names become empty shorten=FALSE set; e.g. shorten=\"B\" puts B shortened array names printing stars dimension tables omits fields NULL NA values, unless print(..., = TRUE) given improve reading categorical rasters, now avoids calling factor(); #565 thanks Krzysztof Dyba read_mdim() read bounds arrays coordinates using bounds attribute, accepts bounds argument specify attribute missing time() returns time stamps time dimension st_cells() returns cell index set point coordinates, provided sf sfc object; #558 reading & writing vector data cubes: read_mdim() reads CF compliant vector geometries, reconstructs sfc dimension; write_mdim() writes . write_mdim() uses GDAL multidimensional array API; read_mdim() uses arguments offset, count step read sub-arrays strided arrays (requires sf >= 1.0-9)","code":""},{"path":"/news/index.html","id":"version-05-6","dir":"Changelog","previous_headings":"","what":"version 0.5-6","title":"version 0.5-6","text":"CRAN release: 2022-07-21 export read_mdim(), reader using GDAL’s multidimensional array API (sf <= 1.0-8) remove tos_O1_2001-2002.nc packaged datasets keep source package size 5 Mb .POSIXct.stars() converts PCICt dimensions POSIXct values. improve handling PCICt 360 365 day calendars; read read_mdim (requires sf >= 1.0-9) read_stars() reads factor levels better attribute table; #484 thanks @ailich read_stars() puts band names band_meta DESCRIPTION= tags values; improve handling categorical rasters, exchange terra; #484 plot() handles auto colors better factor arrays read_ncdf() handles units formally setting crs; #533 print message dimensions proxy objects reflect unevaluated operations; #530 passing na.action = na.omit geom_stars() removes NA values; #532 read_stars() detects curvilinear grids automatically; #513 st_warp() warps curvilinear grids (using Euclidean distances coordinates); #513 Ops.stars() errors (common) dimension identical; #506 guess_raster() accepts empty rows/columns sparse grids; #509 speed rgb plotting; #503 Added new helper function st_tile() specify block parameters (nXOff, nYOff, nXsize, nYSize) required RasterIO argument read_stars(); #492 thanks Krzysztof Dyba","code":""},{"path":"/news/index.html","id":"version-05-5","dir":"Changelog","previous_headings":"","what":"version 0.5-5","title":"version 0.5-5","text":"CRAN release: 2021-12-19 st_as_stars.bbox() creates empy raster file proxy = TRUE; #489 st_rasterize() option align = TRUE use template aligning new raster ; #489 adrop.stars() missing dimensions longer drops x/y raster dimensions; #485 aggregate.stars() propagates units arrays; #477","code":""},{"path":"/news/index.html","id":"version-05-4","dir":"Changelog","previous_headings":"","what":"version 0.5-4","title":"version 0.5-4","text":"CRAN release: 2021-11-19 c.stars() fails tries merge arrays different units; #475 NetCDF files, read_stars() uses long_name array name; #475 add rename() method; #470 refresh CRS packaged L7_ETMs.tif; #466 .data.frame.stars() works mixed regular rectilinear dimension; #458 plot.stars() plots curvilinear rasters color table, without table col argument passed; #456 st_extract() accepts matrix points argument, performance important; see e.g. https://github.com/rspatial/terra/issues/341 fix bug st_crop() cropping area larger grid; #455 export st_downsample(), e.g. used tmap; https://github.com/r-tmap/tmap/issues/597 argument downsample plot.stars() st_as_stars.stars_proxy() st_downsample() effect (removed one-offset ). st_redimension() works curvilinear grids; #441 downsample propagated subexpressions like r[r < 50] = NA predict.stars() obtains argument drop_dimensions , TRUE, drops dimensions prediction data.frame; #362 extend options st_rgb(), #432, Gabo Gaona allow subsetting [ using labels, e.g. band names.","code":""},{"path":"/news/index.html","id":"version-05-3","dir":"Changelog","previous_headings":"","what":"version 0.5-3","title":"version 0.5-3","text":"CRAN release: 2021-06-08 read_stars() accepts function (list functions) first argument, allowing saving stars objects read package directories resolving platform-dependent paths run-time handle categorical rasters starting value 0 (adding 1, warning); #428 add %% method; #424 read_stars() gains argument tolerance control tolerance dimension value comparisons; #414 binary Ops (like +, -, * etc.) work stars_proxy objects; #390 st_rasterize() rasterizes multiple attributes, handles factors (sf >= 0.9-9) write_stars() deals better stars_proxy objects; #404 fix regression reading stars_proxy objects; #379 add [<- (partially) .na methods stars_proxy objects; #402 add replace_na() methods; #402","code":""},{"path":"/news/index.html","id":"version-05-2","dir":"Changelog","previous_headings":"","what":"version 0.5-2","title":"version 0.5-2","text":"CRAN release: 2021-03-17 read write factor levels GDAL category names; write color table; #392 handle normalize_path choosing proxy; #391 ignore units different units accross bands subdataset speed st_rgb() using faster st_apply() approach; #315, #390 improve handling crs Spatial objects (avoid loss wkt comments) correctly write band subsets smaller proxy objects; #291 write arbitrarily cropped proxy objects; #291 speed st_apply() function provided works chunks time; #390 warn breaks = “quantile” results single class; #388 fix [ bug selecting bands proxy objects; #388 stars_proxy objects, write_stars() writes objects multi-layer file; #385 multi-file proxy objects can st_warp()ed use_gdal = TRUE; #385","code":""},{"path":"/news/index.html","id":"version-05-1","dir":"Changelog","previous_headings":"","what":"version 0.5-1","title":"version 0.5-1","text":"CRAN release: 2021-01-25 fix weird GDAL-related bug stars2 vignette read_ncdf() take time mid-points regular intervals, starting points; #378","code":""},{"path":"/news/index.html","id":"version-05-0","dir":"Changelog","previous_headings":"","what":"version 0.5-0","title":"version 0.5-0","text":"CRAN release: 2021-01-19 fix handling rasters color tables; #375 st_apply() methods stars_proxy objects handle … ; #374 add st_bbox(), st_crs() methods terra’s SpatVector objects; https://github.com/mtennekes/tmap/issues/536 add st_bbox(), st_crs() st_as_stars() methods terra’s SpatRaster objects; https://github.com/mtennekes/tmap/issues/536 allow multi-resolution attributes stars_proxy objects (e.g., gray scale sentinel-2 bands); see vignettes 2 7 examples. plot() defaults categorical color scale plotting factor variable; https://github.com/mtennekes/tmap/issues/526 st_extract() extracts space-time points time_column specified, handles time intervals; #352 add [[<-.stars method, now called $<-.stars, array names can set programmatically add transmute() methods plot.stars() calls droplevels factor array NA levels; #339 read_stars() reads NaNs NA; #333 improve st_extract() method stars stars_proxy objects; interpolation options reduced bilinear; #322, #279, #290 better handle categorical rasters start value 1; #329 plot layout can controlled mfrow = c(nr, nc) argument stars_proxy objects normalized path; #331 cropping selecting bbox treats cells always small polygons; #330 add faster st_extract() method stars objects; #322 added vignette: “raster functions map stars functions”, Sebastien Rochette; #122, #325 fix bug dimension values field downsampling; #324 write_stars() also writes band names; #323 add rgdal Suggests: call_list entry stars_proxy object carries proper calling environment; #309 st_as_sf.stars() copes zero attribute (empty) stars objects add st_set_bbox() generic, set raster extent, motivated #315 set tic, great help @pat-s, #313 get rid proj4strings representing coordinate reference systems; #312 (x, “Spatial”) correctly handles dimension values different one read_stars() now sets BANDNAME GDAL metadata item, else band’s GetDescription() band’s dimension values st_as_stars.data.frame() reads simple tables (non-raster data) dims length less 2 band descriptions band dimension values dimension tables simpler, shown properly Rstudio st_rgb() gains probs argument, cut stretch based quantiles (x, \"Raster\") merges multiple attributes converting raster brick","code":""},{"path":"/news/index.html","id":"version-04-3","dir":"Changelog","previous_headings":"","what":"version 0.4-3","title":"version 0.4-3","text":"CRAN release: 2020-07-08 fix bug st_as_stars.Raster; set crs one assigned raster; https://github.com/mtennekes/tmap/issues/471 add s2 Suggests: new function st_rgb() collapses (reduces) dimension rgb hex value; #302","code":""},{"path":"/news/index.html","id":"version-04-2","dir":"Changelog","previous_headings":"","what":"version 0.4-2","title":"version 0.4-2","text":"CRAN release: 2020-07-01 aggregate.stars() handles arrays NA values now correctly; brought #299 Thorsten Simon aggregate.stars() gains argument exact , TRUE, calls exactextractr polygonal aggregation; #289 read_stars() reads subdatasets dimensions equal first, warns ignoring others; #296 make copying dimensions somewhat easier; #295 st_as_stars.Raster() tries read file raster object -memory object. write_stars() normalizes path, read_stars already ; #293 merge() proxy objects acts, longer lazy; #290 st_as_stars.Raster() returns proxy object raster layer disk add st_extract() extract e.g. time series grids point locations; #279; #290 read_stars() chooses value proxy depends data dimensions; #281 x/y range subsetting stars_proxy objects now reads range, similar crop already . st_warp() preserves levels colors; https://github.com/mtennekes/tmap/issues/429 st_crop() works bounding boxes larger downsampled bounding box; #276 st_crop() non-zero default epsilon (bounding box shrinkage) exclude cells touching crop bounding box; #275 image.stars() (hence plot.stars) gains extent argument setting extent plot; https://github.com/r-spatial/sf/issues/1193","code":""},{"path":"/news/index.html","id":"version-04-1","dir":"Changelog","previous_headings":"","what":"version 0.4-1","title":"version 0.4-1","text":"CRAN release: 2020-04-07 st_warp() (stars native) flips longitudes full cycle; #256, #264, #269 handle axis order st_transform (requires sf >= 0.9-1) depend sf 0.9-0 adapt cubelyr split-dplyr; add cubelyr Suggests:; https://github.com/hadley/cubelyr/issues/2 add droplevels() method handle color tables, category tables raster attribute tables read GDAL; #128, #245; https://github.com/r-spatial/mapview/issues/208 handle dimension crs specially, proxy objects now. handle new-style crs objects upcoming sf, moving away proj4strings handle full crs objects refsys element spatial dimensions, rather proj4string st_raster_type(x) reveals raster type x; #248, https://github.com/mtennekes/tmap/issues/368 add st_as_stars.OpenStreetMap() method; #241 @mtennekes add st_flip() flip arrays along one dimensions without changing dimension properties add .owin() method convert (2D raster) stars objects spatstat owin; https://github.com/r-spatial/sf/issues/1233 temporal aggregation, aggregate.stars now also takes arguments like “week”, “month”, “5 days” add st_as_stars() method xts objects; improve .xts stars objects skip tests solaris","code":""},{"path":"/news/index.html","id":"version-04-0","dir":"Changelog","previous_headings":"","what":"version 0.4-0","title":"version 0.4-0","text":"CRAN release: 2019-10-10 plot() now uses data figure breaks, order also find extremes; #216 st_mosaic() creates mosaics spatially disjoint rasters; #210 #205 large refactoring read_ncdf, David Blodgett Mike Sumner, affecting #199, #89, #30, #86, #175 allow funny units like m s**-1; #201 add contour() method stars objects; #196 plot uses rasterImage default available; #194 x y raster dimensions can set unset xy argument st_set_dimensions; #190 retain factor levels dimension values set st_set_dimensions; #188 add conversion stars_proxy Raster: #193 make plotting multiple curvilinear grids work plot default cell borders case curvilinear, rotated sheared grids robustify handling units allow read_ncdf() ignore bounds scale applied wrongly multi-band images; #189, requires sf >= 0.7-5 .nc now recognized correctly write_stars write NetCDF file; #186 [ subset now works correctly negative logical indices; #184, #185 NA values float32 grids now correctly detected; #182, requires sf >= 0.7-5 cropping stars_proxy object now works; #179 st_apply() can now loop Raster layers; examples #176","code":""},{"path":"/news/index.html","id":"version-03-1","dir":"Changelog","previous_headings":"","what":"version 0.3-1","title":"version 0.3-1","text":"CRAN release: 2019-04-23 st_as_stars.bbox now ncells pretty argument, better choose default raster dimensions geom_stars now works stars_proxy objects, needs downsample set; #21 NA values Float32 rasters now read correctly read_stars; #182 handle bounds, given, read_ncdf provide time parsing (POSIXct, PCICt) read_ncdf; #115","code":""},{"path":"/news/index.html","id":"version-03-0","dir":"Changelog","previous_headings":"","what":"version 0.3-0","title":"version 0.3-0","text":"CRAN release: 2019-02-24 add st_area method return raster grid cell sizes; #99 fix st_warp use_gdal=TRUE, allowing multi-band warps add st_get_dimension_values get values particular dimension (meaningful); #100 allow setting intervals dimension values; see examples st_dimensions add st_contour, clean st_as_sf; #99 experimental color table support; https://github.com/r-spatial/mapview/issues/208 rewrote vignettes, added vignettes; #99 deprecate st_write.stars write_stars; #96 use “native” R array-factor support support PCICt 360- 365-day calendars; #29 remove import ncdf4 favour RNetCDF, now line practice ncmeta package. Thanks David Blodgett motivation testing (see #87, #94). st_as_sf uses date/time column names appropriate allow missing trailing comma’s subsetting: [1,,] [1,] now . move rlang Imports: ; rewrite [ subset using rlang. add conversion Spatial* classes, including gridded ones, taking care factor variables depend sf 0.7-2 add logz support log-scale keys plot image","code":""},{"path":"/news/index.html","id":"version-02-0","dir":"Changelog","previous_headings":"","what":"version 0.2-0","title":"version 0.2-0","text":"CRAN release: 2018-10-25 vignettes now use external package, starsdata, larger dataset examples support [<-.stars e.g. mask values; support .na.stars replace NA masks support cut methods factor arrays (plot, subset); #56 add st_rasterize, uses GDALRasterize rasterize sf object; #13 st_as_sf.stars now uses GDAL(F)Polygonize give regular sheared grid grid cells points, returns contour bands using GDALContourGenerateEx (requiring GDAL 2.4.0) case cells points; #13 support curvilinear grids; see #54 data_model vignette add vignette stars_proxy objects work stars_proxy objects defer processing st_apply jobs subsampling; #50 allow reading sections raster, raster lower resolution, selected bands; #48 allow reading vectors (arrays) 2^31 elements; #48 fold higher dimensions third dimension coercing Raster; #40","code":""},{"path":"/news/index.html","id":"version-01-1","dir":"Changelog","previous_headings":"","what":"version 0.1-1","title":"version 0.1-1","text":"CRAN release: 2018-07-25 add meta data reader read_stars","code":""},{"path":"/news/index.html","id":"version-01-0","dir":"Changelog","previous_headings":"","what":"version 0.1-0","title":"version 0.1-0","text":"add merge (merge attributes array dimension) split (split dimension attributes) interface sf, raster spacetime improve plotting handle logical arrays plot add st_apply, analogous apply add cropping/masking used x[buf] buf sf, sfc bbox object; masking x[buf, crop = FALSE] add Ops (+,-,/ etc) Math (sqrt, pow, sin etc) methods add dimnames dimnames<- methods stars objects downsample large grids plot pixels actually shown can plot rectilinear grids (plot rgb images regular grids) rgb argument image works [ array-like subsetting works; first index attribute selector","code":""},{"path":"/news/index.html","id":"version-00","dir":"Changelog","previous_headings":"","what":"version 0.0","title":"version 0.0","text":"interface 9 C++ gdal utils gdal_utils() (now part sf)","code":""}]