<html><head></head><body><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><br></div><div>precisa tratar os casos quando tamanho ou/e n impar<br></div><div><br></div><div class="ydp6c5ac1e2signature">Elias T. Krainski</div></div>
<div><br></div><div><br></div>
<div id="yahoo_quoted_7543040942" class="yahoo_quoted">
<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><br></div>
<div><br></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 ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="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>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>http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</div>
</div>
</div></div></body></html>