How Did I Miss “The Golden Dilemma”?
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
I am ashamed to admit that I am way behind (about 10,127 downloads) in discovering this wonderful paper:
The Golden Dilemma (January 8, 2013)
Erb, Claude B. and Harvey, Campbell R.
Available at SSRN: http://ssrn.com/abstract=2078535
Here are the authors presenting the concept in July 2012 if you prefer slideshow format (thanks http://abnormalreturns.com/saturday-links-the-gold-dilemma/).
A presentation on “The Gold Dilemma” by Claude Erb and Campbell Harvey. (Duke)
I have struggled with the various reasons I have heard for owning gold, which often conflict with each other, and how gold cannot universally work in all environments. The authors enumerate and explore 6 arguments for owning gold:
- “gold provides an inflation hedge”
- “gold serves as a currency hedge”
- “gold is an attractive alternative to assets with low real returns”
- “gold a safe haven in times of stress”
- “gold should be held because we are returning to a de facto world gold standard”
- “gold is underowned”
In previous posts from 2010 and 2011, I focused on the gold as a very expensive inflation hedge, but I was nowhere near as exhaustive as the authors on this point and did not even touch on the five others.
I very much liked Exhibit 6 from the paper outlining scenarios based on varying 10 year forward inflation and a gold/CPI constant (3.2 average since 1975 and 7.1 as March 2012).
Although the gold/CPI ratio averaged 3.2 1975-2012, the authors extend the analysis to 1791 using the very fine data gathered at MeasuringWorth (more later in the post on importing this data to R for the R geeks). The gold/CPI ratio has averaged 2 since 1791, which is clearly much lower than the almost current 8. Using the table above would suggest a negative nominal return unless annualized inflation exceeds 15% for the next ten years. Just think what happens to other markets in this environment, and gold might not even be the worse.
I was also delighted to see the authors also reflect my concern that argument 2 could easily be the same as argument 1 in a debasement environment.
“A second way to interpret the “gold as a currency hedge” argument sees “gold as a hedge of my own currency, spent in my own country, when the local government is printing money with abandon”. This is also sometimes referred to as “currency debasement”. If this debasement is a result of inflation, then this interpretation is just another version of the “gold as an inflation hedge” argument.”
I highly recommend readers work through the other arguments with the authors by reading the original paper, but (spoiler alert) if you do not want to do that, I think the conclusion very simply is that after a mammoth increase in gold prices, none of the 6 arguments can justify the current price. The “gold is underowned” argument is the strongest but even then requires a unique marginal buyer “[who] are not focused on ‘valuation’.” Of course, we do have a lot of central bank buyers now of every financial asset “not focused on ‘valuation’.”
Now almost for the R as promised, but first the data at MeasuringWorth is truly special, and I would liken it to the other unbelievably generous set of financial data at http://mba.tuck.dartmouth.edu/pages/faculty/ken.french/data_library.html. Although no one has asked that I do this, please consider making a donation at http://www.measuringworth.com/contribute.php to insure the continuation of this data and hopefully maybe the collection of more. Non-US financial data prior to 1900 is nearly impossible to find.
MeasuringWorth data is extremely easy to access in R. As a simple example, I wanted to pull in the price of gold since the 1700s. I did it in 2 lines of R. In 5 I got this graph.
| #R example of using prices from http://www.measuringworth.com | |
| #if you use and like their data, I strongly encourage donating to the cause http://www.measuringworth.com/contribute.php | |
| require(latticeExtra) | |
| require(xts) | |
| #ugly way to specify url for prices you would like | |
| #shiny would provide a very nice interface once I get motivated | |
| #this particular example will download prices from 1718 to 2013 for New York and London market | |
| #redundant since London market dataset switched to New York in 1950 | |
| url = paste("http://www.measuringworth.com/datasets/gold/export.php?", | |
| "year_source=1791&", #1257, 1786, 1791, 1687, or 1718 | |
| "year_result=",format(Sys.Date(),"%Y"),"&", #any year to current except for 1945 for British official | |
| #set on for the following data sources | |
| #time range set above must fall within the years specified | |
| #can specify multiple sources | |
| "British=&", #British official price (1257-1945) | |
| "us=&", #U.S. official price (1786-Present) | |
| "newyork=on&", #New York market price (1791-Present) | |
| "goldsilver=&", #Gold/silver price ratio (1687-Present) | |
| "london=on", #London market price (1718-Present) switches to New York 1950 | |
| sep="") | |
| goldprices <- apply(read.csv(url,stringsAsFactors=FALSE),MARGIN=2,FUN=as.numeric) | |
| #get in xts format for easier time-series handling | |
| goldprices.xts <- na.omit(xts(goldprices[,2:ncol(goldprices)], | |
| order.by = as.Date(paste(goldprices[,1],"-12-31",sep="")))) #set each year to end of year 12/31/Year | |
| xyplot(goldprices.xts, | |
| scales=list(x=list(tck=c(1,0)),y=list(log=10,rot=0)), | |
| yscale.components = yscale.components.log10ticks, | |
| xlab=NULL, | |
| main="Gold Prices from MeasuringWorth (http://measuringworth.com)") | |
R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.