function [S] = header2strings(header)
%header2strings Converts a header line to a series of strings.
%
% After reading a table with a header line,
% use this function to convert the header into a series of
% strings.
%
% USE:
%
% [HinStrings] = header2strings(header)
%
% For example, if header = [response var1 var2 var3],
% HinStrings = [response; var1; var2; var3]
%

% Tomo Eguchi
% 31 January 2002

%header = '%Mortality	JanTemp	JulyTemp	Rain	PopDensity	Education	NonWhite	logHC'

HinAscii = double(header);
index9 = find(HinAscii == 9);
nargout = length(index9)+1;         % define the length of output argument
S = [];

for i = 1:length(index9)+1,
   if i == 1,
      eval(['s',num2str(i), ' = header(1:index9(',num2str(i),')-1);']);
      
   elseif i == length(index9)+1,
      eval(['s',num2str(i), '= header(index9(',num2str(i-1),')+1:end);']);

   else
      eval(['s',num2str(i), '= header((index9(',num2str(i-1),')+1):(index9(',num2str(i),')-1));']);
   end
   
%   eval(['varargout(', num2str(i), ') = {s', num2str(i), '};']);
   if i > 1,
      eval(['S = char(S, s', num2str(i), ');']);
   else
      S = char(s1);
   end
end