Cash Might be Your Tail Risk

[This article was first published on Timely Portfolio, 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.

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
#http://www.rinfinance.com/agenda/2011/StefanoIacus.pdf
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
	1995-Current")
#dev.off()

To leave a comment for the author, please follow the link and comment on their blog: Timely Portfolio.

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.

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)