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

[Augusto Ribas]

Muito bom, muito obrigado pela ajuda.
Ficou tudo perfeito :)

Em 17 de janeiro de 2012 16:14, Paulo J Ribeiro Jr
<paulojus em leg.ufpr.br>escreveu:

> 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
>
>
> _______________________________________________
> 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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120117/bdfc48ab/attachment.html>