#*****************************************************************************80
#
## ninety_histogram uses a histogram to find outliers in 90 data values.
#
# Discussion:
#
# Because the number of data points is fairly large, we hope that a
# histogram will show us whether any values are outliers.
#
# Licensing:
#
# This code is distributed under the GNU LGPL license.
#
# Modified:
#
# 28 August 2020
#
# Author:
#
# John Burkardt
#
cat ( date ( ), "\n" )
cat ( "\n" )
cat ( "ninety_histogram\n" )
cat ( " ", version$version.string, "\n" )
cat ( " Read a text file of 90 values, and create a histogram" )
cat ( " that will expose outliers as isolated values." )
filename = "ninety_data.txt"
data <- read.table ( filename, header = FALSE )
filename = "ninety_histogram.png"
png ( filename )
hist ( data[,1],
xlab = "Data values",
ylab = "Frequency",
main = "ninety: Looking for Outliers",
col = "red" )
grid ( )
cat ( ' Graphics saved as "', filename, '"\n' )
#
# Terminate.
#
cat ( "\n" )
cat ( "ninety_histogram\n" )
cat ( " Normal end of execution.\n" )
quit ( )