[R-br] Modo mais inteligente?(STRING)

[Ivan Bezerra Allaman]

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 em yahoo.com.br/ivanalaman em gmail.com
@
\end{signature}
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120928/5a87007b/attachment.html>