#*****************************************************************************80
#
## nn_test tests nn.
#
#  Licensing:
#
#    Copyright 2016 James P. Howard, II
#
#    The computer code and data files on this web page are distributed under
#    https://opensource.org/licenses/BSD-2-Clause, the BSD-2-Clause license.
#
#  Modified:
#
#    27 February 2020
#
#  Author:
#
#    John Burkardt
#
cat ( date ( ), "\n" )
cat ( "\n" )
cat ( "nn_test\n" )
cat ( " ", version$version.string, "\n" )
cat ( "  nn computes nearest neighbor interpolation.\n" )

source ( "/home/burkardt/public_html/r_src/nn/nn.R" )  

p <- matrix ( c ( 5, 4, 2, 1, 6, 7, 5, 0, 3, 2, 6, 5, 3, 2, 3, 4, 4, 7, 0, 8 ), 4 )
cat ( "\n" )
cat ( "  q:\n" )
cat ( "\n" );
print ( p )

y <- c ( 6, 2, 4, 5 )
cat ( "\n" )
cat ( "  y:\n" )
cat ( "\n" );
print ( y )

q <- matrix ( c ( 6, 7, 5, 6, 7 ), 1 )
cat ( "\n" )
cat ( "  q:\n" )
cat ( "\n" );
print ( q )

ynew <- nn ( p, y, q )
cat ( "\n" )
cat ( "  ynew <- nn ( p, y, q )\n" )
cat ( "\n" )
print ( ynew )
#
#  Terminate.
#
cat ( "\n" )
cat ( "nn_test\n" )
cat ( "  Normal end of execution.\n" )
cat ( date ( ), "\n" )

quit ( )