15 Abr
2015
15 Abr
'15
01:11
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 <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]