topic Re: problem of sorting in SAS Procedures

problem of sorting

makset — Thu, 05 Mar 2015 09:41:17 GMT

I have a data file where one of the variables has a value of -1 0 1

for example,
a
1
1
1
1
1
-1
-1
-1
-1
0
0
0

I would like to receive
a
1
-1
1
-1
1
-1
1
-1
1
0
0
0

Thank you for your help.

Re: problem of sorting

RW9 — Thu, 05 Mar 2015 09:57:45 GMT

You would need to manually put something in your data to sort like that as there's no "logical" sort order. Why do you want the negatives interleaved with the 1s, is that because of other variables? If so include those variables in the sort.

Re: problem of sorting

gergely_batho — Thu, 05 Mar 2015 10:12:18 GMT

You want reorder your dataset so that first 1s and -1s come alternately, and at the end all the 0s ?

data want;

do until(eof1 and eof_1);

if not eof1 then do;

set have(where=(a=1)) end=eof1;

output;

end;

if not eof_1 then do;

set have(where=(a=-1)) end=eof_1;

output;

end;

do until(eof0);

set have(where=(a=0)) end=eof0;

output;

end;

stop;

run;

Re: problem of sorting

Karthikeyan — Thu, 05 Mar 2015 10:31:51 GMT

If am not wrong, you want to interleave -1s between 1s . Let's add one more variable , assign consecutive odd numbers to -1s and even numbers to 1s and sort using that variable

data

have

;

input a ;

cards;

-1

;

run;

data

want(drop = odd even )

;

set

have

;

retain odd 1 even 2;

if a = 1 then do;

odd = odd + 2;

sort_var = odd;

output;

end;

else if a = -1 then do;

even = even +2 ;

sort_var = even;

output;

end;

else do;

sort_var = 1000000;

output ;

end;

run;

proc sort data = want; by sort_var;run;

proc print data = want ;run;

Re: problem of sorting

makset — Thu, 05 Mar 2015 14:57:44 GMT

perfect solution
I have one more question if you can do it this way

-1

and so on

Thank you for your help.

Re: problem of sorting

gergely_batho — Thu, 05 Mar 2015 15:07:05 GMT

Is this a homework?

data want;

numConsec=2;/*set this to 1, 2 or 4 ...*/

do until(eof1 and eof_1);

do i=1 to numConsec;

if not eof1 then do;

set have(where=(a=1)) end=eof1;

output;

end;

do i=1 to numConsec;

if not eof_1 then do;

set have(where=(a=-1)) end=eof_1;

output;

end;

do until(eof0);

set have(where=(a=0)) end=eof0;

output;

end;

stop;

run;

not tested!