if (FALSE) {
m <- specifyModel(Next(OpCl(QQQ)) ~ Lag(OpHi(QQQ)))
m.built <- buildModel(m,method='rpart',training.per=c('2007-01-01','2007-04-01'))
tradeModel(m.built)
tradeModel(m.built,leverage=2)
}
Run the code above in your browser using DataLab