## Not run:
# dateStart = "2014-11-17 09:30:00"
# dateEnd = "2014-11-17 16:00:00"
# portfolio<-portfolio_create(dateStart,dateEnd)
# portfolio_settings(portfolio,portfolioMetricsMode="price",windowLength = '3600s',
# resultsSamplingInterval='60s')
# portfolio_addPosition(portfolio,'AAPL',100)
# portfolio_addPosition(portfolio,'GOOG',150)
#
# portfolio_startBatch(portfolio)
#
# portfolio_VaR(portfolio,0.95)
# position_VaR(portfolio,"AAPL",0.95)
# position_VaR(portfolio,"GOOG",0.95)
#
# portfolio_endBatch(portfolio)
#
# util_plot2d(position_VaR(portfolio,"AAPL",0.95),title="Value at Risk , daily",legend="AAPL")+
# util_line2d(position_VaR(portfolio,"GOOG",0.95),legend="GOOG")+
# util_line2d(portfolio_VaR(portfolio,0.95),legend="Portfolio")
# ## End(Not run)
Run the code above in your browser using DataLab