Equilibrando a dívida pública

Pessoal, liberei uma atualização do meu webapp de simulação de crescimento da dívida pública. Visitem em https://gabrielrega.shinyapps.io/divida_web/ e divirtam-se.

Anúncios

Guaranteed Jobs through a Public Service Employment Program | Levy Economics Institute

Amid a recent upsurge in support for a national job guarantee program, L. Randall Wray, Stephanie A. Kelton, Pavlina R. Tcherneva, Scott Fullwiler, and Flavia Dantas outline a new proposal for a federally funded program with decentralized administration. Their Public Service Employment (PSE) program would offer a job—paying a uniform living wage with a basic benefits package—to all who are ready and willing to work. In advance of an upcoming report detailing the economic impact of the PSE, this policy note presents an overview of the goals and structure of the program in the context of current labor market trends and the prospects of poverty reduction.

Fonte: Guaranteed Jobs through a Public Service Employment Program | Levy Economics Institute

Pacote SFC

Para a galera do R e dos modelos stock-flow.

This package allows to simulate Post-Keynesian Stock-Flow Consistent Models, following the approach of Godley, W. and M. Lavoie, 2007: Monetary Economics An Integrated Approach to Credit, Money, Income, Production and Wealth. Palgrave MacMillan, New York. The package uses the Gauss-Seidel algorithm to solve linear systems of equations, following the approach found in Kinsella, Stephen and O’Shea, Terence, Solution and Simulation of Large Stock Flow Consistent Monetary Production Models Via the Gauss Seidel Algorithm (December 21, 2010).

Available at SSRN: http://ssrn.com/abstract=1729205 or http://dx.doi.org/10.2139/ssrn.1729205

Normalização monetária nos EUA

Artigo muito legal do FED explorando através de modelos os impactos fiscais de algumas “velocidades” alternativas de redução da carteira do Banco Central. Destaque para a descrição do funcionamento do sistema com balanço consolidado do setor público.

The paper surveys the recent literature on the fiscal implications of central bank balance sheets, with a special focus on political economy issues. It then presents the results of simulations that describe the effects of different scenarios for the Federal Reserve’s longer-run balance sheet on its earnings remittances to the U.S. Treasury and, more broadly, on the government’s overall fiscal position. We find that reducing longer-run reserve balances from $2.3 trillion (roughly the current amount) to $1 trillion reduces the likelihood of posting a quarterly net loss in the future from 30 percent to under 5 percent. Further reducing longer-run reserve balances from $1 trillion to pre-crisis levels has little effect on the likelihood of net losses.

De: https://www.federalreserve.gov/econres/notes/feds-notes/fiscal-implications-of-the-federal-reserve-balance-sheet-normalization-20180109.htm

Baixando dados fiscais do site Transparência no R

Ao contrário de outros sites do governo, o Transparência Orçamentária não tem um acesso por planilhas ou base de dados muito claro. Usei então como base para aprender um pouco de como extrair dados das tabelas de uma página genérica de internet.

O código abaixo faz o serviço, você só precisa mudar a variável ano na primeira linha para qualquer um entre 2013 e 2017.

O segredo, como sempre, é descobrir o endereço web correto. Para a busca básica, que é o que fazemos aqui, é “http://www.portaldatransparencia.gov.br/PortalFuncoes.asp?Exercicio=” seguido do ano. Esta busca específica só nos dá parte dos dados que são divididos em duas páginas. Acrescentamos “&Pagina=2” após o ano ao endereço para isso. Para ver alguma conta específica se deve adicionar &codFuncao=28” ao final. 28 é o código para encargos especiais, por exemplo. O resto do código é limpeza dos dados, que estão aqui em formato HTML.


ano = 2016

url = paste0("http://www.portaldatransparencia.gov.br/PortalFuncoes.asp?Exercicio=",ano)

page = readLines(url)

grep("Total",page)
pattern = '
<td class=\"colunaValor\">([^<]*)</td>
'
datalines = grep(pattern,page[290:length(page)],value=TRUE)
getexpr = function(s,g)substring(s,g,g+attr(g,'match.length')-1)
gg = gregexpr(pattern,datalines)
matches = mapply(getexpr,datalines,gg)
result = gsub(pattern,'\\1',matches)
names(result) = NULL

