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

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}