function florida_pdf_pop_test ( )

%*****************************************************************************80
%
%% florida_pdf_pop_test() tests florida_pdf_pop().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    01 July 2016
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'florida_pdf_pop_test():\n' );
  fprintf ( 1, '  florida_pdf_pop() constructs a probability distribution function (PDF)\n' );
  fprintf ( 1, '  from a vector of population data.\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 PDF.
%
  pdf = florida_pdf_pop ( pop );
%
%  Get the size of the data.
%
  n = length ( lon );
%
%  Print some of the data.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, '       #        GEOID       POP             PDF\n' );
  fprintf ( 1, '\n' );
  for i = 1 : n
    if ( i <= 10 || n - 9 <= i )
      fprintf ( 1, '%8d  %11d  %8d  %14.6g\n', i, geoid(i), pop(i), pdf(i) );
    elseif ( i == 11 )
      fprintf ( 1, '........  ...........  ........  ..............\n' );
    end
  end 

  return
end
