OPTIONS MERGENOBY = WARN NODATE LS=95 PS=54;

LIBNAME RWILLIA 'G:\';
*-------------*
	PART I
*-------------*;
TITLE 'PART I';
/* QUESTION 1 */
PROC SORT DATA=Rwillia.CARS_1993 OUT = CARS; 
BY ORIGIN;
RUN;
PROC UNIVARIATE DATA = CARS PLOT;
BY ORIGIN;
VAR highwayMPG;
ID MODEL;
TITLE3 "OUESTION 1";
TITLE4 "ANALYSIS OF HIGHWAY MPG BY ORIGIN";
RUN;
TITLE1 "HW2";

/* PART II */
TITLE2 'PART II: O_RING DATA SET EXERCISES';
PROC CONTENTS DATA=RWILLIA.O_RING;
TITLE3 "QUESTION 1";
RUN;
PROC SORT DATA = RWILLIA.O_RING OUT = O_RING;
BY TD TEMP FLT;
RUN;
PROC PRINT DATA = O_RING LABEL NOOBS;
BY TD;
VAR FLT TEMP;
LABEL TEMP = 'LAUNCH TEMPERATURE';
TITLE3 'QUESTION 2';
RUN;
PROC CHART DATA=O_RING;
VBAR TD / DISCRETE;
TITLE3 'QUESTION 3';
RUN;
PROC CHART DATA = O_RING;
PIE TD / DISCRETE;
TITLE3 'QUESTION 4';
RUN;
PROC CHART DATA = O_RING;
VBAR TD / SUMVAR = TEMP TYPE = MEAN DISCRETE;
TITLE3 'QUESTION 5';
RUN;

DATA= RWILLIA.CLASSRECORDS;
SET 'G:\' RECORDS;
TOTAL = test1 + test2 + test3;
AVERAGE = TOTAL / 3;
PROC PRINT DATA = 'G:\RWILLIA.RECORDS';
TITLE "PART III";
/* QUESTION 1 */
RUN;
PROC SORT DATA = RWILLIA.RECORDS;
BY LAST FIRST SEX COLLEGE CITY ZIP;
RUN;
DATA = 'G:\RWILLIA.CLASSRECORDS';
IF RESIDENT = "N" THEN out=LAST RESIDENT CLASS CITY;
else;
IF EARNHRS GT 60 AND COLLEGE = "AS" OUT = FIRST LAST EARNHRS COLLEGE;
ELSE;
IF ENROLLED  GT 24 OR OVGPA EQ 4.0 OUT = LAST FIRST COLLEGE ENROLLED OVGPA;
PROC PRINT DATA= CLASSRECORDS;
***************
  QUESTION 2 
***************;
RUN;
PROC SORT DATA= CLASSRECORDS;
BY CITY AND STREET OUT = FIRST LAST STREET ZIP AREA PHONE;
RUN;
PROC SORT DATA = CLASSRECORDS;
BY COLLEGE AND LAST FIRST;
RUN;
PROC PRINT DATA = CLASSRECORDS;
***************
	QUESTION 3
***************;
BY COLLEGE OUT = LAST FIRST SEX OVGPA EARNHRS;
RUN;
DATA= RWILLIA.CLASSRECORDS OUT = FIRST LAST GRADE AVERAGE;
LABEL GRADE = "A" "B" "C" "D" "F";
IF AVERAGE >= 90 THEN GRADE = "A";
ELSE;
IF AVERAGE >= 80 THEN GRADE = "B";
ELSE;
IF AVERAGE >= 70 THEN GRADE = "C";
ELSE;
IF AVERAGE >= 60 THEN GRADE = "D";
ELSE;
IF AVERAGE < 60 THEN GRADE = "F";
BY  TEST1 TEST2 TEST3;
PROC PRINT;
*************
 QUESTION 4
*************;
RUN;