<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Perfeito.</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Obrigada.</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Me facilitaram muito a vida.</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Fátima</div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 14 de abril de 2015 22:11, Éder Comunello <span dir="ltr"><<a href="mailto:comunello.eder@gmail.com" target="_blank">comunello.eder@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>Desculpe, corrigindo...</div><span class=""><div><br></div><div><font face="monospace, monospace">### <code r></font></div><div><font face="monospace, monospace">a<-c("B095","B096","B784","B561","N590","N980","N067","C678","C234","C009","B095",</font></div><div><font face="monospace, monospace"> "B561","N980","N980","C234","C009")</font></div><div><font face="monospace, monospace">b<-c("Maria","Paola","José","Pedro","Kleber","Henrique","Marcelo","João","Lia",</font></div><div><font face="monospace, monospace"> "Ingrid","Renato","Paulo","Mariana","Mario","Luiza","Luiz")</font></div><div><font face="monospace, monospace">banco<-data.frame(a,b)</font></div><div><font face="monospace, monospace">banco</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">a1 <- strtrim(banco$a,1)</font></div><div><font face="monospace, monospace">a2 <- as.numeric(substr(banco$a,2,4))</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">banco$cor <- NA</font></div><div><font face="monospace, monospace">banco$cor[a1=="B"] <- "vermelho"</font></div></span><div><font face="monospace, monospace">banco$cor[a1=="B" & a2>550] <- "branco"</font></div><span class=""><div><font face="monospace, monospace">banco$cor[a1=="C"] <- "verde"</font></div></span><div><font face="monospace, monospace">banco$cor[a1=="C" & a2>300] <- "amarelo"</font></div><span class=""><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">banco</font></div><div><font face="monospace, monospace">### </code></font></div><div><br></div><div class="gmail_extra"><br clear="all"><div><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div></div>
<br></div></span></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"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><div><span style="color:rgb(103,78,167);font-family:'comic sans ms',sans-serif">"Minha felicidade depende da qualidade dos meus pensamentos"</span><br></div></div></div>
</div>