options pagesize=53;
options linesize=76;
title 'Exercise 12, p. 139 of FPPA';
data exer12;
  input count1 count2;
  label count1='First Count of Dots'
        count2='Second Count of Dots';
  datalines;
    91 85
    81 83
    86 85
    83 84
    85 85
    85 84
    85 89
    84 83
    91 82
    91 82
    91 82
    85 85
    85 85
    87 85
    90 85
  run;
proc corr;
  var count1 count2;
proc corr;
  var count1;
  with count2;
proc plot;
  plot count2*count1='*';
run;