## Not run:
# portfolio=portfolio_create(fromTime="2014-10-02 09:30:00", toTime="2014-10-02 16:00:00")
# portfolio_settings(portfolio,resultsSamplingInterval='60s')
# positionSPY=position_add(portfolio,'SPY',500)
# positionC=position_add(portfolio,'C',600)
# metricSPY=compute(log_return(positionSPY))[[1]]
# metricSPY=data.frame(metricSPY,legend="SPY return")
# util_plot2df(value~time,metricSPY,title="Return, SPY")
#
# metricC=compute(log_return(positionC))[[1]]
# metricC=data.frame(metricC,legend="C return")
# metric=rbind(metricSPY,metricC)
# util_plot2df(value~time,metric,title="Return")
#
# data(aapl.data)
# data(goog.data)
# data(spy.data)
# AAPLprice=data.frame(Price=aapl.data[,'Value'],time=aapl.data[,'Time'],legend='AAPL price')
# GOOGprice=data.frame(Price=goog.data[,'Value'],time=goog.data[,'Time'],legend='GOOG price')
# SPYprice=data.frame(Price=spy.data[,'Value'],time=spy.data[,'Time'],legend='SPY price')
# price=rbind(AAPLprice,GOOGprice,SPYprice)
# util_plot2df(Price~time,price,title="Stock prices")
# ## End(Not run)
Run the code above in your browser using DataLab