Updates due to 'testthat' changes

Author: StuartWheater

tests/testthat/test-smk-miceDS.R

@@ -29,15 +29,11 @@ test_that("miceDS", {
                   ncol.pred.mat=NULL, newobj_mids='mids_object', newobj_df='impSet'), "Number of logged events: 1")
 
     expect_true(all(class(res) %in% c("list")))
-    print(class(res))
     expect_length(res, 3)
     expect_true(all(class(res$method) %in% c("character")))
-    print(class(res$method))
     expect_equal(as.character(res$method), c("pmm","pmm","pmm","pmm","pmm","","","","","","polyreg"))
-    expect_true(all(class(res$predictorMatrix) %in% c("matrix array")))
-    print(class(res$predictorMatrix))
-    expect_true(all(class(res$predictorMatrix) %in% c("matrix array")))
-    print(class(res$predictorMatrix))
+    expect_true(all(class(res$predictorMatrix) %in% c("matrix", "array")))
+    expect_true(all(class(res$predictorMatrix) %in% c("matrix", "array")))
     expect_equal(as.numeric(res$predictorMatrix[,1]), c(0,1,1,1,1,1,1,1,1,1,1))
     expect_equal(as.numeric(res$predictorMatrix[,2]), c(1,0,1,1,1,1,1,1,1,1,1))
     expect_equal(as.numeric(res$predictorMatrix[,3]), c(1,1,0,1,1,1,1,1,1,1,1))