
gsub('^.*\\.(.*)$', '\\1', vet) 2012/9/28 Marcos Silva <marcosfs2006@gmail.com>:
Não sei se é mais inteligênte, mas tem menos coisa escrita... :)
unlist(lapply(strsplit(vet, "\\."), "[", 1))
Em 28 de setembro de 2012 08:50, Ivan Bezerra Allaman <ivanalaman@yahoo.com.br> escreveu:
Bom dia senhores!!
Suponha que eu tenha o seguinte vetor:
vet <- paste(seq(1:12),1:5,sep='.')
Eu terei sempre um 'ponto' e um número a direita de cada elemento do vetor. O meu objetivo, é pegar exatamente qualquer coisa que esteja à esquerda deste ponto. Então fiz:
unlist(lapply(strsplit(vet,split='[[:punct:]][[:alnum:]]'),function(x)sample(x[1])))
Tem algum modo mais inteligente?
Desde já, grato!
\begin{signature} <<>>= Prof. Dr. Ivan Bezerra Allaman Universidade Estadual de Santa Cruz Departamento de Ciências Exatas e Tecnológicas Ilhéus/BA - Brasil Fone: +55 73 3680-5596 E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com @ \end{signature}
_______________________________________________ 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.
-- Marcos F. Silva http://sites.google.com/site/marcosfs2006
_______________________________________________ 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.