2VA CPAD

2 VA

VADeaths

  barplot(VADeaths, main = "Deaths rates per 1000 in Virginia", xlab="Grupos", ylab="Mortes", col=viridis::viridis(5), beside=F, legend.text=T)

ClassificaçãoDoença

  # Dados fornecidos
  dados <- c("moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "moderado", "leve", "leve", "severo","leve", "moderado", "moderado", "leve", "severo", "moderado", "moderado", "moderado","leve")
  
  # Criando uma tabela de frequência
  freq <- table(dados)
  
  # Calculando as porcentagens
  porcentagem <- round(prop.table(freq) * 100, 2)
  
  # Criando o gráfico de pizza
  pie(porcentagem, labels = paste0(names(porcentagem), "\n", porcentagem, "%"), col = c("lightblue", "pink", "lightgreen"), main = "Estágios da doença")
  
  # Adicionando a legenda
  legend("topright", legend = names(porcentagem), fill = c("lightblue", "pink", "lightgreen"))

Teorema

  flu  <- read.csv("flu.csv")
  
  desity<-density(flu$age)
  hist(flu$age, probability=T,col = "pink")
  lines(desity,col="purple")

  #amostragem
  n<-200
  TamMedia<-35
  xbar<-rep(NA, n)
  for(i in 1:n){
    MinhaAmostra<-sample(flu$age, size = TamMedia)
    xbar[i]<-mean(MinhaAmostra)
  }
  
  desity<-density(xbar)
  hist(xbar,probability=T,col = "pink")
  lines(desity, col="purple")