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: ivanala...@yahoo.com.br/ivanala...@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.

Responder a