[Octave-cvsupdate] SF.net SVN: octave:[10039] trunk/octave-forge/main/econometrics/inst

[<tho...@us...>]

Revision: 10039
          http://octave.svn.sourceforge.net/octave/?rev=10039&view=rev
Author:   thomas-weber
Date:     2012-03-24 18:58:52 +0000 (Sat, 24 Mar 2012)
Log Message:
-----------
Replace deprecated function calls

Modified Paths:
--------------
    trunk/octave-forge/main/econometrics/inst/gmm_example.m
    trunk/octave-forge/main/econometrics/inst/gmm_results.m

Modified: trunk/octave-forge/main/econometrics/inst/gmm_example.m
===================================================================
--- trunk/octave-forge/main/econometrics/inst/gmm_example.m	2012-03-24 18:38:45 UTC (rev 10038)
+++ trunk/octave-forge/main/econometrics/inst/gmm_example.m	2012-03-24 18:58:52 UTC (rev 10039)
@@ -25,7 +25,7 @@
 w = [x, rand(n,1)];
 theta_true = ones(k,1);
 lambda = exp(x*theta_true);
-y = poisson_rnd(lambda);
+y = poissrnd(lambda);
 [xs, scalecoef] = scale_data(x);
 
 # The arguments for gmm_estimate

Modified: trunk/octave-forge/main/econometrics/inst/gmm_results.m
===================================================================
--- trunk/octave-forge/main/econometrics/inst/gmm_results.m	2012-03-24 18:38:45 UTC (rev 10038)
+++ trunk/octave-forge/main/econometrics/inst/gmm_results.m	2012-03-24 18:58:52 UTC (rev 10039)
@@ -88,7 +88,7 @@
 	df = n - k;
 	if df > 0
 		clabels = char("Value","df","p-value");
-		a = [n*obj_value, df, 1 - chisquare_cdf(n*obj_value, df)];
+		a = [n*obj_value, df, 1 - chi2cdf(n*obj_value, df)];
 		printf("\n");
 		prettyprint(a, junk, clabels);
 	else
@@ -96,7 +96,7 @@
 	end;
 
 	# results for parameters
-	a =[theta, se, theta./se, 2 - 2*normal_cdf(abs(theta ./ se))];
+	a =[theta, se, theta./se, 2 - 2*normcdf(abs(theta ./ se))];
 	clabels = char("estimate", "st. err", "t-stat", "p-value");
 	printf("\n");
 	prettyprint(a, names, clabels);

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.