[R-br] Como eu retiro so os 3 primeiro caracteres dos objetos de um Vetor?

[Paulo J Ribeiro Jr]

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 em 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 em 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 em 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