Changeset 123 for prdatasets/biomed.m

Timestamp:

03/05/18 00:14:20 (7 years ago)

Author:

bduin

Message:

 

File:

• prdatasets/biomed.m (modified) (3 diffs)

prdatasets/biomed.m

@@ -10 +10 @@
 %
 % By default objects with missing values are removed. When something else
-% is desired, use one of the options in MISVAL.
+% is desired, use one of the options in MISVAL for VAL.
 %
 % This is the ''biomed' dataset of the <a href="http://lib.stat.cmu.edu/datasets/">StatLib Datasets Archive</a>.
+% Just the original features 3, 5, 6, 7 and 8 are used.
 %
 % SEE ALSO <a href="http://37steps.com/prtools">PRTools Guide</a>, <a href="http://archive.ics.uci.edu/ml/">UCI Website</a>
@@ -21 +22 @@
 function x = biomed(val)
 
-prdatasets(mfilename,1,'http://prtools.org/prdatasets/biomed.dat');
-if nargin<1
-        val = 'remove';
-end
+if nargin < 1, val = 'remove'; end
+a = pr_getdata('http://37steps.com/data/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. ';
@@ -31 +30 @@
 fl = {'age' 'measurement 1' 'measurement 2' 'measurement 3' 'measurement 4'};
 
-a = load('biomed.dat');
 x = pr_dataset(a(:,[3 5 6 7 8]),cl(a(:,end)));
 x = setfeatlab(x,fl);
 x = setname(x,'Biomed');
-[x,msg] = misval(x,val);
-user.desc = [user.desc msg];
 x = setuser(x,user);
+x = misval(x,val);
 
 return