## Not run:
# data(aapl.data)
# data(goog.data)
# data(spy.data)
# portfolio<-portfolio_create(priceDataIx=spy.data)
# portfolio_settings(portfolio,portfolioMetricsMode="price",windowLength = '3600s')
# portfolio_addPosition(portfolio,'GOOG',100,priceData=goog.data)
# portfolio_addPosition(portfolio,'AAPL',300,priceData=aapl.data)
# portfolio_addPosition(portfolio,'SPY',150,priceData=spy.data)
# util_plot2d(position_return(portfolio,'GOOG'),title="Positions returns",legend="GOOG")+
# util_line2d(position_return(portfolio,'AAPL'),legend="AAPL")+
# util_line2d(position_return(portfolio,'SPY'),legend="SPY")
# ## End(Not run)
Run the code above in your browser using DataLab