/********************************************************************
*                                                                   *
*  TEC98_03.SAS  Ver.1.0 by K.T.  1998/07/09(木) 08:28:36           *
*                                                                   *
*  目的：データの合成                                               *
*                                                                   *
*    各オブザベーションに現れる変数のデータセット全体の平均値からの *
*    差分を求める（平均偏差をオブザベーションごとに求める）。       *
*                                                                   *
*   ORG. HIZO9403.SAS  BY K.T. 1994/04/01                           *
********************************************************************/
DATA d1;
	INFILE CARDS;
    INPUT id taiju sincho;
CARDS;
001 55 166
002 68 182
003 52 166
004 49 158
007 63 163
008 39 152
009 62 166
010 65 160
;
PROC MEANS; VAR sincho taiju; OUTPUT OUT=m1 MEAN=msin mtai;
DATA d2;
   IF _N_=1 THEN SET m1;
   SET d1;
   difsin=sincho-msin;
   diftai=taiju-mtai;
   KEEP id sincho msin difsin taiju mtai diftai;
RUN;
PROC PRINT;