As pedaladas fiscais foram para o R

No Clube do Código dessa semana, vamos destrinchar a Nota à Imprensa de Política Fiscal do Banco Central do Brasil (BCB) de março de 2016, que fez referência às pedaladas fiscais. De forma a cumprir acordo com o Tribunal de Contas da União (TCU), o BCB incorporou os passivos do Tesouro Nacional junto a bancos públicos no estoque de endividamento e no resultado nominal e primário do setor público. Para fazer essa análise, importamos os dados diretamente do BCB.

Antes de mais nada, vamos carregar os pacotes que vamos usar. O código abaixo faz isso.

#### Carregar pacotes
library(XLConnect)
library(stargazer)

Para esse exercício, vamos utilizar a Nota à Imprensa de Política Fiscal do Banco Central do Brasil referente à março de 2016. Vamos importar as planilhas Quadro 43, Quadro 44 e Quadro 45 referentes ao Equacionamento de passivos - evidenciação dos impactos, na forma do Acórdão TCU nº 3.297/2015, de 9.12.2015. Fazemos isso com o código abaixo.

temp <- tempfile()

url <- 'http://www.bcb.gov.br/ftp/NotaEcon/NI201603pfp.zip'

download.file(url, temp)

data <- unzip(temp, files='Notimp3.xls')

data <- loadWorkbook(data)

estoque <- readWorksheet(data, sheet='Quadro 43', startRow = 12)[,-c(1:3)]

primario <- readWorksheet(data, sheet='Quadro 44', startRow = 12)[,-c(1:3)]

nominal <- readWorksheet(data, sheet='Quadro 45', startRow = 12)[,-c(1:3)]

Observe que não importamos as três primeiras colunas de cada planilha. Agora, vamos tratar os missing values e renomear as colunas.

estoque <- estoque[complete.cases(estoque),]

primario <- primario[complete.cases(primario),]

nominal <- nominal[complete.cases(nominal),]

colnames(estoque) <- c('BB Equa Agro', 'BB Títulos a receber', 'BB Total', 
 'Finame PSI', 'Finame Demais', 'Finame Total', 
 'CEF Tarifas', 'CEF BF', 'CEF AS', 'CEF SD', 'CEF Demais',
 'CEF Total', 'FGTS CS', 'FGTS MCMV', 'FGTS Canc Juros',
 'FGTS Total', 'Pedaladas Total', 'DL divulgada SPC', 
 'DL divulgada GF','DL com passivos SPC', 
 'DL com passivos GF')

colnames(primario) <- c('BB Equa Agro', 'BB Títulos a receber', 'BB Total', 
 'Finame PSI', 'Finame Demais', 'Finame Total', 
 'CEF Tarifas', 'CEF BF', 'CEF AS', 'CEF SD', 'CEF Demais',
 'CEF Total', 'FGTS CS', 'FGTS MCMV', 'FGTS Canc Juros',
 'FGTS Total', 'Pedaladas Total', 'Primario divulgado SPC', 
 'Primário divulgado GF','Primário com passivos SPC', 
 'Primário com passivos GF')

colnames(nominal) <- c('BB Equa Agro', 'BB Títulos a receber', 'BB Total', 
 'Finame PSI', 'Finame Demais', 'Finame Total', 
 'CEF Tarifas', 'CEF BF', 'CEF AS', 'CEF SD', 'CEF Demais',
 'CEF Total', 'FGTS CS', 'FGTS MCMV', 'FGTS Canc Juros',
 'FGTS Total', 'Pedaladas Total', 'Nominal divulgado SPC', 
 'Nominal divulgado GF','Nominal com passivos SPC', 
 'Nominal com passivos GF')

Transformamos agora em série temporal.

estoque <- ts(estoque, start=c(2001,12), freq=12)

primario <- ts(primario, start=c(2002,01), freq=12)

nominal <- ts(nominal, start=c(2002,01), freq=12)

Por fim, acumulamos o primario e o nominal em 12 meses, para melhor visualizar os dados.

primario12 <- primario+lag(primario,-1)+lag(primario,-2)+lag(primario,-3)+
 lag(primario,-4)+lag(primario,-5)+lag(primario,-6)+lag(primario,-7)+
 lag(primario,-8)+lag(primario,-9)+lag(primario,-10)+lag(primario,-11)

colnames(primario12) <- colnames(primario)

nominal12 <- nominal+lag(nominal,-1)+lag(nominal,-2)+lag(nominal,-3)+
 lag(nominal,-4)+lag(nominal,-5)+lag(nominal,-6)+lag(nominal,-7)+
 lag(nominal,-8)+lag(nominal,-9)+lag(nominal,-10)+lag(nominal,-11)

colnames(nominal12) <- colnames(nominal)

Efeito das Pedaladas nas Contas Públicas

A Nota à Imprensa recém divulgada pelo Banco Central do Brasil, destrinchada na seção anterior, coloca luz sobre o que convencionou-se chamar de pedaladas fiscais. Entre outras, foram ações deliberadas de atraso de repasse do Tesouro Nacional para Bancos Públicos, configurando, na prática, em empréstimos destes com aquele. Tal iniciativa causou efeito sobre os fluxos e estoques das finanças públicas. Comecemos, nesse aspecto, a avaliar o montante desses atrasos desde o início da série divulgada pelo BCB.

O gráfico abaixo traz a distribuição média mensal do total das pedaladas em relação a quatro grandes grupos, a partir de 2008: (i) Banco do Brasil; (ii) FINAME (BNDES); (iii) CEF; (iv) FGTS. Em média, o Banco do Brasil representou 38,67% das pedaladas, seguido pelo Finame BNDES com 24,92%, pelo FGTS com 23,94% e pela Caixa Econômica com 12,45%.

A tabela abaixo resume algumas estatísticas descritivas de todos os atrasos para a amostra total.

Os atrasos para pagamento do Bolsa Família foram em média de R$ 42,91 milhões enquanto que para o Finame PSI foram de R$ 3,4 bilhões. A figura 3 abaixo traz o efeito das pedaladas sobre a Dívida Líquida. A diferença entre o que foi divulgado e o real endividamento passa a ser relevante a partir de 2012.

Além do efeito sobre o endividamento, o resultado primário também foi prejudicado, como pode ser visto na figura 4 abaixo. O resultado divulgado pelo Tesouro era frequentemente melhor do que o de fato ocorreu, com a incorporação dos passivos junto aos bancos públicos.

_________________________________________________________________

Gostou? Tenha acesso completo a esse e outros estudos. Entre para o Clube do Código.