function r8vec_correlation_test ( )

%*****************************************************************************80
%
%% r8vec_correlation_test() tests r8vec_correlation().
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    11 August 2019
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'r8vec_correlation_test:\n' );
  fprintf ( 1, '  r8vec_correlation computes the correlation of two R8VEC''s.\n' );

  n = 6;
  v1 = [ 43; 21; 25; 42; 57; 59 ];
  r8vec_print ( n, v1, '  Vector V1:' );
  v2 = [ 99; 65; 79; 75; 87; 81 ];
  r8vec_print ( n, v2, '  Vector V2:' );

  value = r8vec_correlation ( n, v1, v2 );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  V1 V2 Correlation coefficient r = %g\n', value );

  return
end
