Diff of /classic-bugs/R/check.R [1771d5] .. [a03147]  Maximize  Restore

Switch to side-by-side view

--- a/classic-bugs/R/check.R
+++ b/classic-bugs/R/check.R
@@ -1,5 +1,5 @@
-library(coda)
-x <- read.openbugs()
+library(coda, quietly=TRUE)
+x <- read.openbugs(quiet=TRUE)
 checkstats <- summary(x)$statistics
 if (is.matrix(benchstats)) {
   rnb <- order(rownames(benchstats))
@@ -11,8 +11,4 @@
   z <- ifelse(z==0, 0, z/benchstats[2])
 }
 print(z)
-if (any(abs(z) > 0.15)) {
-  stop("FAIL")
-} else {
-  cat("OK\n")
-}
+q(status=(any(abs(z) > 0.15)))

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks