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&ccedil;&atilde;o semelhante ao head&nbsp;tail, com a diferen&ccedil;a de pegar os dados centrais em uma amostra:</strong></div>

<div>&nbsp;</div>

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

<div>{</div>

<div>&nbsp; m &lt;- length(d)/2</div>

<div>&nbsp; res &lt;- c(tail(head(d,m),(c/2)),head(tail(d,m),(c/2)))</div>

<div>&nbsp; print(res)</div>

<div>}</div>

<div>&nbsp;</div>

<div>vetor &lt;- 1:10</div>

<div>cent(vetor,4)</div>
<br />
Ent&atilde;o, se os colegas aqui pudessem me ajudar generalizando essa fun&ccedil;&atilde;o&nbsp;para um data frame e uma matriz agradeceria.&nbsp;<br />
<br />
<em>Att.<br />
Andr&eacute;</em></div>