Thursday, February 3, 2011

Japan Intentional or Accidental Pursuit of Deflation

Japan’s intentional or accidental pursuit of deflation has caused an imbalance far greater than Bernanke’s pursuit of inflation.  Japanese policymakers have allowed Yen appreciation versus all other currencies.  It appears that they recognize a couple of things:

1) Higher interest rates and inflation represent a much bigger risk to their credit risk, deficit funding, and aging population than deflation.

2) Developed markets are saturated by Japanese goods, and further Yen appreciation does not cripple those exports.

However, by recognizing these two items, they are allowing their competition and potential growth engine in the emerging markets to completely take advantage of them.  Hyundai and Samsung in Korea have a 30-50% price advantage over their Japanese competition.

Japan’s desperate attempt to avoid their inevitable collapse from higher rates and inflation is speeding their collapse caused by emerging market competition.  The markets eventually will impose the adjustment to the Japanese situation.  At least Bernanke recognizes the imbalance caused by undervalued Asian currencies and knows that inflation is the only mechanism to force Asian emerging nations to allow their currencies to appreciate to normal valuation even if it means hard decisions for the US eventually.

Lower interest rates encourage imbalances, while higher interest rates force the changes necessary to correct these imbalances.

Since the absolute worst of the Asian collapse in 1997, is Japan better off than the emerging Asian nations?

image

Since 2007, is Japan better off than the emerging Asian nations?

image

As a point of reference, here is OECD’s calculation of Purchasing Power Parity for the Korea versus Japan 184, which means the Korean Won is undervalued versus the Japanese Yen by 84%.  The Economist’s Big Mac Index shows undervaluation of Asian currencies versus the Yen to be 40-50%.

The Japanese decision has been treated unkindly in the equity markets

via StockCharts.com

 

For the r geeks here is the code:

require(quantmod)
require(PerformanceAnalytics)

#get asian currency data from the FED FRED data series
getSymbols("DEXKOUS",src="FRED") #load Korea
getSymbols("DEXMAUS",src="FRED") #load Malaysia
getSymbols("DEXSIUS",src="FRED") #load Singapore
getSymbols("DEXTAUS",src="FRED") #load Taiwan
getSymbols("DEXCHUS",src="FRED") #load China
getSymbols("DEXJPUS",src="FRED") #load Japan

asian<-merge(DEXKOUS,DEXMAUS,DEXSIUS,DEXTAUS,DEXCHUS,DEXJPUS)

#do dailyReturn so that I can use pretty PerformanceAnalytics charts
#division puts currencies in Japanese yen from US dollar
asianreturn<-merge(dailyReturn(asian[,6]/asian[,1],subset="1996::"),dailyReturn(asian[,6]/asian[,2],subset="1996::"),dailyReturn(asian[,6]/asian[,3],subset="1996::"),dailyReturn(asian[,6]/asian[,4],subset="1996::"),dailyReturn(asian[,6]/asian[,5],subset="1996::"))

#label columns for graph legends
colnames(asianreturn)<-c("Korea","Malaysia","Singapore","Taiwan","China")

chart.CumReturns(asianreturn,ylim=c(-0.4,0.4),legend.loc="topright",main="Asian Currencies in Japanese Yen",ylab="",period.areas=list(c("Sep 97","Dec 97"),c("Jun 04","Nov 06"),c("Dec 07","Mar 09")),period.color="gray",event.lines=c("Dec 97","Nov 06","Mar 09"),event.labels=c("Asian Tiger Collapse","Carry Trade","Financial Crisis"),event.color="black")
mtext("Source: Federal Reserve FRED",side=1,adj=0)

chart.Drawdown(asianreturn['2006-11-30::',],legend.loc="right",main="Asian Currencies in Japanese Yen",ylab="Drawdown Since Financial Crisis")
mtext("Source: Federal Reserve FRED",side=1,adj=0)

 

 

3.5 hours

3 comments:

  1. Good analysis and good logic. Thanks.
    The first two charts seem a little weird.
    I ran your codes exactly and get charts which seem more normal.
    Maybe you could run your codes again.
    Thanks again.

    ReplyDelete
  2. Probably the copy and paste limitations of my blog platform. I will wok on it.. Let me know if I need to change my defaults in R. Thanks for the comment. Hope to improve.

    ReplyDelete
  3. It goes without saying that this post was ahead of its time, yet again timeless - thanks for sharing your insight and code.


    I had attempted to run the R code, but stumbled upon an errors that prevented it from working:


    1) > chart.CumReturns(asianreturn,ylim=c(-0.4,0.4),legend.loc="topright",main="Asian Currencies in Japanese Yen",ylab="",period.areas=list(c("Sep 97","Dec 97"),c("Jun 04","Nov 06"),c("Dec 07","Mar 09")),period.color="gray",event.lines=c("Dec 97","Nov 06","Mar 09"),event.labels=c("Asian Tiger Collapse","Carry Trade","Financial Crisis"),event.color="black")
    --------------------------------------------------------------------------------------------------------------------------
    Error in if (length(c(year, month, day, hour, min, sec)) == 6 && c(year, :
    missing value where TRUE/FALSE needed
    In addition: Warning messages:
    1: In as_numeric(YYYY) : NAs introduced by coercion
    2: In as_numeric(YYYY) : NAs introduced by coercion
    ---------------------------------------------------------------------------------------------------------------------------
    Attempted solution: Tried to change the timezone to UTC (Sys.setenv(TZ='UTC')) - didn't help


    Would greatly appreciate any assistance.

    ReplyDelete