* Quiz3 Example;
* Compute course scores and final grades;
* Three lines are used for one observation;

options linesize=70 nodate pageno=1;
data quiz;
   infile 'c:/datasets/quiz3.txt';
   length name $ 10;
   input name $
      #2 (q1-q5) (1.) 
      #3 midterm final;
   if final = . then final = 0;
   quiz_ave = mean(q1,q2,q3,q4,q5);
   course_score = quiz_ave * 8.0 + midterm * 0.3 + final * 0.3;
   if course_score >= 90.0 then grade = 'A';
   else if course_score >= 80.0 then grade = 'B';
   else if course_score >= 70.0 then grade = 'C';
   else if course_score >= 60.0 then grade = 'D';
   else grade = 'F';

proc print;
   var name course_score grade;

run;
quit;