restart;
with(Student[LinearAlgebra]);
with(RandomTools);
L:=[seq([k+Generate(float(range=0.5..1.5,digits=4)),2*k*Generate(float(range=0.8..2.2,digits=4))-Generate(float(range=0.5..1.5,digits=4))],k=0..11)];
infolevel[Student[LinearAlgebra]] := 1:
LeastSquaresPlot(L, [x, y], boxoptions=[color = magenta]);