<div>Correto Elias, grato pela contribuição!<br />
<br />
<em>Att.<br />
André</em></div>
 

<hr />
<div><br />
<strong>De: </strong>"Elias T. Krainski via R-br" <r-br@listas.c3sl.ufpr.br><br />
<strong>Enviada: </strong>2017/10/09 04:21:38<br />
<strong>Para: </strong>r-br@listas.c3sl.ufpr.br<br />
<strong>Assunto: </strong> Re: [R-br] Criar função CENT, complementar ao HEAD & TAIL...<br />
 </div>

<div style="font-family:Helvetica Neue, Helvetica, Arial, sans-serif;font-size:13px;">
<div>
<div>cent <- function(x,n=6L)</div>

<div> tail(head(x, ifelse(is.null(nrow(x)),length(x),nrow(x))/2+n/2), n)</div>

<div> </div>

<div>precisa tratar os casos quando tamanho ou/e n impar</div>

<div> </div>

<div class="ydp6c5ac1e2signature">Elias T. Krainski</div>
</div>

<div> </div>

<div> </div>

<div class="yahoo_quoted" id="yahoo_quoted_7543040942">
<div style="font-family:'Helvetica Neue', Helvetica, Arial, sans-serif;font-size:13px;color:#26282a;">
<div>Em domingo, 8 de outubro de 2017 06:37:07 GMT+3, andrebvs--- via R-br <r-br@listas.c3sl.ufpr.br> escreveu:</div>

<div> </div>

<div> </div>

<div>
<div id="yiv7858552842">Olá colegas, fiz uma pequena função "cent" para filtrar dados centrais em um vetor, no entanto, não sei como generalizar a função para um data frame e uma matriz. Segue a função abaixo para o caso da classe vetor.
<div>
<div><br />
<strong># Função semelhante ao head tail, com a diferença de pegar os dados centrais em uma amostra:</strong></div>

<div> </div>

<div>cent <- function(d, c)</div>

<div>{</div>

<div>  m <- length(d)/2</div>

<div>  res <- c(tail(head(d,m),(c/2)),head(tail(d,m),(c/2)))</div>

<div>  print(res)</div>

<div>}</div>

<div> </div>

<div>vetor <- 1:10</div>

<div>cent(vetor,4)</div>
<br />
Então, se os colegas aqui pudessem me ajudar generalizando essa função para um data frame e uma matriz agradeceria. <br />
<br />
<em>Att.<br />
André</em></div>
</div>
_______________________________________________<br />
R-br mailing list<br />
<a href="https://bmail.uol.com.br/compose?to=R-br@listas.c3sl.ufpr.br" target="_blank" xhref="/compose?to=R-br@listas.c3sl.ufpr.br" ymailto="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br />
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank" xhref="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank" xhref="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</div>
</div>
</div>
</div>
_______________________________________________<br />
R-br mailing list<br />
R-br@listas.c3sl.ufpr.br<br />
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank" xhref="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank" xhref="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.