octave_packages/nan-2.5.5/load_fisheriris.m

   1 % LOAD_FISHERIRIS
   2 %        loads famous iris data set from Fisher, 1936 [1].
   3 %
   4 % References:
   5 % [1] Fisher,R.A. "The use of multiple measurements in taxonomic problems"
   6 %        Annual Eugenics, 7, Part II, 179-188 (1936); also in "Contributions to Mathematical Statistics" (John Wiley, NY, 1950).
   7 % [2] Duda,R.O., & Hart,P.E. (1973) Pattern Classification and Scene Analysis.
   8 %        (Q327.D83) John Wiley & Sons. ISBN 0-471-22361-1. See page 218.
   9
  10 %       $Id$
  11 %       Copyright (C) 2009,2010 by Alois Schloegl <alois.schloegl@gmail.com>
  12 %       This function is part of the NaN-toolbox
  13 %       http://pub.ist.ac.at/~schloegl/matlab/NaN/
  14
  15 % This program is free software; you can redistribute it and/or
  16 % modify it under the terms of the GNU General Public License
  17 % as published by the Free Software Foundation; either version 3
  18 % of the  License, or (at your option) any later version.
  19 %
  20 % This program is distributed in the hope that it will be useful,
  21 % but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 % GNU General Public License for more details.
  24 %
  25 % You should have received a copy of the GNU General Public License
  26 % along with this program; if not, write to the Free Software
  27 % Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
  28
  29
  30 if exist('OCTAVE_VERSION','builtin')
  31         if ~exist('iris.data','file')
  32                 if strncmp(computer,'PCWIN',5)
  33                         fprintf(1,'Download http://archive.ics.uci.edu/ml/machine-learning-databases/iris/iris.data and save in local directory %s\nPress any key to continue ...\n',pwd);
  34                 else
  35                         unix('wget http://archive.ics.uci.edu/ml/machine-learning-databases/iris/iris.data');
  36                 end;
  37         end;
  38         tmp = fopen('iris.data'); species=fread(tmp,[1,inf],'uint8=>char'); fclose(tmp);
  39         [meas,tmp,species]=str2double(species,',');
  40         meas = meas(:,1:4);
  41         species = species(:,5);
  42 else
  43         load fisheriris;
  44 end;