Changeset 137 for prdatasets/heart.m

Timestamp:

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

Author:

bduin

Message:

 

Location:

prdatasets

Files:

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

prdatasets

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

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

prdatasets/heart.m

@@ -11 +11 @@
 % is desired, use one of the options in MISVAL.
 %
-% 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 = heart(val)
+function a = heart(val)
 
-prdatasets(mfilename,1,'http://prtools.tudelft.nl/prdatasets/heart.dat');
 if nargin<1
         val = 'remove';
 end
-
-user.desc='The Cleveland database from the Heart Disease Databases from UCI.  The class disease-presence is used as target class. ';
-user.link = 'ftp://ftp.ics.uci.edu/pub/machine-learning-databases/heart-cleveland/';
-cl = {'absent' 'present'};
-fl = {'age' 'sex' 'cp' 'trestbps' 'chol' 'fbs' 'restecg' ...
-        'thalach' 'exang' 'oldpeak' 'slope' 'ca' 'thal'};
-fd = {[0 inf; 0 inf] [0 1] [1 2 3 4] [0 inf; 0 inf] [0 inf; 0 inf] ...
+a = pr_loadmatfile;
+if isempty(a)
+  opt.labfeat   = 14;
+  opt.featnames = {'age' 'sex' 'cp' 'trestbps' 'chol' 'fbs' 'restecg' ...
+      'thalach' 'exang' 'oldpeak' 'slope' 'ca' 'thal'};
+  opt.classnames = {'absent' 'present'  'present'  'present'  'present'};
+        opt.desc='The Cleveland database from the Heart Disease Databases from UCI.  The class disease-presence is used as target class. ';
+        opt.link = 'ftp://ftp.ics.uci.edu/pub/machine-learning-databases/heart-cleveland/';
+  opt.dsetname = 'Heart Cleveland';
+  a = pr_download('http://prtools.tudelft.nl/prdatasets/heart.dat',[],opt);
+  nlab = getnlab(a);
+  nlab(nlab>1) = 2;
+  a = setnlab(a,nlab);
+  a = remclass(a);
+  fd = {[0 inf; 0 inf] [0 1] [1 2 3 4] [0 inf; 0 inf] [0 inf; 0 inf] ...
       [0 1] [0 1 2] [0 inf; 0 inf] [0 1] [0 inf; 0 inf] [1 2 3] [-1 0 1 2 3] [3 6 7]};
-
-a = load('heart.dat');
-lab = (a(:,end)>0);
-x = pr_dataset(a(:,1:(end-1)),cl(lab+1));
-x = setfeatlab(x,fl);
-x = setname(x,'Heart Cleveland');
-x = setfeatdom(x,fd);
-[x,msg] = misval(x,val);
-user.desc = [user.desc msg];
-x = setuser(x,user);
+  x = setfeatdom(a,fd);
+  pr_savematfile(a);
+end
+[a,msg] = misval(a,val);
 
 return

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