update re Fortran/PGPLOT

README.md

@@ -18,10 +18,7 @@ Of course, they also work in perl scripts.
 
 - PDL
 
-  Perl Data Language. Preferably installed with a Fortran compiler. A
-  few methods (logistic regression and all plotting methods) will only
-  work with a Fortran compiler and some methods (ordinary least squares
-  regression and pca) work much faster with a Fortran compiler.
+  Perl Data Language.
 
   The required PDL version is 2.057.
 
@@ -35,11 +32,10 @@ Of course, they also work in perl scripts.
 - PGPLOT (Optional)
 
   PDL-Stats currently uses PGPLOT for plotting. There are
-  three pgplot/PGPLOT modules, which cause much confusion upon
+  two pgplot/PGPLOT modules, which cause much confusion upon
   installation. First there is the pgplot Fortran library. Then there is
-  the perl PGPLOT module, which is the perl interface to pgplot. Finally
-  there is PDL::Graphics::PGPLOT, which depends on pgplot and PGPLOT,
-  that PDL-Stats uses for plotting.
+  the perl PGPLOT module, which is the perl interface to pgplot, including
+  PDL::Graphics::PGPLOT, that PDL-Stats uses for plotting.
 
 ## INSTALLATION
 

lib/PDL/Stats/Kmeans.pd

@@ -27,7 +27,7 @@ The terms FUNCTIONS and METHODS are arbitrarily used to refer to methods that ar
 =head1 SYNOPSIS
 
 Implement a basic k-means procedure,
- 
+
     use PDL::LiteF;
     use PDL::NiceSlice;
     use PDL::Stats;
@@ -55,15 +55,11 @@ or, use the B<kmeans> function provided here,
 
 plot the clusters if there are only 2 vars in $data,
 
-    use PDL::Graphics::PGPLOT::Window;
+    use PDL::Graphics::Simple;
 
     my ($win, $c);
-    $win = pgwin 'xs';
-    $win->env($data( ,0)->minmax, $data( ,1)->minmax);
-
-    $win->points( $data->dice_axis(0,which($k{cluster}->(,$_)))->dog,
-                  {COLOR=>++$c} )
-      for (0 .. $k{cluster}->dim(1)-1);
+    $win = pgswin();
+    $win->plot(map +(with=>'points', $data->dice_axis(0,which($k{cluster}->(,$_)))->dog), 0 .. $k{cluster}->dim(1)-1);
 
 =cut