[Rcpp-commits] r1935 - pkg/Rcpp/inst/unitTests

[noreply at r-forge.r-project.org]

Author: dmbates
Date: 2010-08-06 04:21:09 +0200 (Fri, 06 Aug 2010)
New Revision: 1935

Modified:
   pkg/Rcpp/inst/unitTests/runit.stats.R
Log:
reactivate tests of pbinom and qbinom after correcting the bugs


Modified: pkg/Rcpp/inst/unitTests/runit.stats.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.stats.R	2010-08-06 02:20:16 UTC (rev 1934)
+++ pkg/Rcpp/inst/unitTests/runit.stats.R	2010-08-06 02:21:09 UTC (rev 1935)
@@ -254,7 +254,6 @@
 }
 
 test.stats.pbinom <- function( ) {
-    DEACTIVATED("stats.pbinom currently fails")
     fx <- .rcpp.stats$runit_pbinom
     n <- 20
     p <- 0.5
@@ -269,7 +268,6 @@
 }
 
 test.stats.qbinom <- function( ) {
-    DEACTIVATED("stats.qbinom currently fails")
     fx <- .rcpp.stats$runit_qbinom_prob
     n <- 20
     p <- 0.5
@@ -282,7 +280,6 @@
 }
 
 test.stats.pbinom.fixed <- function( ) {
-    DEACTIVATED("stats.pbinom.fixed currently fails")
     fx <- .rcpp.stats$runit_pbinom_fixed
     vv <- 0:20
     checkEquals(fx(vv),
@@ -295,7 +292,6 @@
 }
 
 test.stats.qbinom.fixed <- function( ) {
-    DEACTIVATED("stats.qbinom.fixed currently fails")
     fx <- .rcpp.stats$runit_qbinom_prob_fixed
     vv <- seq(0, 1, by = 0.1)
     checkEquals(fx(vv),