%plg Feb 2011
%Open one of the GPS files for Normandy.
%m file with sticks function must be in the directory with this file

clc;
serlen=length(TIME);

sticks(INDEX,SPEED,HEADING);
fprintf('TIME     SPEED\n');

for i=1:serlen,
    if SPEED(i) > 50,
         fprintf('%6.0f %12.0f \n',TIME(i),SPEED(i));
    else
    end;
end;

figure
whichstats = {'beta','rsquare'};
stats = regstats(SPEED,HEADING,'linear',whichstats)
%this will get the parameters of the regression line, and the correlation coefficient
scatter(SPEED,HEADING);