PROC IMPORT OUT= WORK.faithful
            DATAFILE= "Z:\764-F11\data\faithful.txt" 
            DBMS=TAB REPLACE;
     GETNAMES=YES;
     DATAROW=2; 
RUN;

ODS GRAPHICS ON;
PROC KDE DATA=Faithful;
	UNIVAR Waiting / UNISTATS PLOTS=(density histdensity);
RUN;
ODS GRAPHICS OFF;

ODS GRAPHICS ON;
PROC KDE DATA=Faithful;
	BIVAR Eruptions Waiting / UNISTATS PLOTS=(contour histogram surface);
RUN;
ODS GRAPHICS OFF;

PROC IMPORT OUT= WORK.heart
            DATAFILE= "Z:\764-F11\data\heart.txt" 
            DBMS=TAB REPLACE;
     GETNAMES=YES;
     DATAROW=2; 
RUN;

DATA heart;
  SET heart;
  TypeA_CHD = TypeA;
  TypeA_NoCHD = TypeA;
  IF (CHD eq 1) THEN TypeA_NoCHD = .;
  IF (CHD eq 0) THEN TypeA_CHD = .;
RUN;

ODS GRAPHICS ON;
PROC KDE DATA=Heart;
	UNIVAR TypeA_CHD TypeA_NoCHD / plots=densityoverlay;
RUN;
ODS GRAPHICS OFF;

PROC UNIVARIATE Data=Faithful;
  VAR Waiting;
  HISTOGRAM Waiting / KERNEL;
RUN;