# NOT RUN {
#(For complete demo see parameterTestMACD.R)
tPD2<-setParameterDistribution(tPD2, strat, component.type='indicator', component.label='FastSMA',
distribution=list(nFast=(10:30)), label='nFast')
tPD2<-setParameterDistribution(tPD2, strat, component.type='indicator', component.label='SlowSMA',
distribution=list(nSlow=(20:40)), label='nSlow')
tPD2<-setParameterDistribution(tPD2, strat, component.type='signal', component.label='go.long',
distribution=list(relationship=c('gt', 'gte')), label='sig1.gtgte')
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab