Roteiro para projeto Final

library(readr)
library(janitor)
## 
## Attaching package: 'janitor'
## The following objects are masked from 'package:stats':
## 
##     chisq.test, fisher.test
despesas_municipios_saude_educacao <- read_csv("despesas_municipios_saude_educacao.csv")
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   AN_EXERCICIO = col_double(),
##   NR_PERIODO = col_double(),
##   IN_PERIODICIDADE = col_character(),
##   CO_ESFERA = col_character(),
##   CO_PODER = col_character(),
##   ID_ENTE = col_double(),
##   NO_ENTE = col_character(),
##   SG_ENTE = col_character(),
##   fase_despesa = col_character(),
##   funcao = col_character(),
##   VALUE = col_double(),
##   QT_HABITANTE = col_double(),
##   ELEMENTLABEL = col_character(),
##   DT_STATUS_COLETA = col_datetime(format = ""),
##   dh_consulta = col_character()
## )
dados_socio_economicos <- read_csv("dados_socio_economicos.csv")
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   UF = col_character(),
##   cod.UF = col_double(),
##   `cod Municipio` = col_double(),
##   `Nome do municipio` = col_character(),
##   `População estimada` = col_double(),
##   `PIB per capita` = col_double(),
##   `PIB TOTAL (em R$ mi)` = col_double(),
##   `Atividade econômica` = col_character(),
##   `Ranking PIB per capita` = col_double(),
##   `Ranking PIB Total` = col_double()
## )
dados_socio_economicos<- clean_names(dados_socio_economicos)
print("média 1")
## [1] "média 1"
mean(dados_socio_economicos$`PIB per capita`)
## Warning: Unknown or uninitialised column: `PIB per capita`.
## Warning in mean.default(dados_socio_economicos$`PIB per capita`): argument is
## not numeric or logical: returning NA
## [1] NA
print("média 2")
## [1] "média 2"
mean(dados_socio_economicos$`PIB per capita`)
## Warning: Unknown or uninitialised column: `PIB per capita`.

## Warning: argument is not numeric or logical: returning NA
## [1] NA

A média do gasto com educação e sáude é 5.5181653^{6}

Avaliando a condição: subiu

Bônus