function data_to_dif_test ( )

%*****************************************************************************80
%
%% data_to_dif_test() tests data_to_dif().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    15 November 2019
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'data_to_dif_test():\n' );
  fprintf ( 1, '  data_to_dif() computes the Newton polynomial coefficients\n' );
  fprintf ( 1, '  for a divided difference interpolant, from data;\n' );
%
%  Set XTAB, YTAB to X, exp(x).
%
  ntab = 4;
  xtab = 1:ntab;
  ytab(1:ntab) = exp ( xtab(1:ntab) );

  r8vec2_print ( ntab, xtab, ytab, '  The data to be processed:' );

  diftab = data_to_dif ( ntab, xtab, ytab );

  dif_print ( ntab, xtab, diftab, '  The divided difference polynomial:' );

  return
end

