Forgot to add, just run the complete script till the comment "#Second run applyStrategy()". For the second run, just rerun the whole script without the code block below:
registerDoSNOW(cl)
results <- apply.paramset(strategy.st,paramset.label=paramset.label.name,
portfolio=strategy.st, account=strategy.st,nsamples=0,verbose = TRUE,
audit=paramsetenv)
snow::stopCluster(cl)
results.df <- data.frame(results$tradeStats)
Atakan Okan