FILENAME egdata URL "http://www.stat.wmich.edu/naranjo/sas/nhanes.txt";

DATA one;
	INFILE egdata FIRSTOBS=3;
	INPUT gender $ age race $ 19-37 education $ 38-54 fam_inc poverty 
              weight height bmi sys_bp dias_bp cholest glucose;

/*CREATE NEW DATA SET WITH NEW VARIABLES AS FUNCTIONS OF EXISTING VARIABLES*/
DATA two;
	SET one;
	bpdiff=sys_bp-dias_bp;
	bpratio = sys_bp/dias_bp;
	IF bmi<30.0 THEN weight2='Normal';
        ELSE weight2='Obese';
	RUN;

/*CREATE SUBSET DATA SET (SELECTED VARIABLES, SELECTED OBSERVATIONS)*/
DATA three;   
        SET two (keep = age gender race sys_bp dias_bp bpdiff bpratio bmi weight2);
        IF race="Black" or race="White";
        IF 20<age<60;
	RUN;

PROC PRINT DATA=three;
	VAR age gender race sys_bp dias_bp bpdiff bpratio bmi weight2;
	RUN;
QUIT;