schoulten

report_ndiffs <- function (
  x,
  test  = c("kpss", "adf", "pp"),
  term  = c("level", "trend"),
  alpha = 0.05,
  na_rm = TRUE
  ) {

  # All possible tests and terms
  ndiffs_tests <- purrr::cross(list(test = test, type = term))

schoulten

# Função que baixa e importa dados do Bolsa Família (Pagamentos) do
# Portal Transparência/CGU, apontando ano (4 digitos) e mês (2 dígitos)
import_pbf_pagmt <- function(year, month){

  # URL para acesso aos arquivos
  base_url <- paste0(
    "http://www.portaltransparencia.gov.br/",
    "download-de-dados/bolsa-familia-pagamentos/"
  )

schoulten

schoulten

# Load packages -----------------------------------------------------------

library(tidyverse)
library(magrittr)
library(readxl)
library(lubridate)
library(bbplot) # devtools::install_github('bbc/bbplot')

schoulten

# Load packages
library(hexSticker)
library(cowplot)
library(showtext)


# Add a great Google Font
font_add_google("Do Hyeon")

schoulten

images

schoulten