## Not run:
# portfolio<-portfolio_create(fromTime="2014-10-02 09:30:00", toTime="2014-10-02 16:00:00")
# portfolio_settings(portfolio,resultsSamplingInterval='60s')
# portfolio_addPosition(portfolio,c('SPY','C'),c(500,600))
# metricSPY=position_return(portfolio,'SPY')
# n=NROW(metricSPY)
# metricSPY<-data.frame(metricSPY,legend=array("SPY return",dim=n))
# util_plot2df(value~time,metricSPY,title="Return, SPY")
#
# metricC=position_return(portfolio,'C')
# n=NROW(metricC)
# metricC<-data.frame(metricC,legend=array("C return",dim=n))
# metric=rbind(metricSPY,metricC)
# util_plot2df(value~time,metric,title="Return")
# ## End(Not run)
Run the code above in your browser using DataLab