如何运用sas进行一阶差分

shiyiming

对{x(1),x(2)...x(n)}进行一阶差分，即y(1)=x(2)-x(1)...y(n-1)=x(n)-x(n-1),请问用sas如何实现？
同样，给定x1,{y1,y2...y(n-1)},如何逆运算出{x1,...xn}

shiyiming

data temp1;
  input x @@ ;
  y=x-lag(x);
  cards;
  1 2 3 4 5 6 7 8 9
  ;
proc print;run;

/* 逆运算*/
data temp2;
  input y @@;
  x0=1;/*设定初始值*/          
  retain x;
  if _N_=1 then x=x0;
           else x=y+x;
  drop x0;
  cards;
  1 1 1 1 1 1 1 1 1
  ;
proc print;run;