options nodate nonumber ps=55 ls=80;

title 'RPD -- Example 2.2';

proc iml;

A={2 4 6, 1 2 3, 5 7 9};

DET_A=det(A);

print A DET_A;

run;