Cash Might be Your Tail Risk

June 30, 2011

(This article was first published on Timely Portfolio, and kindly contributed to R-bloggers)

Just like James Montier Ode to the Joy of Cash and David Merkel Got Cash?, I think cash is an extremely powerful tool.  Of the 3 ingredients (land, labor, and capital) of the economy, capital (cash) is most scarce at the end of a crisis or recession while land and labor are most plentiful.  Its scarcity in disaster rewards patient holders of cash when opportunity is most plentiful and rewards most certain.  Deflation, or alternately stable to inflating currency, also rewards the most risk averse with high cash allocations.

However, if your cash is the US $, owning US $ throughout and at the end of the next collapse will not be rewarded.  Please expand your definition of cash to include other currencies besides the US $, and do not let home bias determine your cash denomination.  The tail risk most ignored in the average US investors’ portfolios is the US $.  If nothing else, at least monitor the currency markets.  You very easily could hold the most overowned and least scarce asset in the world (the US $).  Argentine Peso was not good in 2001. Russian Ruble was not good in 1998. Thai Baht, Malaysian Ringgit, and Korean Won were not good in 1997.  Mexican Peso was not good in 1994.  Cash is fine as long as cash is not the source of the tail risk.

From TimelyPortfolio

Fortunately, the Euro has been a distraction, but at some point the focus will shift to the US.  Don’t fight the Fed generally works in stocks, and it also definitely applies to the US $ here.

R code (click to download):

#monitor currencies   require(quantmod)   #get currency data from the FED FRED data series
Korea <- getSymbols("DEXKOUS",src="FRED",auto.assign=FALSE) #load Korea
Malaysia <- getSymbols("DEXMAUS",src="FRED",auto.assign=FALSE) #load Malaysia
Singapore <- getSymbols("DEXSIUS",src="FRED",auto.assign=FALSE) #load Singapore
Taiwan <- getSymbols("DEXTAUS",src="FRED",auto.assign=FALSE) #load Taiwan
China <- getSymbols("DEXCHUS",src="FRED",auto.assign=FALSE) #load China
Japan <- getSymbols("DEXJPUS",src="FRED",auto.assign=FALSE) #load Japan
Thailand <- getSymbols("DEXTHUS",src="FRED",auto.assign=FALSE) #load Thailand
Brazil <- getSymbols("DEXBZUS",src="FRED",auto.assign=FALSE) #load Brazil
Mexico <- getSymbols("DEXMXUS",src="FRED",auto.assign=FALSE) #load Mexico
India <- getSymbols("DEXINUS",src="FRED",auto.assign=FALSE) #load India
USDOther <- getSymbols("DTWEXO",src="FRED",auto.assign=FALSE) #load US Dollar Other Trading Partners
USDBroad <- getSymbols("DTWEXB",src="FRED",auto.assign=FALSE) #load US Dollar Broad       #combine all the currencies into one big currency xts
currencies <- merge(1/Korea, 1/Malaysia, 1/Singapore, 1/Taiwan,
1/China, 1/Japan, 1/Thailand, 1/Brazil, 1/Mexico, 1/India,
USDOther, USDBroad)
currencies <- na.omit(currencies)
colnames(currencies) <- c("Korea", "Malaysia", "Singapore", "Taiwan",
"China", "Japan", "Thailand", "Brazil", "Mexico", "India",
"USDOther", "USDBroad")       #use sde MODist package as described in the fine presentation
require(sde)   currenciesROC <- as.zoo(ROC(currencies,1,type="discrete"))
d <- MOdist(ROC(currencies,1,type="discrete"))
cl <- hclust( d )
groups <- cutree(cl, k=4)
#jpeg(filename="currencies.jpg",quality=100,width=6.5, height = 6.5, units="in",res=96)
plot(as.zoo(currencies), col=groups, main="Various Asian and American Currencies

Created by Pretty R at

To leave a comment for the author, please follow the link and comment on their blog: Timely Portfolio. offers daily e-mail updates about R news and tutorials on topics such as: Data science, Big Data, R jobs, visualization (ggplot2, Boxplots, maps, animation), programming (RStudio, Sweave, LaTeX, SQL, Eclipse, git, hadoop, Web Scraping) statistics (regression, PCA, time series, trading) and more...

If you got this far, why not subscribe for updates from the site? Choose your flavor: e-mail, twitter, RSS, or facebook...

Tags: ,

Comments are closed.


Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)