| Date: | Thu, 16 Mar 2000 09:43:18 -0500 |
|---|
| Reply-To: | Steve Giblin <Steve_Giblin@VAPOWER.COM> |
|---|
| Sender: | "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU> |
|---|
|
| From: | Steve Giblin <Steve_Giblin@VAPOWER.COM> |
|---|
| Subject: | Re: Flagging consecutiveness |
|---|
|
| Content-type: | text/plain; charset=us-ascii |
|---|
Here is a straightforward method
DATA TestData;
INPUT Id Visit X;
CARDS;
01 1 1
01 2 20
01 3 20
01 4 7
01 5 8
02 2 1
02 7 20
02 8 20
02 9 20
02 5 8
03 1 20
03 4 20
03 5 2
03 7 20
03 8 8
;
RUN;
PROC SORT; BY ID VISIT X;
DATA SELECT;
SET TESTDATA;
BY ID X NOTSORTED;
LAGVISIT=LAG(VISIT);
IF FIRST.X=0 OR LAST.X=0;
IF X=20;
IF LAST.X=1;
IF LAGVISIT+1 = VISIT;
DROP LAGVISIT;
PROC PRINT; RUN;
| 
