SAS 關聯規則

/* 關聯規則算法的實現  */
/* 讀入關聯數據，列代表項目集中的一個項目，行代表一個記錄集，每行在某列上的值爲0表示該記錄集不含該項目，爲1代表包含該項目  */
data test;
  input id 1 class1 3 class2 5 class3 7 class4 9 class5 11 class6 13 class7 15 ;
cards;
1 0 0 1 1 0 1 0
2 1 0 0 1 0 1 1
3 0 1 1 0 1 1 0
4 1 1 0 1 0 1 1
5 0 1 1 1 0 1 0
6 0 0 0 1 0 1 1
;
run;

data items2;
set test;
length tid 8;
length item $8;
tid = _n_;
item = class1;
output;
item = class2;
output;
item = class3;
output;
item = class4;
output;
item = class5;
output;
item = class6;
output;
item = class7;
output;
keep tid item;
run;

proc sql;
alter table items2
modify item char(8);
quit;

/*關聯分析*/

proc dmdb data=items2 dmdbcat=dbcat;
class tid item;
run; quit;

proc assoc data=items2 dmdbcat=dbcat pctsup=0.5 out=frequentItems;
id tid;
target item;
run;

proc rulegen in=frequentItems dmdbcat=dbcat out=rules minconf=80;
run ;

proc sort data=rules;
by descending conf;
run ;

/*只保留結果中包含生存變量的關聯規則*/

data surviverules;
set rules(where=(set_size>1 and (_rhand=‘Yes’ or _rhand=‘No’)));
run;

proc print data=surviverules;
var conf support lift rule ;
run ;