<html><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:10pt"><div style="font-size: 10pt; font-family: 'Courier New', courier, monaco, monospace, sans-serif; "><span>{Tendo trocado o rollmeans por as.numeric(filter(...,rep(1/k,k)))}</span></div><div style="font-size: 10pt; font-family: 'Courier New', courier, monaco, monospace, sans-serif; "><span><br></span></div><div><span><font class="Apple-style-span" size="2"><div>> a[ind[[1236]],]</div><div> P R TF CC y z</div><div>5336 2000 a 2 H-149 -0.58980125 0.89245059</div><div>5337 2001 a 2 H-149 -0.30313496 0.80465434</div><div>5338 2002 a 2 H-149 0.44012483 0.04397054</div><div>5339 2003 a 2 H-149 0.69327940 0.92602362</div><div>5340 2004 a 2 H-149 0.99503929
0.04675309</div><div>5341 2005 a 2 H-149 0.42726631 0.11998856</div><div>5342 2006 a 2 H-149 0.79151124 0.62517505</div><div>5343 2007 a 2 H-149 0.03419038 0.17260339</div><div>5344 2008 a 2 H-149 -1.09881623 0.06194616</div><div>5345 2009 a 2 H-149 -1.40466597 0.65221994</div><div>5346 2010 a 2 H-149 0.33611981 0.75061715</div><div><br></div><div><div>> rollmean(a$y[ind[[1236]]],k=3)</div><div>[1] -0.15093713 0.27675642 0.70948117 0.70519500 0.73793895 0.41765598</div><div>[7] -0.09103821 -0.82309727 -0.72245413</div><div><br></div><div><div>> as.numeric(filter(a$y[ind[[1236]]],rep(1/3,3)))</div><div> [1] NA -0.15093713 0.27675642 0.70948117 0.70519500 0.73793895</div><div> [7] 0.41765598 -0.09103821 -0.82309727 -0.72245413
NA</div></div><div><br></div><div><div>> a.2.1[ind[[1236]],]</div><div> P R TF CC y z ma.y ma.z</div><div>5336 2000 a 2 H-149 -0.58980125 0.89245059 NA NA</div><div>5337 2001 a 2 H-149 -0.30313496 0.80465434 0.166157683 0.4568073</div><div>5338 2002 a 2 H-149 0.44012483 0.04397054 -0.059065996 0.3583828</div><div>5339 2003 a 2 H-149 0.69327940 0.92602362 -0.753337620 0.2276365</div><div>5340 2004 a 2 H-149 0.99503929 0.04675309 -0.317292642 0.2064822</div><div>5341 2005 a 2 H-149 0.42726631 0.11998856 -0.005409283 0.4334700</div><div>5342 2006 a 2 H-149 0.79151124 0.62517505 0.922745865 0.5686237</div><div>5343 2007 a 2 H-149
0.03419038 0.17260339 0.383932084 0.8054191</div><div>5344 2008 a 2 H-149 -1.09881623 0.06194616 0.357232515 0.7202149</div><div>5345 2009 a 2 H-149 -1.40466597 0.65221994 0.460484404 0.5946082</div><div>5346 2010 a 2 H-149 0.33611981 0.75061715 NA NA</div><div><br></div><div><div>> a.3.1[ind[[1236]],]</div><div> R CC TF P y z</div><div> [1,] a H-149 2 2000 NA NA</div><div> [2,] a H-149 2 2001 -0.15093713 0.5803585</div><div> [3,] a H-149 2 2002 0.27675642 0.5915495</div><div> [4,] a H-149 2 2003 0.70948117 0.3389157</div><div> [5,] a H-149 2 2004 0.70519500 0.3642551</div><div> [6,] a H-149 2
2005 0.73793895 0.2639722</div><div> [7,] a H-149 2 2006 0.41765598 0.3059223</div><div> [8,] a H-149 2 2007 -0.09103821 0.2865749</div><div> [9,] a H-149 2 2008 -0.82309727 0.2955898</div><div>[10,] a H-149 2 2009 -0.72245413 0.4882611</div><div>[11,] a H-149 2 2010 NA NA</div></div></div></div></font></span></div><div style="font-size: 10pt; font-family: 'Courier New', courier, monaco, monospace, sans-serif; "><br></div><div style="font-size: 10pt; font-family: 'Courier New', courier, monaco, monospace, sans-serif; "><div style="font-size: 12pt; font-family: 'times new roman', 'new york', times, serif; "><font size="2" face="Arial" style="font-family: 'times new roman', 'new york', times, serif; "><b><br></b></font><div id="yiv971952265"><div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); font-size: 10pt;
font-family: arial, helvetica, sans-serif; "><div><font class="yiv971952265Apple-style-span" size="2"><div><font class="Apple-style-span" face="'Courier New', courier, monaco, monospace, sans-serif"><br></font></div></font></div></div></div></div><br></div></div></div></body></html>