#*****************************************************************************80
#
## abc_test() tests abc().
#
#  Discussion:
#
#    R and my brain are orthogonal.
#
#  Licensing:
#
#    This code is distributed under the MIT license.
#
#  Modified:
#
#    11 May 2021
#
#  Author:
#
#    John Burkardt
#
cat ( date ( ), "\n" )
cat ( "\n" )
cat ( "abc_test():\n" )
cat ( " ", version$version.string, "\n" )
cat ( "  Test abc(), with the interface:\n" )
cat ( "    [a_out,b_out,c_out] = abc(a_in,b_in,c_in)\n" )
cat ( "\n" )

source ( "/home/burkardt/public_html/r_src/persistence/abc.R" )

output <- abc ( )
a_out <- output[1]
b_out <- output[2]
c_out <- output[3]
cat ( "   ", a_out, ",", b_out, ",", c_out, " = abc ( )\n" )

a_in <- a_out
b_in <- 19
c_in <- c_out
output <- abc ( a_in = a_in, b_in = b_in, c_in = c_in )
cat ( "    abc (", a_in, ",", b_in, ",", c_in, ")\n" )

output <- abc ( )
a_out <- output[1]
b_out <- output[2]
c_out <- output[3]
cat ( "   ", a_out, ",", b_out, ",", c_out, " = abc ( )\n" )

a_in <- 50
b_in <- 60
c_in <- 70
output <- abc ( a_in, b_in, c_in )
a_out <- output[1]
b_out <- output[2]
c_out <- output[3]
cat ( "   ", a_out, ",", b_out, ",", c_out, " = abc (", a_in, ",", b_in, ",", c_in, ")\n" )

output <- abc ( )
a_out <- output[1]
b_out <- output[2]
c_out <- output[3]
cat ( "   ", a_out, ",", b_out, ",", c_out, " = abc ( )\n" )
#
#  Terminate.
#
cat ( "\n" )
cat ( "abc_test():\n" )
cat ( "  Normal end of execution.\n" )
cat ( date ( ), "\n" )

quit ( )