aluno1= c(10,9,8,7)
aluno2= c(2,9,6,7)
aluno3= c(7,7,6,4)
aluno4= c(3,9,2,5)
aluno5= c(10,8,8,8)
aluno6= c(9,9,9,9)
aluno7= c(0,3,8,7)
aluno8= c(1,10,3,2)
aluno9= c(5,3,8,6)
aluno10= c(6,6,6,5)
turma = rbind(aluno1,aluno2,aluno3,aluno4,aluno5,
aluno6,aluno7,aluno8,aluno9,aluno10)
colnames(turma) = c("Matematica", "Ingles","Portugues","Historia")
total= colSums(turma)
medias.Turma= total/10
media.do.Aluno = rowSums(turma)/4
turma.com.media.turma = rbind(turma, medias.Turma)
turma.com.media.alunos = cbind(turma.com.media.turma,media.do.Aluno)