[Blotter-commits] r310 - pkg/blotter/demo

[noreply at r-forge.r-project.org]

Author: braverock
Date: 2010-03-28 17:40:03 +0200 (Sun, 28 Mar 2010)
New Revision: 310

Modified:
   pkg/blotter/demo/amzn_test.R
   pkg/blotter/demo/longtrend.R
Log:
- update to use new quantmod charts instead of the old ones

Modified: pkg/blotter/demo/amzn_test.R
===================================================================
--- pkg/blotter/demo/amzn_test.R	2010-03-28 15:38:49 UTC (rev 309)
+++ pkg/blotter/demo/amzn_test.R	2010-03-28 15:40:03 UTC (rev 310)
@@ -23,7 +23,7 @@
 updateAcct("amzn_acct",Dates="2010-01-14")
 
 # and look at it
-chart.Posn("amzn_port","amzn",Dates="2010-01-14",theme='white')
+chart.Posn("amzn_port","amzn",Dates="2010-01-14")
 
 portfolio = getPortfolio("amzn_port")
 account = getAccount("amzn_acct")
\ No newline at end of file

Modified: pkg/blotter/demo/longtrend.R
===================================================================
--- pkg/blotter/demo/longtrend.R	2010-03-28 15:38:49 UTC (rev 309)
+++ pkg/blotter/demo/longtrend.R	2010-03-28 15:40:03 UTC (rev 310)
@@ -112,8 +112,8 @@
 cat('\n')
 
 # Chart results with quantmod
-chart.Posn(ltportfolio, Symbol = 'GSPC', Dates = '1998::',theme=chartTheme('white', up.col='lightgreen', dn.col='pink'), type='bar')
-plot(addSMA(n=10,col='darkgreen', on=1))
+chart.Posn(ltportfolio, Symbol = 'GSPC', Dates = '1998::')
+plot(add_SMA(n=10,col='darkgreen', on=1))
 
 getTxns(Portfolio="longtrend", Symbol="GSPC", Date="2000::2004")