How to code the closest value to a central value for a new variable using multiple variables?

[papayan_ah]

Hi, 

I am one step away from novice to SAS, and I am stuck coding a specific variable. There are around 300 study participant IDs.  

I am looking at rejection biopsy grades at 52, 104, 156, 208, and 260 weeks (tt_bx#) after surgery with an interval of +/- 13.035 weeks. Each ID has a maximum of 10 biopsies (bx_1, bx_2, bx_3, bx_4, etc.), and I have calculated the time to each biopsy from surgery. 

The issue is some ID's have multiple biopsies that are within the 52 +/- 13.035wks interval, and subsequent time frames.  How do I code SAS to choose the bx_# that is closest to the central value within the time frame? 

Here is the code I have so far, which works only if there was only one biopsy grade per 52 weeks. I am trying to code the new variable acr_1yr in this example. 

data work.cleaning;
set work.cleaning;
**Biopsy 1 Year***
**ACR**;
if tt_bx1>=39.108 and tt_bx1<=65.178 then acr_1yr=bx1_acr;
if tt_bx2>=39.108 and tt_bx2<=65.178 then acr_1yr=bx2_acr;
if tt_bx3>=39.108 and tt_bx3<=65.178 then acr_1yr=bx3_acr;
if tt_bx4>=39.108 and tt_bx4<=65.178 then acr_1yr=bx4_acr;
if tt_bx5>=39.108 and tt_bx5<=65.178 then acr_1yr=bx5_acr;
if tt_bx6>=39.108 and tt_bx6<=65.178 then acr_1yr=bx6_acr;
if tt_bx7>=39.108 and tt_bx7<=65.178 then acr_1yr=bx7_acr;
if tt_bx8>=39.108 and tt_bx8<=65.178 then acr_1yr=bx8_acr;
if tt_bx9>=39.108 and tt_bx9<=65.178 then acr_1yr=bx9_acr;
if tt_bx10>=39.108 and tt_bx10<=65.178 then acr_1yr=bx10_acr;
run;

Any help would be appreciated.

[mkeintz]

I've renamed your variables to make it easier to list them.  In the absence of sample data, this program is untested:

data want (drop=i _:);
  set have;
  array  tt {10} tt_bx1  - tt_bx10;
  array  bx {10} bx_acr1 - bx_acr10;

  acr_yr {5}  acr_yr1-acr_yr5;

  do _year=1 to 5;
    _target = 52 * _year;
    _mindist = .;
    do i=1 to n(of tt{*});
      if -13.035<=(tt{i}-_target)<=13.035 then do;
        _distance=abs(tt{i}-_target);
        if _distance=min(_distance,_mindist) then do;
          _mindist=_distance;
          acr_yr{_year}=bx{i};
        end;
      end;
    end;
  end;
run;

[PaigeMiller]

I have to admit, that given your explanation, there seem to be some steps missing in my mind in order to make sense of your code.

Nevertheless, it seems to me that you can use PROC STDIZE to subtract the mean from each variable. In the resulting data set, the reading closest to zero in absolute value is the one you want (I think).