Changeset 137 for prdatasets/biomed.m

Timestamp:

12/18/19 15:46:35 (5 years ago)

Author:

bduin

Message:

 

Location:

prdatasets

Files:

• . (modified) (1 prop)
• biomed.m (modified) (1 diff)

prdatasets

@@ -3 +3 @@
 *.data
 *.asv
+data

@@ -3 +3 @@
 *.data
 *.asv
+data

prdatasets/biomed.m

@@ -15 +15 @@
 % Just the original features 3, 5, 6, 7 and 8 are used.
 %
-% SEE ALSO <a href="http://prtools.tudelft.nl/prtools">PRTools Guide</a>, <a href="http://archive.ics.uci.edu/ml/">UCI Website</a>
+% SEE ALSO <a href="http://37steps.com/prtools">PRTools Guide</a>, <a href="http://archive.ics.uci.edu/ml/">UCI Website</a>
 % PRTOOLS, DATASETS, MISVAL
 
-% Copyright: R.P.W. Duin
+% Copyright: R.P.W. Duin, r.p.w.duin@37steps.com
 
-function x = biomed(val)
+function a = biomed(val)
 
 if nargin < 1, val = 'remove'; end
-a = pr_getdata('http://prtools.tudelft.nl/prdatasets/biomed.dat',1);
 
-user.desc = 'The purpose of the analysis is to develop a screening procedure to detect carriers and to describe its effectiveness. ';
-user.link = 'http://lib.stat.cmu.edu/datasets/';
-cl = {'carrier' 'normal'};
-fl = {'age' 'measurement 1' 'measurement 2' 'measurement 3' 'measurement 4'};
-
-x = pr_dataset(a(:,[3 5 6 7 8]),cl(a(:,end)));
-x = setfeatlab(x,fl);
-x = setname(x,'Biomed');
-x = setuser(x,user);
-x = misval(x,val);
+a = pr_loadmatfile;
+if isempty(a)
+  opt.labfeat   = 9;
+  opt.feats     = [3,5,6,7,8];
+  opt.featnames = {'age' 'measurement 1' 'measurement 2' 'measurement 3' 'measurement 4'};
+  opt.classnames = {'carrier' 'normal'};
+  opt.desc = 'The purpose of the analysis is to develop a screening procedure to detect carriers and to describe its effectiveness. ';
+  opt.link = 'http://lib.stat.cmu.edu/datasets/';
+  a = pr_download('http://prtools.tudelft.nl/prdatasets/biomed.dat',[],opt);
+end
+a = misval(a,val);
 
 return

@@ -3 +3 @@
 *.data
 *.asv
+data