RMSEcalcul(model,testdata)

function RMSE = RMSEcalcul(model,testdata)

%RMSEcalcul(model)
%calculates the root mean squared error of the model

%new points

Xnew = [testdata(:,1) testdata(:,2)];
Ynew = simlssvm(model,Xnew);
Ytest=testdata(:,3);
%controle van de data
%verschil van de berekende en de gemeten waardes
A=(Ytest-Ynew).^2;
%generalisatiefout 2-norm
%performantie= som van alle fouten

RMSE=sqrt(sum(A)/length(A));