## Not run:
# portfolio<-portfolio_create("SPY", "2014-11-19 09:30:00", "2014-11-19 16:00:00")
# portfolio_settings(portfolio,portfolioMetricsMode="price",resultsSamplingInterval='1m')
# position_AAPL=position_add(portfolio,"AAPL",1000)
# position_GOOG=position_add(portfolio,"GOOG",1000)
# position_SPY=position_add(portfolio,"SPY",1000)
#
# optimizer=optimization_goal(variance(portfolio),direction="min")
# optimizer=optimization_constraint(optimizer,value(portfolio),'=',10^9)
# optimizer=optimization_constraint(optimizer,weight_transform(portfolio,
# "sum_abs_weight",c(position_AAPL,position_GOOG)),">=",0.5)
# plot(optimization_run(optimizer))
#
# optimizer=optimization_goal(weight_transform(portfolio,"equiweight"))
# plot(optimization_run(optimizer))
# ## End(Not run)
Run the code above in your browser using DataLab