topic Need help Use an array to find the minimum value excluding 0 in SAS Programming

Need help Use an array to find the minimum value excluding 0

scad — Wed, 14 Oct 2020 13:19:52 GMT

Hi All,

I Need help

Use an array to find the minimum value excluding 0

This is my code

Data exam;

input x1 x2 x3 x4 x5 x6;

cards;

0 0 0 0 0 0

0 1 2 4 6 7

0 0 2 1 4 1

data exam1;

set exam;

array xall{6} x1 x2 x3 x4 x5 x6;

array temp[6] (0 0 0 0 0 0);

Do i = 1 to dim(xall);

IF i = 1 and xall{i}=. then temp{i} = 9999 ;

else if i=1 and xall{i}= 0 then temp{i} = 8888 ;

else if i=1 and xall{i} >0 then temp{i} = xall[i] ;

IF i >1 and (temp{i-1}=. and xall{i}=.) then temp{i} = 9999 ;

else if i >1 and (temp{i-1}=0 and xall{i}=0) then temp{i} = 8888 ;

else if i >1 and (temp{i-1}>0 and xall{i}>0) then temp{i} = min(temp{i-1},xall{i});

end;

run;

I think the correct answer is

x1 x2 x3 x4 x5 x6 temp1 temp2 temp3 temp4 temp5 temp6

0 0 0 0 0 0 8888 8888 8888 8888 8888 8888

0 1 2 4 6 7 8888 1 1 1 1 1

0 0 2 1 4 1 8888 8888 1 1 1 1

Re: Need help Use an array to find the minimum value excluding 0

novinosrin — Wed, 14 Oct 2020 13:35:46 GMT

Data exam;

input x1 x2 x3 x4 x5 x6;

cards;

0 0 0 0 0 0

0 0 0 0 0 0

0 1 2 4 6 7

0 0 2 1 4 1
;

data want;
 set exam;
 array t x1-x6;
 array j(6);
 do over t;
  if t then j(_i_)=t;
 end;
 if n(of j(*)) then min=min(of j(*));
 else min=0;
 drop j:;
run;

Re: Need help Use an array to find the minimum value excluding 0

novinosrin — Wed, 14 Oct 2020 13:39:33 GMT

Data exam;

input x1 x2 x3 x4 x5 x6;

cards;

0 0 0 0 0 0

0 0 0 0 0 0

0 1 2 4 6 7

0 0 2 1 4 1
;
data want;
 set exam;
 array t x1-x6;
 do over t;
  if t then min=min(t,min);
 end;
 if min=. then min=0;
run;

Re: Need help Use an array to find the minimum value excluding 0

hhinohar — Wed, 14 Oct 2020 14:54:26 GMT

Data exam;
	input x1 x2 x3 x4 x5 x6;
	cards;
0 0 0 0 0 0
0 0 0 0 0 0
0 1 2 4 6 7
0 0 2 1 4 1
;
run;

data exam1;
	set exam;
	array xall{6} x1 x2 x3 x4 x5 x6;
	array temp[6] $;
	min=8888;
	*calculate min;
	Do i=1 to dim(xall);
		if xall(i) > 0 then do;
			if min>xall{i} then min=min(min,xall(i));
		end;
	end;
	*feed minimum value to every variable;
	Do i=1 to dim(temp);
		temp(i)=ifn(min(min,xall(i))=0,8888,min(min,xall(i)));
	end;
	drop i;
run;

Re: Need help Use an array to find the minimum value excluding 0

ballardw — Wed, 14 Oct 2020 15:33:36 GMT

Does your data have any negative values?

Re: Need help Use an array to find the minimum value excluding 0

scad — Thu, 15 Oct 2020 00:16:15 GMT

Only positive

Re: Need help Use an array to find the minimum value excluding 0

andreas_lds — Thu, 15 Oct 2020 05:38:15 GMT

It is not clear what you expect as result or why you are using the temp array, the constant 8888, please clarify.