data=HomeA';
N=50;
XTrain = data(1:end-N);
YTrain = data(1:end-N);
XTest=data(end-N+1:end);
YTest = data(end-N+1:end);
X = tonndata(XTrain,true,false);
T = tonndata(YTrain ,true,false);
X2 = tonndata(XTest,true,false);
T2 = tonndata(YTest ,true,false);
net = layrecnet(1:2,10);
[Xs,Xi,Ai,Ts] = preparets(net,X,T);
net = train(net,Xs,Ts,Xi,Ai);
Y = net(Xs,Xi,Ai);
perf = perform(net,Y,Ts)
[Xs1,Xio,Aio] = preparets(net,X,T);
[Y1,Xfo,Afo] = net(Xs1,Xio,Aio);
[netc,Xic,Aic] = closeloop(net,Xfo,Afo);
[yPred,Xfc,Afc] = netc(X2,Xic,Aic);
TestPerformance = perform(net,yPred,T2);