# HG changeset patch
# User schloegl
# Date 1433139055 0
# Node ID f08be388fde888f4453d40c9402edc5c41a9908c
# Parent  01272b2792d18d0f922d6f10d5c2b1fd9d47b5c1
bug #38170 fixed (inaccurate normcdf)

diff -r 01272b2792d1 -r f08be388fde8 extra/NaN/inst/normcdf.m
--- a/extra/NaN/inst/normcdf.m	Sat May 30 23:56:46 2015 +0000
+++ b/extra/NaN/inst/normcdf.m	Mon Jun 01 06:10:55 2015 +0000
@@ -40,7 +40,7 @@
 % allocate output memory and check size of arguments
 z = (x-m)./s;	  % if this line causes an error, input arguments do not fit. 
 
-p = (1 + erf(z/sqrt(2)))/2;
+p = erfc(z/-sqrt(2))/2;
 
 z = (s==0);
 p((x<m) & z) = 0;