====== Problema no meu if/else ======



{{tag>}}


~~DISCUSSION~~
Pessoas! Dúvida básica!

Estou com um problema num if/else.
O R roda o if/else, mas retorna esta mensagem:

  Warning message:
  In if (dados[, 3] == "C") { :
  a condição tem comprimento > 1 e somente o primeiro elemento será usado

Eu fiz algo neste estilo:

  graf.padrao<-function(dados)
	{
	if(dados[,3]=="C") ### Quando a coluna 3 do data frame for "C", então...
		{
		x11()
		par(mar=c(7,5,2,1))
		par(cex.lab=3)
		par(las=2)
		par(tcl=1)
		par(cex.axis=1.5)
		plot(dados[,1]~dados[,2],pch=11,xaxp=c(min(dados[,2]),max(dados[,2]),10),yaxp=c(min(dados[,1]),max(dados[,1]),10),cex=3, col="turquoise1",ann=F)
		mtext(text=paste(colnames(dados[1])),side=2,cex=1.5,line=4,col="yellowgreen",las=0)
		mtext(text=paste(colnames(dados[2])),side=1,cex=1.5,line=5,col="hotpink",las=0)
		modelo<-lm(dados[,1]~dados[,2])
		modelo
		abline(modelo,col="blue",lty=2,lwd=3)
		}
	}


E ele retorna esse warning.
Porque ele me dá essa mensagem?
Obrigada!!