#*****************************************************************************80
#
## president_heights_histogram makes a histogram of Presidential heights.
#
#  Licensing:
#
#    This code is distributed under the MIT license.
#
#  Modified:
#
#    28 August 2020
#
#  Author:
#
#    John Burkardt
#
  cat ( '\n' )
  cat ( 'president_heights_histogram:\n' )
  cat ( " ", version$version.string, "\n" )
  cat ( '  Create a histogram of the height in inches of US presidents.\n' )

  filename = "president_heights_data.txt"
  data <- read.table ( filename, header = FALSE )

  filename = "president_heights_histogram.png"
  png ( filename )

  hist ( 
    data[,1],
    main = 'US President Heights',
    xlab = '<-- Height (inches) -->',
    ylab = '<-- Frequency -->',
    col = 'magenta',
    breaks = 10 )

  grid ( )

  cat ( '  Graphics saved as "', filename, '"\n' )
#
#  Terminate.
#
  cat ( '\n' )
  cat ( 'president_heights_histogram:\n' )
  cat ( "  Normal end of execution.\n" )
  quit ( )