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!!