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