function centm = centerm(data,nn)   %
   % Converts the data to m by nn matrix
   %
      [m,n]=size(data);   if m == 1      m = n;      n = 1;      data = data(:);   end   onen = ones(1,nn);   centm = data*onen;