%% UgLayRecNet
%% train network

load phoneme
p = con2seq(y);
t = con2seq(t);
lrn_net = layrecnet(1,8);
lrn_net.trainFcn = 'trainbr';
lrn_net.trainParam.show = 5;
lrn_net.trainParam.epochs = 50;
lrn_net = train(lrn_net,p,t);

%
%% plot response

y = lrn_net(p);
plot(cell2mat(y))

% Copyright 2015 The MathWorks, Inc.