Mercurial > octave-nkf
diff scripts/statistics/models/logistic_regression_likelihood.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 | fd0a3ac60b0e |
line wrap: on
line diff
--- a/scripts/statistics/models/logistic_regression_likelihood.m Thu Nov 08 01:09:44 2007 +0000 +++ b/scripts/statistics/models/logistic_regression_likelihood.m Thu Nov 08 02:29:24 2007 +0000 @@ -29,6 +29,10 @@ function [g, g1, p, dev] = logistic_regression_likelihood (y, x, beta, z, z1) + if (nargin != 5) + print_usage (); + endif + e = exp ([z, x] * beta); e1 = exp ([z1, x] * beta); g = e ./ (1 + e); g1 = e1 ./ (1 + e1); g = max (y == max (y), g); g1 = min (y > min(y), g1);