Thursday, June 30, 2011

Cash Might be Your Tail Risk

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

1 comment:

  1. Klr,

    First of all thank you very much for this wonderful blog. Now I am working on my R skill-set.

    Also, when I run the code on the post "Cash Might be Your Tail Risk" I get the following error:

    d <- MOdist(ROC(currencies,1,type="discrete"))
    Interpolating missing data
    Error: subscript out of bounds

    Lastly, I think you may enjoy backtesting the strategy outlined in the paper Credit Informed Tactical Asset Allocation by David Klein -