OPTIONS LINESIZE=72 PAGESIZE=55 NODATE NONUMBER NOCENTER;
******************************************************************;
*** Program Name Date Disk Label Programmer                       ;
TITLE1 "Source: MN2.SAS 10/13/98 Ed Stanek "                      ;
* DESCRIPTION: Read ICU data and get means of all vars            ;
*    Use:   ICUa.SD2                                              ;
******************************************************************;
LIBNAME old "C:\temp";

DATA icua;
 SET old.icua;


PROC CONTENTS DATA=icua POSITION;
  TITLE2 "Table 1a1.  Contents of ICUA.SD2 with Position of Variables";

PROC MEANS ;
  TITLE2 "Table 1a2.  List of Means for All Variables in ICU Study";



OPTIONS LINESIZE=72 PAGESIZE=55 NODATE NONUMBER NOCENTER NOLABEL;
PROC MEANS ;
  TITLE2 "Table 1a3.  Suppressing Labels in Getting Means for All Variables in ICU Study";

PROC MEANS  ;
  VAR sta--sys;
  TITLE2 "Table 1b1. Subsetting variables by Position of Original Entry";

PROC MEANS  ;
  VAR age sys;
  TITLE2 "Table 1b2. Specifing Variables for Descriptive Statistics";


PROC MEANS  N MEAN RANGE VAR;
  VAR age sys;
  TITLE2 "Table 1b3. Specifing Variables and Statistics";




PROC MEANS  FW=8 N MEAN VAR;
  VAR age sys;
  TITLE2 "Table 1c1. Controlling Width of Printed statistics";

PROC MEANS  FW=8 MAXDEC=4 N MEAN VAR;
  VAR age sys;
  TITLE2 "Table 1c2. Controlling width and decimal point place of descriptive statistics";


PROC MEANS  FW=8 MAXDEC=4 VARDEF=N  N MEAN VAR;
  VAR age sys;
  TITLE2 "Table 1d1. Obtaining Population Variance (division by N)";

DATA icub;
  SET icua;
  *****************************************************;
  *** Create difference from 140 SBP to test hypothesis;
  *****************************************************;
  LABEL sys140="SBP-140/SYS140";
  sys140=sys-140;


PROC MEANS  DATA=icub FW=8 MAXDEC=4 VARDEF=N  MEAN VAR T PRT;
  VAR sys sys140;
  TITLE2 "Table 1d2. Obtaining T-test for Test of Zero Mean";




RUN;