function [m]=straightline2(x,y)
% function [m]=straightline2(x,y)
% Performs least squares fit on the equation y=mx
% x and y are row vectors
% m is the scalar slope.
[r,c]=size(x);
A=[x'];
T=A\y';
m=T;
