function data_to_r8poly_test ( )

%*****************************************************************************80
%
%% data_to_r8poly_test() tests data_to_r8poly().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    17 November 2019
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'data_to_r8poly_test():\n' );
  fprintf ( 1, '  data_to_r8poly() computes the standard polynomial\n' );
  fprintf ( 1, '  coefficients for an interpolant, from data;\n' );
%
%  Set XTAB, YTAB to X, exp(x).
%
  n = 4;
  x = 1:n;
  y = exp ( x );
  r8vec2_print ( n, x, y, '  The data to be processed:' );

  c = data_to_r8poly ( n, x, y );
  r8poly_print ( c, '  The interpolating polynomial:' );

  return
end

