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

   1 function resu = subsindex(df, base)
   2   %# function resu = subsindex(df)
   3   %# This function convert a dataframe to an index. Do not expect a
   4   %# meaningfull result when mixing numeric and logical 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: subsindex.m 9585 2012-02-05 15:32:46Z cdemills $
  28   %#
  29
  30   if nargin < 2,
  31     base = 1.0;
  32   else
  33     base = base - 1.0;
  34   endif
  35
  36   %# extract all values at once
  37   dummy = df_whole(df);
  38   if isa(dummy, 'logical'),
  39     resu = sort(find(dummy)-base);
  40     %# resu = dummy - base;
  41   else
  42     resu = dummy - base;
  43   endif
  44
  45 endfunction