Se for sempre número<div><br></div><div>trunc(as.numeric(vet))<br><br><div class="gmail_quote">Em 28 de setembro de 2012 10:43, Benilton Carvalho <span dir="ltr"><<a href="mailto:beniltoncarvalho@gmail.com" target="_blank">beniltoncarvalho@gmail.com</a>></span> escreveu:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">gsub('^.*\\.(.*)$', '\\1', vet)<br>
<br>
2012/9/28 Marcos Silva <<a href="mailto:marcosfs2006@gmail.com">marcosfs2006@gmail.com</a>>:<br>
<div class="HOEnZb"><div class="h5">> Não sei se é mais inteligênte, mas tem menos coisa escrita... :)<br>
><br>
> unlist(lapply(strsplit(vet, "\\."), "[", 1))<br>
><br>
><br>
> Em 28 de setembro de 2012 08:50, Ivan Bezerra Allaman<br>
> <<a href="mailto:ivanalaman@yahoo.com.br">ivanalaman@yahoo.com.br</a>> escreveu:<br>
>><br>
>> Bom dia senhores!!<br>
>><br>
>> Suponha que eu tenha o seguinte vetor:<br>
>><br>
>> 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<br>
>> vetor. O meu objetivo, é pegar exatamente qualquer<br>
>> coisa que esteja à esquerda deste ponto. Então fiz:<br>
>><br>
>><br>
>> unlist(lapply(strsplit(vet,split='[[:punct:]][[:alnum:]]'),function(x)sample(x[1])))<br>
>><br>
>> Tem algum modo mais inteligente?<br>
>><br>
>> Desde já, grato!<br>
>><br>
>> \begin{signature}<br>
>> <<>>=<br>
>> Prof. Dr. Ivan Bezerra Allaman<br>
>> Universidade Estadual de Santa Cruz<br>
>> Departamento de Ciências Exatas e Tecnológicas<br>
>> Ilhéus/BA - Brasil<br>
>> Fone: <a href="tel:%2B55%2073%203680-5596" value="+557336805596">+55 73 3680-5596</a><br>
>> E-mail: <a href="http://ivanalaman@yahoo.com.br/ivanalaman@gmail.com" target="_blank">ivanalaman@yahoo.com.br/ivanalaman@gmail.com</a><br>
>> @<br>
>> \end{signature}<br>
>><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<br>
>> código mínimo reproduzível.<br>
><br>
><br>
><br>
><br>
> --<br>
> Marcos F. Silva<br>
> <a href="http://sites.google.com/site/marcosfs2006" target="_blank">http://sites.google.com/site/marcosfs2006</a><br>
><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<br>
> mínimo reproduzível.<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>
</div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br>Luís Gustavo Silva e Silva<br><br>
</div>