VADeaths
VADeaths
## Rural Male Rural Female Urban Male Urban Female
## 50-54 11.7 8.7 15.4 8.4
## 55-59 18.1 11.7 24.3 13.6
## 60-64 26.9 20.3 37.0 19.3
## 65-69 41.0 30.9 54.6 35.1
## 70-74 66.0 54.3 71.1 50.0
barplot(VADeaths, main = "taxa de mortalidade medida por 1000 habitantes por ano na Virginia" ,xlab = "Grupo Populacional" , ylab ="Taxa de mortalidade" , col = rainbow(5), legend=rownames(VADeaths))
ClassificaçãoDoença
estagio <- c("moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "leve", "severo", "moderado", "moderado", "moderado", "leve")
freq <- table(estagio)
pct <- round(freq /sum(freq) * 100)
labels <- c("leve", "moderado", "severo")
lbls <- paste(labels, pct)
lbls <- paste(lbls, "%", sep="")
pie(freq, labels=lbls, main="Porcentagem de estágio de doenças entre 20 pacientes", col=rainbow(3))
legend("topright", pch=c(15,15,15), col=rainbow(3), legend = labels)
Teoreama
dados <- as.data.frame(read.csv(file = "../flu.csv"))
Age <- dados$age
hist(Age, probability=T, col= "#2C7E41")
densityAge <- density(Age)
lines(densityAge, col="#E35408")
medias <- replicate(200, mean(sample(Age,35, replace = T)))
hist(medias, probability=T, main="Histograma de 200 médias com amostras de tamanho 35 cada")
densityMedias <- density(medias)
lines(densityMedias)
