dms<-c(0,0,0,0,0,0)
for (i in 1:6){
     for (j in 1:20){
          dms[i]<-dms[i]+abs(notas[j,i]-mean(notas[,i]))
}
}
dms<-dms/20