Muito bom, muito obrigado pela ajuda.<br>Ficou tudo perfeito :)<br><br><div class="gmail_quote">Em 17 de janeiro de 2012 16:14, Paulo J Ribeiro Jr <span dir="ltr"><<a href="mailto:paulojus@leg.ufpr.br">paulojus@leg.ufpr.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Neste caso a sua funcao dentro do sapply() deve testar o tamanho do<br>
vetor. Se for tamanho 2 pega do genero e especie e se for de tamanho 1<br>
pega as 3 letras<br>
<br>
mf <- function(x){<br>
   if(length(x) == 1)<br>
      substring(x, 1,3)<br>
   else<br>
      paste(substring(x[1], 1,1), substring(x[2], 1,2), sep="")<br>
<div class="im">}<br>
teste2<-c("Stomoxys.calcitrans","Musca.domestica","Syritta.flaviventris","Clusiidae")<br>
</div>foo <- strsplit(teste2, ".", fixed="TRUE")<br>
sapply(foo, mf)<br>
<br>
<br>
Funciona!<br>
Considere ainda adaptar a solucao do Benilton neste código<br>
<br>
<br>
<br>
<br>
<br>
Em Ter, 2012-01-17 às 16:03 -0300, Augusto Ribas escreveu:<br>
<div class="HOEnZb"><div class="h5">> Primeiro muito Obrigado professor,  eu tava tentando olhar o help da<br>
> função paste, mas nao tava dando conta :)<br>
><br>
> teste2<-c("Stomoxys.calcitrans","Musca.domestica","Syritta.flaviventris","Clusiidae")<br>
><br>
> E fazer esse aqui, fazer uma mistura dos 2 casos.<br>
> Resultando em :<br>
><br>
>  [1] "Sca"  "Mdo"  "Sfl" "Clu"<br>
><br>
><br>
><br>
> Em 17 de janeiro de 2012 16:00, Paulo J Ribeiro Jr<br>
> <<a href="mailto:paulojus@leg.ufpr.br">paulojus@leg.ufpr.br</a>> escreveu:<br>
>         Ops faltou a segunda parte<br>
><br>
><br>
><br>
><br>
>         > sapply(foo, function(x) paste(substring(x[1], 1,1),<br>
>         substring(x[2],<br>
>         1,2), sep=""))<br>
>         [1] "Sca" "Mdo" "Sfl"<br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
><br>
>         Em Ter, 2012-01-17 às 15:47 -0300, Augusto Ribas escreveu:<br>
><br>
>         ><br>
>         teste<-c("Stomoxys.calcitrans","Musca.domestica","Syritta.flaviventris")<br>
><br>
>         --<br>
>         Paulo Justiniano Ribeiro Jr<br>
>         LEG (Laboratorio de Estatistica e Geoinformacao)<br>
>         Universidade Federal do Parana<br>
>         Caixa Postal 19.081<br>
>         CEP 81.531-990<br>
>         Curitiba, PR  -  Brasil<br>
>         Tel: <a href="tel:%28%2B55%29%2041%203361%203573" value="+554133613573">(+55) 41 3361 3573</a><br>
>         VOIP: (+55) (41) (3361 3600) 1053 1066<br>
>         Fax: <a href="tel:%28%2B55%29%2041%203361%203141" value="+554133613141">(+55) 41 3361 3141</a><br>
>         e-mail: paulojus AT  ufpr  br<br>
>         <a href="http://www.leg.ufpr.br/%7Epaulojus" target="_blank">http://www.leg.ufpr.br/~paulojus</a><br>
><br>
><br>
>         _______________________________________________<br>
>         R-br mailing list<br>
>         <a 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<br>
>         forneça código mínimo reproduzível.<br>
><br>
><br>
><br>
><br>
> --<br>
> Grato<br>
> Augusto C. A. Ribas<br>
><br>
> Site Pessoal: <a href="http://augustoribas.heliohost.org" target="_blank">http://augustoribas.heliohost.org</a><br>
> Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br>
><br>
><br>
> _______________________________________________<br>
> R-br mailing list<br>
> <a 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.<br>
<br>
--<br>
Paulo Justiniano Ribeiro Jr<br>
LEG (Laboratorio de Estatistica e Geoinformacao)<br>
Universidade Federal do Parana<br>
Caixa Postal 19.081<br>
CEP 81.531-990<br>
Curitiba, PR  -  Brasil<br>
Tel: <a href="tel:%28%2B55%29%2041%203361%203573" value="+554133613573">(+55) 41 3361 3573</a><br>
VOIP: (+55) (41) (3361 3600) 1053 1066<br>
Fax: <a href="tel:%28%2B55%29%2041%203361%203141" value="+554133613141">(+55) 41 3361 3141</a><br>
e-mail: paulojus AT  ufpr  br<br>
<a href="http://www.leg.ufpr.br/%7Epaulojus" target="_blank">http://www.leg.ufpr.br/~paulojus</a><br>
<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a 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.<br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://augustoribas.heliohost.org" target="_blank">http://augustoribas.heliohost.org</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div><br>