## Not run:
# dateStart = "2014-11-17 09:30:00"
# dateEnd = "2014-11-17 16:00:00"
# portfolio<-portfolio_create(dateStart,dateEnd)
# portfolio_addPosition(portfolio,'AAPL',100)
# portfolio_addPosition(portfolio,'C',300)
# portfolio_addPosition(portfolio,'GOOG',150)
# util_plot2d(portfolio_upsideDownsideVarianceRatio(portfolio,0.05),
# title="Portfolio Upside/Downside Variance Ratio")
# ## End(Not run)
Run the code above in your browser using DataLab