sink("a:\\relatorio1.txt")
indice<-order(dados$instrucao)
dadosord<-dados[indice,]
"Comportamento de salrios para Ensino Fundamental"
summary(dadosord$sal[1:12])
"Desvio-padro:"
sd(dadosord$sal[1:12])
"Comportamento de salrios para Ensino Mdio"
summary(dadosord$sal[13:30])
"Desvio-padro:"
sd(dadosord$sal[13:30])
"Comportamento de salrios para Ensino Superior"
summary(dadosord$sal[31:36])
"Desvio-padro:"
sd(dadosord$sal[31:36])
sink()
