<div dir="ltr">Olá Wagner,<div><br></div><div>Acredito que isto resolva:</div><div><br></div><div><div>extrai <- function(x) return(x[1])</div><div>sapply(strsplit(nomes, " NAO"), extrai)</div></div><div><br></div><div>Abraço</div><div><br></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><b><br></b></div><div dir="ltr"><b>Paulo Dick</b><div>Estatístico</div><div>Mestre em Epidemiologia em Saúde Pública</div><div>Tel.: (55 21) 99591-2716</div></div></div></div></div></div></div></div></div></div>
<br><div class="gmail_quote">Em 24 de maio de 2016 12:36, Wagner Tassinari <span dir="ltr"><<a href="mailto:wtassinari@gmail.com" target="_blank">wtassinari@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Olá pessoal,<br><br></div>Tenho a seguinte amostra com os nomes:<br><div><br><pre style="border:medium none;padding:0cm"><font face="Courier 10 Pitch"><font style="font-size:8pt" size="1">[<font face="Courier 10 Pitch">1</font>] "PIETRO LUCAS DA SILVA NAO MORA" "ROSECLEIA DE JESUS PORTUGAL NAO MORA MA" </font></font>
<font face="Courier 10 Pitch"><font style="font-size:8pt" size="1">[<font face="Courier 10 Pitch">3</font>] "TAINA OLIVEIRA NAO MORA" "DANIELLE DE ALMEIDA MELO DA SILVA NAO E" </font></font>
<font face="Courier 10 Pitch"><font style="font-size:8pt" size="1">[<font face="Courier 10 Pitch">5</font>] "DAVI FERREIRA DE CARVALHO NAO RESIDE NE" "EDNALDO DA SILVA NAO RESIDE MAIS NA ARE" </font></font>
<font face="Courier 10 Pitch"><font style="font-size:8pt" size="1">[<font face="Courier 10 Pitch">7</font>] "MARCIA FERREIRA DE MORAIS NAO RESIDE NE" "MARIA JOANA LUDGERIO DE PAULO NAO MORA" </font></font>
<font face="Courier 10 Pitch"><font style="font-size:8pt" size="1">[<font face="Courier 10 Pitch">9</font>] "ROSANGELA DE BRITO NAO R" "NATANAEL DOS SANTOS MACENA NAO MORA MAIS" </font></font>
</pre><br><br></div><div>Esses nomes apresentam imperfeições no
preenchimento, daí eu gostaria de excluir tudo que está após a palavra
NAO e criar outra variável para os nomes ficarem limpos dessa forma:<br><br><pre style="border:medium none;padding:0cm"><font face="Courier 10 Pitch"><font style="font-size:8pt" size="1">[<font face="Courier 10 Pitch">1</font>] "PIETRO LUCAS DA SILVA" "ROSECLEIA DE JESUS PORTUGAL" </font></font>
<font face="Courier 10 Pitch"><font style="font-size:8pt" size="1">[<font face="Courier 10 Pitch">3</font>] "TAINA OLIVEIRA" "DANIELLE DE ALMEIDA MELO DA SILVA" </font></font>
<font face="Courier 10 Pitch"><font style="font-size:8pt" size="1">[<font face="Courier 10 Pitch">5</font>] "DAVI FERREIRA DE CARVALHO" "EDNALDO DA SILVA" </font></font>
<font face="Courier 10 Pitch"><font style="font-size:8pt" size="1">[<font face="Courier 10 Pitch">7</font>] "MARCIA FERREIRA DE MORAIS" "MARIA JOANA LUDGERIO DE PAULO" </font></font>
<font face="Courier 10 Pitch"><font style="font-size:8pt" size="1">[<font face="Courier 10 Pitch">9</font>] "ROSANGELA DE BRITO " "NATANAEL DOS SANTOS MACENA" </font></font>
</pre><br></div>Obrigado pessoal<div><div><div dir="ltr"><div><div dir="ltr"><div>-----<br>Wagner S. Tassinari<br>Departamento de Matemática<br>Universidade Federal Rural do Rio de Janeiro.<br>BR-465, Km 7 - Seropedica, RJ - Brasil<br>CEP: 23890-000 <br>Cel: (21) 96488-5982 (WhatsApp)<br>Skype: wagner.tassinari<br><a href="mailto:wtassinari@gmail.com" target="_blank">wtassinari@gmail.com</a><br><span>----------------------------------------------------------------------</span><br><br></div></div></div></div></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" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>