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, xlab = "Age Group", ylab = "Death Rate /1000", col = rainbow(5), legend = rownames(VADeaths))
ClassificaçãoDoença
pacientes = c("moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "leve", "severo", "moderado", "moderado", "moderado", "leve")
frq = table(pacientes)
# Porcentagens
porcentagem <- round(prop.table(frq) * 100, 2)
labels <- c("leve", "moderado", "severo")
colors <- c("springgreen", "gold", "firebrick1")
# Labels
lbls <- paste(labels, " ", porcentagem, "%", sep = "")
# Criar o gráfico de pizza
pie(frq, labels = lbls, main = "Distribuição do quadro de pacientes", col = colors)
legend("topright", legend= names(frq), fill=colors)
Teorema
#Read fludataset
flu <- as.data.frame(read.csv("C:/Users/pedro/OneDrive/Documentos/flu.csv"))
# funcao de densidade
densityflu <- density(flu$age)
# Histograma
hist(flu$age, col="grey", probability= TRUE, main= "Histograma de idades e curva de densidade")
lines(densityflu,col="red", lwd=3)
#Medias de amostra (N=35)
medias = replicate(200, mean(sample(flu$age, 35, replace = TRUE))) #200 amostras aleatorias de tamanho 35
hist(medias, probability = TRUE, main= "Histograma 200 médias (N=35)")
lines(density(medias), col = "limegreen", lwd=3)
