Neste caso a sua funcao dentro do sapply() deve testar o tamanho do vetor. Se for tamanho 2 pega do genero e especie e se for de tamanho 1 pega as 3 letras mf <- function(x){ if(length(x) == 1) substring(x, 1,3) else paste(substring(x[1], 1,1), substring(x[2], 1,2), sep="") } teste2<-c("Stomoxys.calcitrans","Musca.domestica","Syritta.flaviventris","Clusiidae") foo <- strsplit(teste2, ".", fixed="TRUE") sapply(foo, mf) Funciona! Considere ainda adaptar a solucao do Benilton neste código Em Ter, 2012-01-17 às 16:03 -0300, Augusto Ribas escreveu:
Primeiro muito Obrigado professor, eu tava tentando olhar o help da função paste, mas nao tava dando conta :)
teste2<-c("Stomoxys.calcitrans","Musca.domestica","Syritta.flaviventris","Clusiidae")
E fazer esse aqui, fazer uma mistura dos 2 casos. Resultando em :
[1] "Sca" "Mdo" "Sfl" "Clu"
Em 17 de janeiro de 2012 16:00, Paulo J Ribeiro Jr <paulojus@leg.ufpr.br> escreveu: Ops faltou a segunda parte
> sapply(foo, function(x) paste(substring(x[1], 1,1), substring(x[2], 1,2), sep="")) [1] "Sca" "Mdo" "Sfl"
Em Ter, 2012-01-17 às 15:47 -0300, Augusto Ribas escreveu:
> teste<-c("Stomoxys.calcitrans","Musca.domestica","Syritta.flaviventris")
-- Paulo Justiniano Ribeiro Jr LEG (Laboratorio de Estatistica e Geoinformacao) Universidade Federal do Parana Caixa Postal 19.081 CEP 81.531-990 Curitiba, PR - Brasil Tel: (+55) 41 3361 3573 VOIP: (+55) (41) (3361 3600) 1053 1066 Fax: (+55) 41 3361 3141 e-mail: paulojus AT ufpr br http://www.leg.ufpr.br/~paulojus
_______________________________________________ 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.
-- Grato Augusto C. A. Ribas
Site Pessoal: http://augustoribas.heliohost.org Lattes: http://lattes.cnpq.br/7355685961127056
_______________________________________________ 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.
-- Paulo Justiniano Ribeiro Jr LEG (Laboratorio de Estatistica e Geoinformacao) Universidade Federal do Parana Caixa Postal 19.081 CEP 81.531-990 Curitiba, PR - Brasil Tel: (+55) 41 3361 3573 VOIP: (+55) (41) (3361 3600) 1053 1066 Fax: (+55) 41 3361 3141 e-mail: paulojus AT ufpr br http://www.leg.ufpr.br/~paulojus