medias<-tapply(n.provas,densidade,mean,na.rm = TRUE) faz o que você quer? 2011/8/20 Alexandre Santos <alexandresantosbr em yahoo.com.br>: > medias<-tapply(na.omit(n.provas),densidade,mean)