Commit 83fc3550 authored by Radford Neal's avatar Radford Neal

fix to matprod testing

parent 44444cec
......@@ -61,6 +61,10 @@ check_matprod <- function (print=TRUE)
C
}
# Set seed to get consistent results.
set.seed(1)
# Try various sizes systematically.
cat("---- (0..11) (0..11) (0..11)\n")
......@@ -105,8 +109,6 @@ check_matprod <- function (print=TRUE)
# Try various sizes randomly. Can increase loop count for more testing
# by setting the environment variable R_MATPROD_TEST_COUNT (minimum 200).
set.seed(1) # Set seed to get consistent results.
count <- as.integer(Sys.getenv("R_MATPROD_TEST_COUNT"))
if (is.na(count) || count < 200) count <- 200
......
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment