### Correlação entre hepatite e cancer de fígado

require(foreign)
dados <- read.csv("arquivos/hepcancer.csv", h=T)
head(dados)

attach(dados)

## Plotando os dados
plot(hepatite, cancer)

## Verificando correlação
cor(hepatite, cancer, method="spearman")
cor.test(hepatite, cancer, method="spearman")

cor(hepatite, cancer, method="kendall")
cor.test(hepatite, cancer, method="kendall")

cor(hepatite, cancer)
head(dados)
plot(hepatite[!(municipio=="Curitiba")], cancer[!(municipio=="Curitiba")])

pop <- read.table("arquivos/populacao2004.csv", sep=",", h=T)
head(pop)

dados[1:8,]
pop[1:8,]