Mon Feb 24 07:57:57 2020 

linterp_test
  R version 3.4.4 (2018-03-15) 
  linterp computes the intercept and slope of the line through two points.

  (x1,y1) = ( 2 , 3 )
  (x2,y2) = ( 0 , -1 )

  p <- linterp ( x1, y1, x2, y2 )

[1] -1  2

  Line is y =  2  x +  -1 
  y3 <- horner ( x3, p )
   1  <- horner (  1 , p )

linterp_test
  Normal end of execution.
Mon Feb 24 07:57:57 2020