fix tests

psobczyk · Jun 8, 2018 · 8000139 · 8000139
1 parent 166bb9f
commit 8000139
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/tests/testthat/test_mlcc_bic.R b/tests/testthat/test_mlcc_bic.R
@@ -5,7 +5,7 @@ library(varclust)
 test_that("mlcc.bic for small matrix",{
   load("test_data/small_matrix.rda")
   true_segmentation <- rep(1:2, each=50)
-  result <- mlcc.bic(X, numb.clusters = 1:5, max.dim = 2, numb.cores = 1, deterministic = TRUE)
+  result <- mlcc.bic(X, numb.clusters = 1:5, max.dim = 2, numb.cores = 1, seed = 10)
   expect_equal(2, result$nClusters)
   scores <- integration(result$segmentation, true_segmentation)
   expect_equal(scores[1],1)

diff --git a/tests/testthat/test_mlcc_kmeans.R b/tests/testthat/test_mlcc_kmeans.R
@@ -3,7 +3,7 @@ context("Testing mlcc.kmeans")
 library(varclust)
 
 test_that("principal components returned by mlcc.kmeans are in fact principal components of the clusters", {
-  set.seed(1)
+  set.seed(10)
   X <- data.simulation.factors(n=20, K = 2, numb.vars = 50, numb.factors = 5)$X
   result <- mlcc.kmeans(X, number.clusters = 2, max.iter = 1)
   segmentation <- result[[1]]

diff --git a/tests/testthat/test_mlcc_reps.R b/tests/testthat/test_mlcc_reps.R
@@ -4,7 +4,7 @@ library(varclust)
 
 test_that("mlcc.reps on small matrix", {
   load("test_data/small_matrix.rda")
-  result <- mlcc.reps(X, max.dim = 2, numb.cores = 1, deterministic = TRUE)
+  result <- mlcc.reps(X, max.dim = 2, numb.cores = 1, seed = 10)
   true_segmentation <- rep(1:2, each=50)
   scores <- integration(result$segmentation, true_segmentation)
   expect_equal(scores[1],1)
@@ -15,7 +15,7 @@ test_that("perfect segmentation", {
   load("test_data/small_matrix.rda")
   true_segmentation <- rep(1:2, each=50)
   bad_segmentation <- c(rep(1:2, each=25), rep(1:2, each=25))
-  segmentation <- mlcc.reps(X, initial.segmentations = list(true_segmentation, bad_segmentation), numb.cores = 1, deterministic = TRUE)$segmentation
+  segmentation <- mlcc.reps(X, initial.segmentations = list(true_segmentation, bad_segmentation), numb.cores = 1, seed = 10)$segmentation
   expect_equal(segmentation, true_segmentation)
 })