Drop dummy variables by condition

[PeterLee1012]

Hi exports,

I have a table which contain 5 dummy variables. How could I drop any variable if number of "1" is less than 10% .

something like:

data tmp;

set df;

array var(i) var1--var5;

IF sum(var)/total le 0.1 THEN drop;

run;

[PaigeMiller · Accepted solution]

There might be simpler ways, but here is how I would do it:

proc summary nway data=df;
	var var1-var5;
	output out=_means_ mean=;
run;
proc transpose data=_means_(drop=_type_ _freq_) out=_means_t;
run;
proc sql;
	select _name_ into :names separated by ' ' from _means_t 
        where col1<=0.1;
quit;
data want;
   set df(drop=&names);
run;

[PeterLee1012]

This works perfect for me, thanks a lot!