wolffd@0: function CPD = set_params(CPD, varargin)
wolffd@0: % SET_PARAMS Set the parameters (fields) for a tabular_decision_node object
wolffd@0: % CPD = set_params(CPD, name/value pairs)
wolffd@0: %
wolffd@0: % The following optional arguments can be specified in the form of name/value pairs:
wolffd@0: %
wolffd@0: % policy - the table containing the policy
wolffd@0: %
wolffd@0: % e.g., CPD = set_params(CPD, 'policy', T)
wolffd@0: 
wolffd@0: args = varargin;
wolffd@0: nargs = length(args);
wolffd@0: for i=1:2:nargs
wolffd@0:   switch args{i},
wolffd@0:    case 'policy',   CPD.CPT = args{i+1};
wolffd@0:    otherwise,
wolffd@0:     error(['invalid argument name ' args{i}]);
wolffd@0:   end
wolffd@0: end