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