* Quiz2 Example;
* Compute course scores and final grades;
* One line is used for three observations;

options linesize=70 nodate pageno=1;
data quiz;
   infile 'c:/datasets/quiz2.txt' firstobs=3;
   input name $CHAR10. (q1-q5) (1.) 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;