如何识别第一个流中具有相同字符的两行

Question

我想创建一个指示符变量“same_first_two_nearby”。这表明观测的前两个字符等于附近的观测值。我尝试使用“复制方法”，但我失败了。因为该方法只能“删除”重复但不能保留。

PROC SORT data=temp NODUPKEY; 
BY customer_IN; 
RUN; 

我的数据的例子如下。

data temp; 
input customer_IN $ 1-8 ; 
cards; 
ADJOHN. 
ADMARY. 
ADjerry. 
BWABBY. 
CFLUCY. 
CFLINDA. 
EFLAGNA. 
KTPAKAO. 
KTWANDA.  
; 
run; 
proc print data=temp;run; 

我想生成如下结果。

customer_IN same_first_two_nearby 
    ADJOHN.      1 
    ADMARY.      1 
    ADjerry.      1 
    BWABBY.      0 
    CFLUCY.      1 
    CFLINDA.      1 
    EFLAGNA.      0 
    KTPAKAO.      1 
    KTWANDA.      1 

在此先感谢。

Answer 1

为此，您可以使用包含前两个字符的辅助柱，只要它是排序按原来的问题：

data temp; 
input customer_IN $ 1-8 initials $ 1-2; 
cards; 
ADJOHN. 
ADMARY. 
ADjerry. 
BWABBY. 
CFLUCY. 
CFLINDA. 
EFLAGNA. 
KTPAKAO. 
KTWANDA.  
; 
run; 

data want; 
set temp; 
by initials; 
same_first_two_nearby = not(first.initials and last.initials); 
run;