% Model Identification This is a demonstration of subtractive clustering and 
% how it can be used with multi-dimensional data. 
% Copyright 1994-2002 The MathWorks, Inc. $Revision: 1.12 $ 
% This is a plot of the input data for a model identification problem. 
% We are interested in estimating the number of auto trips generated
% from an area based on the area's demographics. Five factors were 
% considered: population, number of houses, vehicle ownership, income, and employment. 

tripdata
figure,plot(datin)


a=genfis2(datin,datout,0.45);
figure,plotfis(a);

figure
fuzout=evalfis(datin,a);
subplot(2,1,1)
plot(datin)
subplot(2,1,2)
plot([datout fuzout])


figure,plot(datout,fuzout,'bx',[0 10],[0 10],'r:')
xlabel('Actual Value')
ylabel('Predicted Value')
axis square


chkfuzout=evalfis(chkdatin,a);
figure,plot(chkdatout,chkfuzout,'bx',[0 10],[0 10],'r:')
axis square
xlabel('Actual Value')
ylabel('Predicted Value')