## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## -----------------------------------------------------------------------------
library(estbanr)

f  <- system.file("extdata", "202401_ESTBAN_AG_sample.CSV", package = "estbanr")
m1 <- estban_read(f, uf = "PE")
verb <- grep("^verbete_", names(m1))

m2 <- m1; m2$ref <- 202402L; m2[, verb] <- m2[, verb] * 1.05
m3 <- m1; m3$ref <- 202403L; m3[, verb] <- m3[, verb] * 1.10
m2[m2$cnpj == "60746948", verb] <- 0          # Bradesco: nothing in February

x <- rbind(m1, m2, m3)
flagged <- estban_flag_nonreport(x)
unique(flagged[flagged$nonreport, c("nome_instituicao", "ref")])

## -----------------------------------------------------------------------------
imp <- estban_impute_nonreport(x)
v <- "verbete_160_operacoes_de_credito"
imp[imp$cnpj == "60746948" & imp$municipio == "CARUARU", c("ref", v, "imputed")]

## -----------------------------------------------------------------------------
raw <- estban_by_municipality(x, impute = FALSE)
fix <- estban_by_municipality(x)
data.frame(
  ref     = raw$ref[raw$municipio == "CARUARU"],
  raw     = raw[[v]][raw$municipio == "CARUARU"],
  imputed = fix[[v]][fix$municipio == "CARUARU"]
)