| Description of slreevallearn |
slreevallearn
PURPOSE 
SLREEVALLEARN Performs an iterative learning based on re-evaluation
SYNOPSIS 
function [models, Q, info] = slreevallearn(models, Q, data, estfunctor, evalfunctor, cmpfunctor, varargin)
DESCRIPTION 
CROSS-REFERENCE INFORMATION 
This function calls:
This function is called by:
- slkmeansex SLKMEANSEX Performs Generalized K-means
- slfmm SLFMM Learns a Finite Mixture Model (FMM)
SUBFUNCTIONS 
SOURCE CODE 
0001 function [models, Q, info] = slreevallearn(models, Q, data, estfunctor, evalfunctor, cmpfunctor, varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033
0034
0035
0036
0037
0038
0039
0040
0041
0042
0043
0044
0045
0046
0047
0048
0049
0050
0051
0052 if nargin < 6
0053 raise_lackinput('slreevallearn', 6);
0054 end
0055
0056 opts.iter = {};
0057 opts.isrecorded = false;
0058 opts.verbose = true;
0059 opts = slparseprops(opts, varargin{:});
0060
0061
0062
0063 slsharedisp_attach('slreevallearn', 'show', opts.verbose);
0064
0065 slsharedisp('Learning by re-evaluation');
0066
0067 objects = {models, data, Q};
0068 iterfunctor = {@reevallearn_iter, estfunctor, evalfunctor, opts};
0069 cmpfunctor = {@reevallearn_cmp, cmpfunctor};
0070 if nargout < 2
0071 objects = ...
0072 sliterproc(objects, iterfunctor, cmpfunctor, opts.isrecorded, opts.iter{:});
0073 else
0074 [objects, info] = ...
0075 sliterproc(objects, iterfunctor, cmpfunctor, opts.isrecorded, opts.iter{:});
0076 end
0077
0078 models = objects{1};
0079 Q = objects{3};
0080
0081 slsharedisp_detach();
0082
0083
0084
0085
0086 function varargout = reevallearn_iter(objects, estfunctor, evalfunctor, opts)
0087
0088
0089 [models, data, Q] = deal(objects{:});
0090
0091 if ~opts.isrecorded
0092 models = slevalfunctor(estfunctor, models, data, Q);
0093 else
0094 [models, info] = slevalfunctor(estfunctor, models, data, Q);
0095 end
0096 Q = slevalfunctor(evalfunctor, models, data, Q);
0097
0098 objects = {models, data, Q};
0099
0100 if ~opts.isrecorded
0101 varargout = {objects};
0102 else
0103 varargout = {objects, info};
0104 end
0105
0106
0107 function isconverged = reevallearn_cmp(objects_prev, objects, cmpfunctor)
0108
0109 models_prev = objects_prev{1};
0110 Q_prev = objects_prev{3};
0111 models = objects{1};
0112 Q = objects{3};
0113
0114 isconverged = slevalfunctor(cmpfunctor, models_prev, models, Q_prev, Q);
0115
0116
0117
0118
0119
0120
0121
0122
0123
0124
0125
Generated on Wed 20-Sep-2006 12:43:11 by m2html © 2003
|
|