{
  if(mode == NEURAL_TRAIN) {
	file_write("Data\\signals.csv",Data,0); // export batch training data to R
    Rx(strf("Data <- read.csv('%sData/signals.csv',header=F)",slash(ZorroFolder)));

if(!Rx("modellist[[model+1]] <- train(Data[, c(1,2)], Data[, 20], method = 'knn')) return 0;  
if(!Rx("modellist[[model+1]] <- train(Data[, c(1,2)], Data[, 20], method = 'rf')) return 0;

...
}



while(asset(loop("AUD/USD", "EUR/USD")))
while(algo(loop("knn", "rf"))) {
	if (Algo == 'knn') {
		adviseLong(NEURAL....);
	}
	if (Algo == 'rf') {
		adviseLong(NEURAL....);
	}
}