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
@
\end{signature}