function florida_cdf_pop_test ( )

%*****************************************************************************80
%
%% FLORIDA_CDF_POP_TEST tests FLORIDA_CDF_POP.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    30 June 2016
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'FLORIDA_CDF_POP_TEST:\n' );
  fprintf ( 1, '  FLORIDA_CDF_POP constructs a cumulative distribution function (CDF)\n' );
  fprintf ( 1, '  from a vector of population data.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Note that CDF is indexed 1 through N+1.\n' );
%
%  Read the longitude, latitude, population and geoid of each census tract.
%
  filename = 'florida_census.csv';
  [ lon, lat, pop, geoid ] = florida_census_reader ( filename );
%
%  Construct the CDF.
%
  cdf = florida_cdf_pop ( pop );
%
%  Get the size of the data.
%
  n = length ( lon );
%
%  Print some of the data.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, '       #        GEOID       POP             CDF\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '%8d                         %14.6g\n', 0, cdf(1) );
  for i = 1 : n
    if ( i <= 10 || n - 9 <= i )
      fprintf ( 1, '%8d  %11d  %8d  %14.6g\n', i, geoid(i), pop(i), cdf(i+1) );
    elseif ( i == 11 )
      fprintf ( 1, '........  ...........  ........  ..............\n' );
    end
  end 

  return
end
