function data=loaddata(fname)
% loads all data; 
% data points are per row
  data=[];
  fid=fopen(fname);  
  while ~feof(fid)
    s=fgetl(fid);
    s=s(s~=',');
    data=[data;s];
  end
end

