function out = setthres(w,thr)%SETTHRES Set the threshold for a one-class classifier%% out = setthres(w,thr)%% The data of classifier w is copied to classifier out, only the% threshold value is changed to thr.%% thr = setthres(w)%% The current threshold can be retrieved by supplying just the% classifier.%% Copyright: D. Tax, R.P.W. Duin, davidt@ph.tn.tudelft.nl% Faculty of Applied Physics, Delft University of Technology% P.O. Box 5046, 2600 GA Delft, The Netherlandsif ~is_occ(w)  error('setthres: I need a one-class classifier for this');end[d,labl,map,k,c,v,par] = mapping(w);if nargin<2  out = d.threshold;  returnendd.threshold = thr;out = mapping(map,d,labl,k,c,v,par);return