octave_packages/dataframe-0.9.1/@dataframe/reshape.m

   1 function resu = reshape(df, varargin)
   2   %# function resu = reshape(df, varargin)
   3
   4   %% Copyright (C) 2009-2012 Pascal Dupuis <Pascal.Dupuis@uclouvain.be>
   5   %%
   6   %% This file is part of Octave.
   7   %%
   8   %% Octave is free software; you can redistribute it and/or
   9   %% modify it under the terms of the GNU General Public
  10   %% License as published by the Free Software Foundation;
  11   %% either version 2, or (at your option) any later version.
  12   %%
  13   %% Octave is distributed in the hope that it will be useful,
  14   %% but WITHOUT ANY WARRANTY; without even the implied
  15   %% warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  16   %% PURPOSE.  See the GNU General Public License for more
  17   %% details.
  18   %%
  19   %% You should have received a copy of the GNU General Public
  20   %% License along with Octave; see the file COPYING.  If not,
  21   %% write to the Free Software Foundation, 51 Franklin Street -
  22   %% Fifth Floor, Boston, MA 02110-1301, USA.
  23
  24   %#
  25   %# $Id: reshape.m 9585 2012-02-05 15:32:46Z cdemills $
  26   %#
  27
  28   dummy = horzcat(varargin{:});
  29   if (any(dummy != df._cnt)),
  30     error('Function not yet implemented on dataframe');
  31   else
  32     resu = df; %# blank operation
  33   endif
  34
  35 endfunction