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

   1 function resu = end(df, k, n)
   2   %# function resu = end(df, k, n)
   3   %# This is the end operator for a dataframe object, returning the
   4   %# maximum number of rows or columns
   5
   6   %% Copyright (C) 2009-2012 Pascal Dupuis <Pascal.Dupuis@uclouvain.be>
   7   %%
   8   %% This file is part of Octave.
   9   %%
  10   %% Octave is free software; you can redistribute it and/or
  11   %% modify it under the terms of the GNU General Public
  12   %% License as published by the Free Software Foundation;
  13   %% either version 2, or (at your option) any later version.
  14   %%
  15   %% Octave is distributed in the hope that it will be useful,
  16   %% but WITHOUT ANY WARRANTY; without even the implied
  17   %% warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  18   %% PURPOSE.  See the GNU General Public License for more
  19   %% details.
  20   %%
  21   %% You should have received a copy of the GNU General Public
  22   %% License along with Octave; see the file COPYING.  If not,
  23   %% write to the Free Software Foundation, 51 Franklin Street -
  24   %% Fifth Floor, Boston, MA 02110-1301, USA.
  25
  26   %#
  27   %# $Id: end.m 9585 2012-02-05 15:32:46Z cdemills $
  28   %#
  29
  30   try
  31     if k < 3,
  32       resu = df._cnt(k);
  33     else
  34       resu =  max(cellfun(@length, df._rep));
  35     endif
  36   catch
  37     error("incorrect call to end, index greater than number of dimensions");
  38   end_try_catch
  39
  40 endfunction