# R, the DJIA, and M1 Money Multiplier (MULT)

[This article was first published on

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

**Naught Not Knot**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

## Description:

My explorations with the FRED (St Louis Financial Reserve Database) in R have yielded some interesting plots, charts and graphs**.**

*And some questions…*

## Charts with Explanations:

Yes, I know, the axes are a mess, and the site’s style sheet doesn’t play well with the chart image. I’ll look into that “pretty-ing up” stuff later. Also note that I have not set x-limits or y-limits on these graphs.

*Showing each time series to matching scale doesn’t show their correlation as well.*

The

**blue**line is the DJIA. The

**red**line is the result of multiplying the M1 MULT ratio by the DJIA. Feel free to comment why this would be wrong, or bad finance theory, but I thought it would be an interesting investigative study to see what kind of information the dollar multiplier can add to a financial market time series.

Something odd’s going on… The DJI*MULT appears to be loosely correlative to the market until the “crash” of 2008. Afterwards, peaks are followed, but there’s a definite de-coupling. I look back in history:

Now this is from 20010101-20110101. See how the DJIA*MULT is above the DJIA before the 2009 crash?

*What’s going on there*? Also note the effects of Quantitative Easing in late 2008, and QE2, and so on.

It appears we’re not improving as well as we thought. Historically, the DJIA * MULT provided a timeline

*above*the DJIA (even when using the same y-scale). Now, all of a sudden, the M1 Multiplier has inverted to DJIA to show that while, yes, the DJIA is rising, the M1 Multiplier value is adjusting the DJIA’s “real” value in dollars, essentially showing that we’re improving, but

*nowhere near where it should be*.

## Summary:

I’m at a loss as to what the M1 Money Multiplier is doing to the market, but there’s clearly some funny business going on here. Would DJIA*MULT actually constitute as a health indicator for the DJIA? Could this be some sort of “real” indicator for how the market is truly doing?## Source Code in R:

1: # DJI weighted against M1 dollar multiplier (MULT) 2: # 3: # Author: Jerold Haas 4: ############################################################################### 5: 6: library("quantmod") 7: 8: Range <- list( 9: Start = '2001-01-01', 10: End = '2011-01-01' 11: ) 12: 13: # Get DJIA, SPY, and USD Multiplier (MULT) 14: getSymbols( 15: c('SPY', '^DJI'), 16: from = Range$Start, 17: to = Range$End, 18: src = 'yahoo' 19: ) 20: 21: getSymbols( 22: c('MULT'), 23: from = Range$Start, 24: to = Range$End, 25: src = 'FRED' 26: ) 27: 28: 29: ############################################################################### 30: # Calculations 31: ############################################################################### 32: 33: DJIxMULT <- reclass(DJI$DJI.Adjusted * MULT$MULT) 34: names(DJIxMULT) <- c("Adjusted") 35: Plot <- list( 36: Max = max(DJIxMULT), 37: Min = min(DJIxMULT) 38: ) 39: 40: 41: ############################################################################### 42: # Charting 43: ############################################################################### 44: 45: par( 46: bg = "darkgrey", 47: col.axis = "lightgrey", 48: col.lab = "lightgrey", 49: col.main = "lightgrey", 50: cex.axis = "lightgrey", 51: fg = "lightgrey" 52: ) 53: 54: plot( 55: DJIxMULT, 56: col = "red", 57: main = "", 58: xlab = "", 59: ylab = "", 60: xlim = c( 61: as.POSIXct(Range$Start), 62: as.POSIXct(Range$End) 63: ), 64: ylim = c( 65: Plot$Min, 66: Plot$Max 67: ), 68: major.ticks = F, 69: minor.ticks = F, 70: 71: ) 72: 73: par( new=T ) #plot over last plot 74: 75: plot.xts( 76: DJI$DJI.Adjusted, 77: auto.grid = F, 78: col = "blue", 79: main = "DJI (Adjusted) & DJI (Adjusted) * MULT)", 80: xlab = "", 81: ylab = "", 82: xlim = c( 83: as.POSIXct(Range$Start), 84: as.POSIXct(Range$End) 85: ), 86: ylim = c( 87: Plot$Min, 88: Plot$Max 89: ), 90: major.ticks = F, 91: minor.ticks = F, 92: axes = F 93: ) 94: 95: #layout(1:6)Code above is an R script relevant to article. Run in your favourite flavour of R.

To

**leave a comment**for the author, please follow the link and comment on their blog:**Naught Not Knot**.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.