subsref.m

Implementation to linear, quadratic and logistic discriminant analysis, for examples

function g = subsref(f, s)
%LDA/SUBSREF Subscripted reference of LDA object.

%   Copyright (c) 1999 Michael Kiefte

%   $Log$

switch s(1).type
  case '.'
   switch s(1).subs
    case 'means'
     h = f.means;
    case 'scale'
     h = f.scale;
    case 'est'
     h = f.est;
    case 'nu'
     if f.est ~= 't'
       error(['Field ''nu'' only defined for t-estimator LDA' ...
	      ' objects.'])
     end
     h = f.nu;
    case 'classifier'
     h = f.classifier;
    otherwise
     h = subsref(f.classifier, s(1));
   end
   
   if length(s) > 1
     g = subsref(h, s(2:end));
   else
     g = h;
   end
   
 case '{}'
  subsref(f.classifier, s)
 case '()'
  h = classify(f, s(1).subs{:});
  
  if length(s) > 1
    g = subsref(h, s(2:end));
  else
    g = h;
  end
end