cent <- function(x,n=6L) tail(head(x,
ifelse(is.null(nrow(x)),length(x),nrow(x))/2+n/2), n)
precisa tratar os casos quando tamanho ou/e n impar
Elias T. Krainski
Em domingo, 8 de outubro de 2017 06:37:07 GMT+3, andrebvs--- via R-br
<r-br@listas.c3sl.ufpr.br> escreveu:
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.
# Função semelhante ao head tail, com a diferença de pegar os dados centrais em
uma amostra: cent <- function(d, c){ m <- length(d)/2 res <-
c(tail(head(d,m),(c/2)),head(tail(d,m),(c/2))) print(res)} vetor <-
1:10cent(vetor,4)
Então, se os colegas aqui pudessem me ajudar generalizando essa função para um
data frame e uma matriz agradeceria.
Att.
André_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo
m�nimo reproduz�vel. _______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo
m�nimo reproduz�vel.
