Sat Mar  7 18:45:18 2020 

adaptint_test
  R version 3.4.4 (2018-03-15) 
  adaptint estimates an integral using an adaptive midpoint method.

  f(x) = ( sin ( x ) )^2 + log ( x )

  adaptint ( f,  1 , 10 , n =  4  ) =  18.53653 
  adaptint ( f,  1 , 10 , n =  5  ) =  18.52788 
  adaptint ( f,  1 , 10 , n =  6  ) =  18.52568 

adaptint_test
  Normal end of execution.
Sat Mar  7 18:45:18 2020