Changeset 137 for prdatasets/car.m

Timestamp:

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

Author:

bduin

Message:

 

Location:

prdatasets

Files:

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

prdatasets

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

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

prdatasets/car.m

@@ -8 +8 @@
 % 1(1), pp. 145-157, 1990.). All 6 features are nominal.
 % The instances completely cover the attribute space.
+%
+% SEE ALSO <a href="http://37steps.com/prtools">PRTools Guide</a>, <a href="http://archive.ics.uci.edu/ml/">UCI Website</a>
+% PRTOOLS, DATASETS
 
-function x = car
+% Copyright: R.P.W. Duin, r.p.w.duin@37steps.com
 
-prdatasets(mfilename,1,'http://prtools.tudelft.nl/prdatasets/car.data');
-% for some mysterious reason it appeared to be necessary on my Windows 7
-% system to repeat this command
-prdatasets(mfilename,1,'http://prtools.tudelft.nl/prdatasets/car.data');
-user.desc = 'Car Evaluation Database was derived from a simple hierarchical decision model originally developed for the demonstration of DEX (M. Bohanec, V. Rajkovic: Expert system for decision making. Sistemica 1(1), pp. 145-157, 1990.).';
-fl = {'buying price' 'maintenance price' 'nr of doors' 'nr of persons' 'luggage boot' 'safety'};
- 
-datfile = fullfile(fileparts(which(mfilename)),'car.data');
-x = pr_readdataset(datfile,0,',',[],'ccccccc',7);
-x = setfeatlab(x,fl);
-x = setuser(x,user);
-x = setname(x,'Car');
+function a = car
+
+a = pr_loadmatfile;
+if isempty(a)
+  opt.delimeter = ',';
+  opt.format = 'ccccccc';
+  opt.labfeat = 7;
+  opt.desc = 'Car Evaluation Database was derived from a simple hierarchical decision model originally developed for the demonstration of DEX (M. Bohanec, V. Rajkovic: Expert system for decision making. Sistemica 1(1), pp. 145-157, 1990.).';
+  opt.featnames = {'buying price' 'maintenance price' 'nr of doors' 'nr of persons' 'luggage boot' 'safety'};
+  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/';
+  opt.dsetname = 'Car';
+  a = pr_download('http://prtools.tudelft.nl/prdatasets/car.data',[],opt);
+end
 
 return

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