[R-gregmisc-users] SF.net SVN: r-gregmisc:[2029] pkg/gtools/tests/test_ddirichlet.R

[<wa...@us...>]

Revision: 2029
          http://sourceforge.net/p/r-gregmisc/code/2029
Author:   warnes
Date:     2015-05-25 14:30:24 +0000 (Mon, 25 May 2015)
Log Message:
-----------
Add library call.

Modified Paths:
--------------
    pkg/gtools/tests/test_ddirichlet.R

Modified: pkg/gtools/tests/test_ddirichlet.R
===================================================================
--- pkg/gtools/tests/test_ddirichlet.R	2015-05-25 14:29:59 UTC (rev 2028)
+++ pkg/gtools/tests/test_ddirichlet.R	2015-05-25 14:30:24 UTC (rev 2029)
@@ -1,5 +1,4 @@
-## Bug reported by John Nolan:
-
+## Regression test for bug reported by John Nolan:
 ##
 ## Whenever the pair (x[i], a[i]) == (0,1), NA would be returned, due
 ## to an internal computation of ( 0 * -Inf ) => NaN
@@ -7,6 +6,8 @@
 ## The code now checks for this particular issue and sets the value of
 ## ( 0 * -Inf ) to 0, which is correct for this calculation.
 ##
+library(gtools)
+
 x = c(0,0,1)
 alpha = c(1,2,3)
 

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