Sat Mar 14 12:49:21 2020 

goldsectmax_test
  R version 3.4.4 (2018-03-15) 
  goldsectmax seeks the root of an equation using the goldsectmax method.

  goldsectmax(-x^2+4*x+1, 1, 3, 1.0-3) =  2.00028 

goldsectmax_test
  Normal end of execution.
Sat Mar 14 12:49:21 2020