Direkt zum Hauptbereich

What is wrong with US #energy #budget 2000?

The polcy agenda project (PAP) data base shows for year 2000 an annual percentage change of MINUS 218 PER CENT (!!!). I was wondering all the time, how this can be.
In 1999, budget authority was 981 million dollars for energy (subtopic code 270). In 2000, bugdet authority was -1184 million dollars. So, there were earnings instead of spending.
Mathematically, the PAP data is correct.
But what is the reason why suddenly the Government makes money with energy instead of paying for it? Or is it a mistake in the data?
The subtopics of the PAP do not help much: We can see that the earnings come from the subtopic "energy supply" (code 271).
To find this out what is really going on, I wrote a little scipt to compare the PAP data the official data from the Office of Management and Budget:


# comparing OMB energy budget with PAP energy budget
 
# OMB
OMB <- read.csv("http://www.gpo.gov/fdsys/pkg/BUDGET-2015-DB/csv/BUDGET-2015-DB-1.csv", as.is=TRUE)
OMB$Subfunction.Code <- as.factor(OMB$Subfunction.Code)
summary(OMB$Subfunction.Code)
energyOMB = OMB[which(OMB$Subfunction.Code %in% c("271","272","274","276")),]
 
toNumeric <- function (x) {
  x <- gsub(",", "", x)
  x <- as.numeric(x)
  x <- unlist(sapply(x, function (y) ifelse(y !=0, y <- y/1000, y <- 0)))
}
energyOMB[,c(14:56)] <- sapply(energyOMB[,c(14:56)], toNumeric)
sapply(energyOMB, class)
 
library(zoo)
Year = c(1977:2019)
energyOMBt = zoo(sapply(energyOMB[,c(14:56)], sum), Year)
 
# PAP
PAP <- read.csv("http://www.utexas.edu/cola/_webservices/policyagendas/budget/instances.csv?from=1945&to=2014", as.is=T)
energyPAP = subset(PAP, TopicCode==270)
Year = c(min(energyPAP$Year):max(energyPAP$Year))
energyPAPt = zoo(energyPAP$CurrYrDllr, Year)
plot(energyOMBt)
lines(energyPAPt, col="red")

As can be seen, the data is identicall (good job Bryan!).
But now we can have a more detailed look on the accounts that are combined in subtopic 271.
 
View(energyOMB[,c(1:11,37)])

And here we see, that the negative spending comes (mostly) from the account:
Rural Electrification and Telecommunications Liquidating Account
After consulting Lord google, my impression is that the sudden warm rain of money in 2000 might be connected to changing bylaws of the Rural Telephone Bank. As far as I understand the case, the bank changed the structure of loans in 2000 and therefore suddenly had more capital than before. But this is just a guess. Perhaps someone has a more convincing explanation?

Summing up:
The PAP-data is correct!
We have a little scipt to get the original data and this might be usefull for many other things ;-)
Perhaps, we all should think more about the nature of budget punctuations: Is a change in the bylaws of a bank (if this was the case at all!) a good indicator for policy changes? On the other hand: Why not?

Kommentare

Beliebte Posts aus diesem Blog

Deep-Dive Impfeffektivität: Eine kritische Datenanalyse der RKI-Berechnungen / Teil 1: Die Methode

Die Einschätzung, wie effektiv die COVID-Impfung ist, ist eine der politisch relevantesten Kennzahlen derzeit. Insbesondere für die Einschätzungen der Angemessenheit einr Impfpflicht ist diese Zahl extrem wichtig. In der Vergangenheit hat sich immer wieder gezeigt, dass die Berechnungen des RKI nicht in jeder Hinsicht eindeutig sind, sondern auf vielen Annahmen beruhen, die man auch kritisch hinterfragen kann und muss. Für die politische Datenwissenschaft ist es daher essenziell, diese Berechnungen nachvollziehbar zu machen. In diesem Beitrag wird das methodische Vorgehen des RKI zur Berechnung der Impfeffektivität analysiert. Die Informationen dazu entstammen den RKI-Wochenberichten .  In einem zweiten Teil habe ich die konkreten Berechnungen des RKI so weit wie möglich rekonstruiert und kann daher zeigen, wie stark die Ergebnisse schwanken, wenn Annahmen leicht verändert werden. Meine Erkenntnisse aus der folgenden Analyse: Das RKI verwendet zur Berechnung der Impfeffektivität di...

Der Nutzerismus: Eine Ideologie mit totalitärem Potential

Ich glaube, dass wir derzeit den Aufstieg einer Ideologie erleben, die ich Nutzerismus nennen möchte. Hannah Arendt hat darauf hingewiesen, dass jede Ideologie zu einem totalitaristischen Regime führen kann und es gibt ernste Anzeichen, dass dies auch für den Nutzerismus gilt.  Was ist der Nutzerismus? Wie bei jeder Ideologie ist der Kerngedanke sehr einfach: Im Prinzip gibt es für alle gesellschaftlichen Probleme eine technische Lösung. Leider wenden die Menschen die richtigen Technologien nicht an. Sie nehmen ihre Rolle als Nutzer nicht wahr. Es geht dem Nutzerismus also um das Zusammenspiel von Mensch und Technik, allerdings immer wieder aus der gleichen Perspektive. Die Technik kommt vor als potentielle Lösung eines gesellschaftlichen Problems. Eventuell fehlt die perfekte Lösung noch, aber das ist dann als Auftrag an die Wissenschaft und die Ingenieure zu verstehen. Dieser Technikglaube hat etwas sehr Naives. Er abstrahiert zum Beispiel von allen Interessen, für die Technolog...

#RTutorial: Using R to Harvest the Twitter STREAM API

Initializing the Twitter API In this tutorial, the so called STREAMING-API from Twitter is used. This API provides real-time access to Twitter, so the results are dependent from what is actually going on, right now. Before we start, we have to initialize the Twitter-API. To use the Twitter API, a consumer key and consumer secret is required. Therefore, you have to register as a developer who is creating a Twitter app. Create a Twitter account and then sign in at https://apps.twitter.com/. The account has to be verified with a phone number. This can be done on the Twitter webpage in the account settings. Fill in name, description and any valid URL with leading “http://”. It is important NOT to provide any call-back URL, because otherwise the registration from R will not function. After this, you can see a summary of your newly created app with a link to “manage keys and access tokens”. The consumer key and consumer secret that can be found there have to be copied into the following R-...