diff --git a/DESCRIPTION b/DESCRIPTION index 4dcd86b..a03267e 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,12 +1,12 @@ Package: NORMT3 Title: Evaluates complex erf, erfc and density of sum of Gaussian and Student's t -Version: 1.0 -Date: 2005-01-07 +Version: 1.0-1 +Date: 209-02-137 Author: Guy Nason Maintainer: Guy Nason Description: Evaluates the probability density function of the sum of the Gaussian and Student's t density on 3 degrees of freedom. Evaluates the p.d.f. of the sphered Student's t density function. Also evaluates the erf and erfc functions on complex-valued arguments. -License: GPL version 2 or newer -Packaged: Mon Jan 10 09:49:09 2005; magpn +License: GPL (>= 2) +Packaged: Fri Feb 13 14:50:55 2009; ripley diff --git a/man/erfc.Rd b/man/erfc.Rd index 4a24753..1cec605 100644 --- a/man/erfc.Rd +++ b/man/erfc.Rd @@ -2,9 +2,9 @@ \alias{erfc} \title{Complementary error function} \description{ - Computes the complementary error function of a (possibly) complex - valued argument. This function is - $2/\sqrt{\pi} \int_{z}^{\infty} \exp^{-t^2} dt$. + Computes the complementary error function of a (possibly) complex + valued argument. This function is + \deqn{2/\sqrt{\pi} \int_{z}^{\infty} \exp^{-t^2} dt}. } \usage{ erfc(z) @@ -13,20 +13,22 @@ erfc(z) \item{z}{Argument of complementary error function} } \details{ - Computes the complementary error function of a (possibly) complex - valued argument. This function is - $2/\sqrt{\pi} \int_{z}^{\infty} \exp^{-t^2} dt$. This function - actually calls FORTRAN code (algorithm TOMS 680) which computes - the Faddeeva's function and then with a slight modification - obtains the erfc function of a complex-valued argument. + Computes the complementary error function of a (possibly) complex + valued argument. This function is + \deqn{2/\sqrt{\pi} \int_{z}^{\infty} \exp^{-t^2} dt} + + This function actually calls FORTRAN code (algorithm TOMS 680) + which computes the Faddeeva's function and then with a slight + modification obtains the erfc function of a complex-valued + argument. } \value{ - The complementary error function of z + The complementary error function of z } \references{ -Poppe, G.P.M. and Wijers, C.M.J. (1990) More efficient computation of the - complex error function. \emph{ACM Transactions on Mathematical - Software}, \bold{16}, 38--46. + Poppe, G.P.M. and Wijers, C.M.J. (1990) More efficient computation of the + complex error function. \emph{ACM Transactions on Mathematical + Software}, \bold{16}, 38--46. } \author{Guy P. Nason, Department of Mathematics, University of Bristol} diff --git a/man/ic1.Rd b/man/ic1.Rd index 93df5ce..1bbb6d7 100644 --- a/man/ic1.Rd +++ b/man/ic1.Rd @@ -2,12 +2,12 @@ \alias{ic1} \title{Compute IC1 formula from Nason (2005) } \description{ - Computes $I_{C1}(p,d) = \int_{d}^{\infty} \cos (px) \exp (-x^2) dx$} + Computes + \deqn{I_{C1}(p,d) = \int_{d}^{\infty} \cos (px) \exp (-x^2) dx} } \usage{ ic1(p, d) } -%- maybe also 'usage' for other objects documented here. \arguments{ \item{p}{ Argument for IC1 function} \item{d}{ Argument for IC1 function} diff --git a/man/is1.Rd b/man/is1.Rd index c611db9..d07390d 100644 --- a/man/is1.Rd +++ b/man/is1.Rd @@ -2,12 +2,12 @@ \alias{is1} \title{Compute IS1 formula from Nason (2005) } \description{ - Computes $I_{S1}(p,d) = \int_{d}^{\infty} \cos (px) \exp (-x^2) dx$} + Computes + \deqn{I_{S1}(p,d) = \int_{d}^{\infty} \cos (px) \exp (-x^2) dx} } \usage{ is1(p, d) } -%- maybe also 'usage' for other objects documented here. \arguments{ \item{p}{ Argument for IS1 function} \item{d}{ Argument for IS1 function} diff --git a/src/IPerfcvec.c b/src/IPerfcvec.c index f64bdd6..0f24661 100644 --- a/src/IPerfcvec.c +++ b/src/IPerfcvec.c @@ -19,10 +19,10 @@ (computed by TOMS routine 680). Zero means no error. */ -void IPerfcvec(double *x, double *y, double *ansx, double *ansy, long *n, - long *error) +void IPerfcvec(double *x, double *y, double *ansx, double *ansy, int *n, + int *error) { -long i; +int i; int flag; void IPerfc(); void wofz_(); @@ -42,7 +42,7 @@ for(i=0; i< *n; ++i) { } } -void IPerfc(double *a, double *b, double *outa, double *outb, long *error) +void IPerfc(double *a, double *b, double *outa, double *outb, int *error) { double f; double g; diff --git a/src/README b/src/README deleted file mode 100644 index 1d13add..0000000 --- a/src/README +++ /dev/null @@ -1,3 +0,0 @@ -Put C/C++/Fortran code here. -If you have compiled code, add a .First.lib() function -in the 'R' subdirectory to load it.