sink("a:\\relatorio1.txt")
indice<-order(dados$instrucao)
dadosord<-dados[indice,]
"Comportamento de salários para Ensino Fundamental"
summary(dadosord$sal[1:12])
"Desvio-padrão:"
sd(dadosord$sal[1:12])
"Comportamento de salários para Ensino Médio"
summary(dadosord$sal[13:30])
"Desvio-padrão:"
sd(dadosord$sal[13:30])
"Comportamento de salários para Ensino Superior"
summary(dadosord$sal[31:36])
"Desvio-padrão:"
sd(dadosord$sal[31:36])
sink()