Em 14 de abril de 2015 22:11, Éder Comunello <comunello.eder@gmail.com> escreveu:

Desculpe, corrigindo...

### <code r>

a<-c("B095","B096","B784","B561","N590","N980","N067","C678","C234","C009","B095",

  "B561","N980","N980","C234","C009")

b<-c("Maria","Paola","José","Pedro","Kleber","Henrique","Marcelo","João","Lia",

   "Ingrid","Renato","Paulo","Mariana","Mario","Luiza","Luiz")

banco<-data.frame(a,b)

banco

a1 <- strtrim(banco$a,1)

a2 <- as.numeric(substr(banco$a,2,4))

banco$cor <- NA

banco$cor[a1=="B"] <- "vermelho"

banco$cor[a1=="B" & a2>550] <- "branco"

banco$cor[a1=="C"] <- "verde"

banco$cor[a1=="C" & a2>300] <- "amarelo"

banco

### </code>

Éder Comunello <comunello.eder@gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.