Table 5.1

> with( linalg ):

> DATA := matrix( 32,2, [ [`Temp (C)`, `DO (mg/L)`],

> [0,14.6],[1,14.2],[2,13.9],[3,13.5],[4,13.1],[5,12.8],[6,12.5],[7,12.1],[8,11.8],[9,11.6],

> [10,11.3],[11,11.0],[12,10.8],[13,10.5],[14,10.3],[15,10.1],[16,9.9],[17,9.7],[18,9.5],[19,9.3],

> [20,9.1],[21,8.9],[22,8.7],[23,8.6],[24,8.4],[25,8.3],[26,8.1],[27,8.0],[28,7.8],[29,7.7],

> [30,7.6]] ):

> evalm( DATA );