Lineare Regression

<< Statistics`LinearRegression`

linear = 
        Column[ReadList["linear.txt", {Real, Real, Real}], {1, 
            2}];

linearregress = Regress[linear, {1, x}, x]

a = linearregress[[1]][[2]][[1]][[1]][[1]]; Δa = linearregress[[1]][[2]][[1]][[1]][[2]]; 
    b = linearregress[[1]][[2]][[1]][[2]][[1]]; Δb = linearregress[[1]][[2]][[1]][[2]][[2]];

DisplayTogether[ListPlot[linear], 
      Plot[Evaluate[{b x  + a,  (b +  Δb) x + 
              a + Δa, (b - Δb) x + 
              a - Δa}], {x, 0, 18}, 
        PlotStyle -> {Dashing[{ .0}], Dashing[{0.01}], 
            Dashing[{ .01}]}], ImageSize -> 800]