Mercurial > octave-nkf

diff scripts/statistics/models/logistic_regression_derivatives.m @ 7125:f084ba47812b
[project @ 2007-11-08 02:29:23 by jwe]
author: jwe
date: Thu, 08 Nov 2007 02:29:24 +0000
parents: a1dbe9d80eee
children: d49678a78fb9
--- a/scripts/statistics/models/logistic_regression_derivatives.m	Thu Nov 08 01:09:44 2007 +0000
+++ b/scripts/statistics/models/logistic_regression_derivatives.m	Thu Nov 08 02:29:24 2007 +0000
@@ -29,6 +29,10 @@
 
 function [dl, d2l] = logistic_regression_derivatives (x, z, z1, g, g1, p)
 
+  if (nargin != 6)
+    print_usage ();
+  endif
+
   ## first derivative
   v = g .* (1 - g) ./ p; v1 = g1 .* (1 - g1) ./ p;
   dlogp = [(dmult (v, z) - dmult (v1, z1)), (dmult (v - v1, x))];
@@ -39,4 +43,4 @@
   d2l = [z, x]' * dmult (w, [z, x]) - [z1, x]' * dmult (w1, [z1, x]) ...
       - dlogp' * dlogp;
 
-endfunction
\ No newline at end of file
+endfunction