--- a/scripts/statistics/distributions/logistic_rnd.m	Tue Jan 18 19:57:13 2000 +0000
+++ b/scripts/statistics/distributions/logistic_rnd.m	Wed Jan 19 06:59:23 2000 +0000
@@ -14,13 +14,14 @@
 ## along with this file.  If not, write to the Free Software Foundation,
 ## 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
-## usage:  logistic_rnd (r, c)
-##
-## Return an r by c matrix of random numbers from the logistic
-## distribution.
+## -*- texinfo -*-
+## @deftypefn {Function File} {} logistic_rnd (@var{r}, @var{c})
+## Return an @var{r} by @var{c} matrix of random numbers from the
+## logistic distribution.
+## @end deftypefn
 
-## Author:  KH <Kurt.Hornik@ci.tuwien.ac.at>
-## Description:  Random deviates from the logistic distribution
+## Author: KH <Kurt.Hornik@ci.tuwien.ac.at>
+## Description: Random deviates from the logistic distribution
 
 function rnd = logistic_rnd (r, c)
 
@@ -28,11 +29,11 @@
     usage ("logistic_rnd (r, c)");
   endif
 
-  if ( !(is_scalar (r) && (r > 0) && (r == round (r))) )
-    error ("logistic_rnd:  r must be a positive integer");
+  if (! (is_scalar (r) && (r > 0) && (r == round (r))) )
+    error ("logistic_rnd: r must be a positive integer");
   endif
-  if ( !(is_scalar (c) && (c > 0) && (c == round (c))) )
-    error ("logistic_rnd:  c must be a positive integer");
+  if (! (is_scalar (c) && (c > 0) && (c == round (c))) )
+    error ("logistic_rnd: c must be a positive integer");
   endif
 
   rnd = - log (1 ./ rand (r, c) - 1);