sink("a:\\relatoriorp.txt")
indice<-order(dados$rp)
dadosrp<-dados[indice,]
"Comportamento de salrios para Capital"
summary(dadosrp$sal[1:11])
"Desvio-padro:"
sd(dadosrp$sal[1:11])
"Comportamento de salrios para Interior"
summary(dadosrp$sal[12:23])
"Desvio-padro:"
sd(dadosrp$sal[12:23])
"Comportamento de salrios para Outras"
summary(dadosrp$sal[24:36])
"Desvio-padro:"
sd(dadosrp$sal[24:36])
sink()