v1 = gsub(".","",result, fixed = TRUE)
v1 = as.numeric(gsub(",",".", v1, fixed = TRUE))

grep("Funç", page)
pattern2 = '
<td class=\"firstChild\"><a href=\"/PortalFuncoes_Detalhe.asp?([^<]*)</a></td>
'
datalines = grep(pattern2,page[1:length(page)],value=TRUE)
getexpr = function(s,g)substring(s,g,g+attr(g,'match.length')-1)
gg = gregexpr(pattern2,datalines)
matches = mapply(getexpr,datalines,gg)
result = gsub(pattern,'\\1',matches)
names(result) = NULL

t1 = substr(result,94,nchar(result))
t1 = substr(t1, 1, nchar(t1)-10+1)

url = paste0("http://www.portaldatransparencia.gov.br/PortalFuncoes.asp?Exercicio=",ano,"&Pagina=2")

page = readLines(url)
grep("Total",page)

pattern = '
<td class=\"colunaValor\">([^<]*)</td>
'
datalines = grep(pattern,page[290:length(page)],value=TRUE)
getexpr = function(s,g)substring(s,g,g+attr(g,'match.length')-1)
gg = gregexpr(pattern,datalines)
matches = mapply(getexpr,datalines,gg)
result = gsub(pattern,'\\1',matches)
names(result) = NULL

v2 = gsub(".","",result, fixed = TRUE)
v2 = as.numeric(gsub(",",".", v2, fixed = TRUE))

grep("Funç", page)
pattern2 = '
<td class=\"firstChild\"><a href=\"/PortalFuncoes_Detalhe.asp?([^<]*)</a></td>
'
datalines = grep(pattern2,page[1:length(page)],value=TRUE)
getexpr = function(s,g)substring(s,g,g+attr(g,'match.length')-1)
gg = gregexpr(pattern2,datalines)
matches = mapply(getexpr,datalines,gg)
result = gsub(pattern,'\\1',matches)
names(result) = NULL

t2 = substr(result,94,nchar(result))
t2 = substr(t2, 1, nchar(t2)-10+1)

tab1 = data.frame(cbind(append(t1,t2), append(v1,v2)))
colnames(tab1) = c("Funcao","Valor")
tab1[,2] = as.numeric(paste(tab1[,2]))

tab1

O resultado é salvo na variável “tab1”.

 

Acompanhando a Política Fiscal do Brasil

Para quem deseja acompanhar a discussão sobre política fiscal no Brasil com maior detalhamento, e conferir se esses jornalistas e economistas de opinião estão falando bobagem mas não sabe onde procurar os número, seguem os links das fontes:

Restrição externa, hiato tecnológico e mudança estrutural no Brasil

Um artigo antigo sobre macro pra variar um pouco as coisas. Nesse artigo os autores, no contexto de um modelo de restrição externa ao crescimento, tentam mostrar como a acumulação de capital e a transformação estrutural da economia, podem contornar este dilema.

RESUMO
Os períodos de crescimento acelerado da economia brasileira do pós-guerra até a década de 1970 foram constrangidos pela restrição externa. Propomos neste artigo um modelo baseado em Kaldor, em que estabelecemos uma relação entre acumulação de capital, hiato tecnológico e restrição externa ao crescimento de longo prazo para economias periféricas. A hipótese básica do modelo é que a acumulação de capital, sob certas condições, pode contornar a restrição externa ao crescimento dessas economias desde que o esforço de acumulação seja capaz de produzir uma mudança estrutural no sentido de aumentar a participação relativa dos setores mais dinâmicos do ponto de vista tecnológico. Essa mudança estrutural irá resultar em um aumento gradual da elasticidade-renda das exportações e numa redução da elasticidade-renda das importações, aumentando assim a taxa de crescimento do produto real que é compatível com o equilíbrio de longo prazo do balanço de pagamentos. Ilustramos ao final do artigo que a economia brasileira do pós-guerra até os anos 1970 apresentou uma elevada taxa de acumulação de capital, aprofundando o processo de substituição de importações, o que na nossa interpretação contribuiu para parcialmente permitir relaxar a restrição externa ao crescimento de longo prazo.

http://www.scielo.br/scielo.php?script=sci_arttext&pid=S0101-41612012000100006&lng=en&nrm=iso&tlng=en