輸出觀察是否符合標準

Question

這裏是我的數據集： Name Mark Math1 Math2 Math3 ----------------------------- --------

Justin AA1 1 0 1 
Justin BB1 1 1 1 
Justin BA1 0 1 0 
Justin  BC2 0  0  1 

這裏是SAS代碼來創建它

  DATA Student1; 
     INPUT Name $ Mark $ Math1 Math2 Math3; 
     DATALINES; 
     Justin AA1 1 0 1 
     Justin BB1 1 1 1 
     Justin BA1 0 1 0 
     Justin BC2 0 0 1 
     ; 

我想評價MATH1和輸出旁邊如果遇到1的關口，但是因爲Math1中使用了該位置，Math2中不能再使用該位置，即輸出Justin的Math1爲AA1，Math2的BB1輸出（因爲這是第一個位於的位置）列）和BC2，因爲即使我們在AA1和BB1的同一行上有1，這兩個標記已經在var Math1和Math2中使用過了。

這是輸出數據集應該是什麼樣子

 data Student2; 
     input name $ Math1 $ Math2 $ Math3 $; 
     datalines; 
     Justin AA1 BB1 BC2 
     ; 

我能做到這一點使用數組？

Answer 1

在這種情況下，數組可能不夠用。以下是使用IML的解決方案（希望）（看起來很龐大）。我推測你可能需要處理一個以上的學生，所以要在多個名稱的情況下適用。請評論是否有任何錯誤。

DATA Student1; 
    INPUT Name $ Mark $ Math1 Math2 Math3; 
     DATALINES; 
     Justin AA1 1 0 1 
     Justin BB1 1 1 1 
     Justin BA1 0 1 0 
     Justin BC2 0 0 1 
     Wayne AB1 1 0 1 
     Wayne BC1 0 0 1 
     Wayne BD2 0 1 0 
     Wayne BE3 1 1 1 
     ; 
    quit; 

proc iml; 
    use student1; 
    read all var{name mark} into x; 
    read all var{math1 math2 math3} into y; 
z=j(nrow(y),ncol(y),'mon'); 
i=1; 
    do j=2 to nrow(x); 
    if x[j,1]^=x[j-1,1] | j=nrow(x) then do; 
     if j=nrow(x) then j=j+1; 
     do k=1 to 3; 
      do l=i to j-1; 
      if y[l,k]=1 then do; 
      y[l,k:3]=0; 
      y[l+1:j-1,k]=0; 
      z[i:j-1,k]=x[l,2]; 
      end; 
      end; 
     end; 
     i=j; 
    end; 
    end; 
    colname={'math1', 'math2', 'math3'}; 
create new from z[colname=colname]; 
append from z; 
quit; 

data new; 
merge student1(keep=name) new; 
run; 

proc sort data=new out=new nodupkey; 
by name; 
run;