% the input data to train is a Rx20 matrix data
function [net,tr]=znntrain(fn,goal,ep)
fn='Wabcg_01.out';
ep=200;
goal=0.07;
ins=inpfile(fn,20);
ots=inpfile(strcat('o',fn)',1);
net=newff(minmax(ins),[20,10,1],{'logsig','logsig','logsig'},'trainscg');
net.trainParam.lr=0.7; % learning rate
net.trainParam.show=25;
net.trainParam.epochs=ep;
net.trainParam.goal=goal;
net.trainParam.mc=0.8; % momentum
net= train(net,ins,ots);
%[net,tr]=train(net,ins,ots);