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 );