topic Re: How to I delete all the columns that are zero in the following matrix in SAS Programming

How to I delete all the columns that are zero in the following matrix

desireatem — Sat, 02 Feb 2013 00:19:43 GMT

SurvivalM=J(nrow(survival1),1,1);

do i = 1 to n;

if censored=1 then SurvivalM=survival1; else if censored[1]=0 then SurvivalM=survival1; /*****Create a 1 by N -matrix of Survival ****/;

end;

print SurvivalM;

InverseC=J(nrow(survival1),1,1);

do i = 1 to n;

if censored=1 then InverseC=1/survival1; else if censored[1]=0 then InverseC=0; /*****survivalC is the imputed censored survival and set the real Survivalval to 1**/;

end;

print InverseC;

m=frequency[1];

*Big=J(nrow(DM),m,value);

test = j(nrow(InverseC),1,1);

Big=SurvivalM*t( InverseC[loc(test^=0)]);

print Big;

ROW1	1.0875421	4.1015873
ROW2	1.030303	3.8857143
ROW3	1	3.7714286
ROW4	0.969697	3.6571429
ROW5	0.9090909	3.4285714
ROW6	0.8484848	3.2
ROW7	0.7878788	2.9714286
ROW8	0.7272727	2.7428571
ROW9	0.6666667	2.5142857
ROW10	0.6060606	2.2857143
ROW11	0.5454545	2.0571429
ROW12	0.4848485	1.8285714
ROW13	0.4242424	1.6
ROW14	0.3636364	1.3714286
ROW15	0.3030303	1.1428571
ROW16	0.2651515	1
ROW17	0.2272727	0.8571429
ROW18	0.1515152	0.5714286
ROW19	0.0757576	0.2857143
ROW20	0	0

Re: How to I delete all the columns that are zero in the following matrix

Linlin — Sat, 02 Feb 2013 00:53:00 GMT

sample code:

data have;

input row $ v1-v5;

cards;

r1 2 0 0 0 3

r2 5 3 0 0 8

;

proc sql noprint;

select catx(' ','sum(',name,') as',name) into : list separated by ','

from dictionary.columns

where libname='WORK' and memname='HAVE' and type='num';

create table temp as

select &list from have;

quit;

data _null_;

set temp;

length _list $ 4000;

array _x{*} _numeric_;

do i=1 to dim(_x);

if _x{i} eq 0 then _list=catx(' ',_list,vname(_x{i}));

end;

call symputx('drop',_list);

run;

data want;

set have(drop=&drop);

run;

proc print;run;

Obs row v1 v2 v5

1 r1 2 0 3

2 r2 5 3 8

Re: How to I delete all the columns that are zero in the following matrix

desireatem — Sat, 02 Feb 2013 01:07:04 GMT

Thanks, what do I do if I want the the columns to be V1, V2, V3 , without skippying numbers

Re: How to I delete all the columns that are zero in the following matrix

Linlin — Sat, 02 Feb 2013 01:12:06 GMT

Sorry, I don't understand your question. v3,v4 were deleted in my example because they have all zeros.

Re: How to I delete all the columns that are zero in the following matrix

desireatem — Sat, 02 Feb 2013 01:43:43 GMT

Thanks, do you know how to delete rows within proc iml. I created this matrix in proc iml and want to delete the rows of 1s

Re: How to I delete all the columns that are zero in the following matrix

Linlin — Sat, 02 Feb 2013 01:50:02 GMT

Sorry, I don't use proc iml.