Select Code to Download

  use Statistics::Regression;

...
  $reg->include( 1.0, [ 1.0, 5.0, 2.0 ] );
  $reg->include( 20.0, [ 1.0, 31.0, 0.0 ] );
  $reg->include( 15.0, [ 1.0, 11.0, 2.0 ] );

 $predictedY = $Theta[0] + $X * $Theta[1] + $X**2*Theta[2] ... $X**3*T
+heta[n];