document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. # get a time based subset
  2. x<-xx[\'2007-01::2007-06\']
  3.  
  4. barChart(x)
  5. # add volume indicator
  6. addVo()
  7. # add a Exponential moving average
  8.  
  9. addTA(EMA(Vo(x),n=20))
');