<div>Não sei se é mais inteligênte, mas tem menos coisa escrita... :)</div>
<div> </div>
<div>unlist(lapply(strsplit(vet, "\\."), "[", 1))<br><br><br></div>
<div class="gmail_quote">Em 28 de setembro de 2012 08:50, Ivan Bezerra Allaman <span dir="ltr"><<a href="mailto:ivanalaman@yahoo.com.br" target="_blank">ivanalaman@yahoo.com.br</a>></span> escreveu:<br>
<blockquote style="BORDER-LEFT:#ccc 1px solid;MARGIN:0px 0px 0px 0.8ex;PADDING-LEFT:1ex" class="gmail_quote">
<div>
<div style="FONT-FAMILY:arial,helvetica,sans-serif;FONT-SIZE:12pt">
<div><span>Bom dia senhores!!</span></div>
<div style="BACKGROUND-COLOR:transparent;FONT-STYLE:normal;FONT-FAMILY:arial,helvetica,sans-serif;FONT-SIZE:16px"><br><span></span></div>
<div style="BACKGROUND-COLOR:transparent;FONT-STYLE:normal;FONT-FAMILY:arial,helvetica,sans-serif;FONT-SIZE:16px"><span>Suponha que eu tenha o seguinte vetor:</span></div>
<div style="BACKGROUND-COLOR:transparent;FONT-STYLE:normal;FONT-FAMILY:arial,helvetica,sans-serif;FONT-SIZE:16px"><br><span></span></div>
<div style="BACKGROUND-COLOR:transparent;FONT-STYLE:normal;FONT-FAMILY:arial,helvetica,sans-serif;FONT-SIZE:16px"><span>vet <- paste(seq(1:12),1:5,sep='.')<br>             <br>Eu terei sempre um 'ponto' e um número a direita de cada elemento do vetor. O meu objetivo, é pegar exatamente qualquer<br>
coisa que esteja à esquerda deste ponto. Então fiz:<br><br>unlist(lapply(strsplit(vet,split='[[:punct:]][[:alnum:]]'),function(x)sample(x[1])))  <br>         <br></span></div>
<div>Tem algum modo mais inteligente?<br><br>Desde já, grato! <br></div>
<div style="BACKGROUND-COLOR:transparent" align="center"><font style="BACKGROUND-COLOR:transparent" size="2" face="comic sans ms"><font size="1"><b><br></b></font></font></div>
<div style="TEXT-ALIGN:left;BACKGROUND-COLOR:transparent" align="center"><font style="BACKGROUND-COLOR:transparent"><font face="courier, monaco, monospace, sans-serif">\begin{signature}</font></font></div>
<div style="TEXT-ALIGN:left;BACKGROUND-COLOR:transparent" align="center"><font style="BACKGROUND-COLOR:transparent"><font face="courier, monaco, monospace,
 sans-serif"><<>>=</font></font></div>
<div style="TEXT-ALIGN:left;BACKGROUND-COLOR:transparent" align="center"><font face="courier, monaco, monospace, sans-serif">Prof. Dr. Ivan Bezerra Allaman</font></div>
<div style="TEXT-ALIGN:left;BACKGROUND-COLOR:transparent" align="center"><font face="courier, monaco, monospace, sans-serif">Universidade Estadual de Santa Cruz</font></div>
<div style="TEXT-ALIGN:left;BACKGROUND-COLOR:transparent" align="center"><font face="courier, monaco, monospace, sans-serif">Departamento de Ciências Exatas e Tecnológicas</font></div>
<div style="TEXT-ALIGN:left;BACKGROUND-COLOR:transparent" align="center"><font face="courier, monaco, monospace, sans-serif">Ilhéus/BA - Brasil</font></div>
<div style="TEXT-ALIGN:left;BACKGROUND-COLOR:transparent" align="center"><font face="courier, monaco, monospace, sans-serif">Fone: <a href="tel:%2B55%2073%203680-5596" target="_blank" value="+557336805596">+55 73 3680-5596</a></font></div>

<div style="TEXT-ALIGN:left;BACKGROUND-COLOR:transparent" align="center"><font face="courier, monaco, monospace, sans-serif">E-mail: <a href="http://ivanalaman@yahoo.com.br/ivanalaman@gmail.com" target="_blank">ivanalaman@yahoo.com.br/ivanalaman@gmail.com</a></font></div>

<div style="TEXT-ALIGN:left;BACKGROUND-COLOR:transparent" align="center"><font style="BACKGROUND-COLOR:transparent"><font face="courier, monaco, monospace, sans-serif">@</font></font></div>
<div style="TEXT-ALIGN:left;BACKGROUND-COLOR:transparent" align="center"><font style="BACKGROUND-COLOR:transparent"><font face="courier, monaco, monospace, sans-serif">\end{signature}</font></font></div></div></div><br>_______________________________________________<br>
R-br mailing list<br><a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><br>-- <br>Marcos F. Silva<br>
<a href="http://sites.google.com/site/marcosfs2006" target="_blank">http://sites.google.com/site/marcosfs2006</a><br>