Removed 'naAction' argument

Author: StuartWheater

tests/testthat/test-smk-ds.cor.R

@@ -26,18 +26,19 @@ test_that("setup", {
 
 context("ds.cor::smk")
 
-test_that("simple test, combine, pairwise.complete", {
-    res <- ds.cor(x="D$survtime", y="D$time.id", type="combine", naAction="pairwise.complete")
-
-    expect_length(res, 4)
-    expect_true("matrix" %in% class(res$`Number of missing values in each variable`))
-    expect_true("matrix" %in% class(res$`Number of missing values pairwise`))
-    expect_true("matrix" %in% class(res$`Correlation Matrix`))
-    expect_true("matrix" %in% class(res$`Number of complete cases used`))
-})
+#test_that("simple test, combine, pairwise.complete", {
+#    res <- ds.cor(x="D$survtime", y="D$time.id", type="combine", naAction="pairwise.complete")
+#
+#    expect_length(res, 4)
+#    expect_true("matrix" %in% class(res$`Number of missing values in each variable`))
+#    expect_true("matrix" %in% class(res$`Number of missing values pairwise`))
+#    expect_true("matrix" %in% class(res$`Correlation Matrix`))
+#    expect_true("matrix" %in% class(res$`Number of complete cases used`))
+#})
 
 test_that("simple test, combine, casewise.complete", {
-    res <- ds.cor(x="D$survtime", y="D$time.id", type="combine", naAction="casewise.complete")
+#    res <- ds.cor(x="D$survtime", y="D$time.id", type="combine", naAction="casewise.complete")
+    res <- ds.cor(x="D$survtime", y="D$time.id", type="combine")
 
     expect_length(res, 4)
     expect_true("matrix" %in% class(res$`Number of missing values in each variable`))
@@ -46,29 +47,30 @@ test_that("simple test, combine, casewise.complete", {
     expect_true("matrix" %in% class(res$`Number of complete cases used`))
 })
 
-test_that("simple test, split, pairwise.complete", {
-    res <- ds.cor(x="D$survtime", y="D$time.id", type="split", naAction="pairwise.complete")
-
-    expect_length(res, 3)
-    expect_length(res[[1]], 4)
-    expect_true("matrix" %in% class(res[[1]]$`Number of missing values in each variable`))
-    expect_true("matrix" %in% class(res[[1]]$`Number of missing values pairwise`))
-    expect_true("matrix" %in% class(res[[1]]$`Correlation Matrix`))
-    expect_true("matrix" %in% class(res[[1]]$`Number of complete cases used`))
-    expect_length(res[[2]], 4)
-    expect_true("matrix" %in% class(res[[2]]$`Number of missing values in each variable`))
-    expect_true("matrix" %in% class(res[[2]]$`Number of missing values pairwise`))
-    expect_true("matrix" %in% class(res[[2]]$`Correlation Matrix`))
-    expect_true("matrix" %in% class(res[[2]]$`Number of complete cases used`))
-    expect_length(res[[3]], 4)
-    expect_true("matrix" %in% class(res[[3]]$`Number of missing values in each variable`))
-    expect_true("matrix" %in% class(res[[3]]$`Number of missing values pairwise`))
-    expect_true("matrix" %in% class(res[[3]]$`Correlation Matrix`))
-    expect_true("matrix" %in% class(res[[3]]$`Number of complete cases used`))
-})
+#test_that("simple test, split, pairwise.complete", {
+#    res <- ds.cor(x="D$survtime", y="D$time.id", type="split", naAction="pairwise.complete")
+#
+#    expect_length(res, 3)
+#    expect_length(res[[1]], 4)
+#    expect_true("matrix" %in% class(res[[1]]$`Number of missing values in each variable`))
+#    expect_true("matrix" %in% class(res[[1]]$`Number of missing values pairwise`))
+#    expect_true("matrix" %in% class(res[[1]]$`Correlation Matrix`))
+#    expect_true("matrix" %in% class(res[[1]]$`Number of complete cases used`))
+#    expect_length(res[[2]], 4)
+#    expect_true("matrix" %in% class(res[[2]]$`Number of missing values in each variable`))
+#    expect_true("matrix" %in% class(res[[2]]$`Number of missing values pairwise`))
+#    expect_true("matrix" %in% class(res[[2]]$`Correlation Matrix`))
+#    expect_true("matrix" %in% class(res[[2]]$`Number of complete cases used`))
+#    expect_length(res[[3]], 4)
+#    expect_true("matrix" %in% class(res[[3]]$`Number of missing values in each variable`))
+#    expect_true("matrix" %in% class(res[[3]]$`Number of missing values pairwise`))
+#    expect_true("matrix" %in% class(res[[3]]$`Correlation Matrix`))
+#    expect_true("matrix" %in% class(res[[3]]$`Number of complete cases used`))
+#})
 
 test_that("simple test, split, casewise.complete", {
-    res <- ds.cor(x="D$survtime", y="D$time.id", type="split", naAction="casewise.complete")
+#    res <- ds.cor(x="D$survtime", y="D$time.id", type="split", naAction="casewise.complete")
+    res <- ds.cor(x="D$survtime", y="D$time.id", type="split")
 
     expect_length(res, 3)
     expect_length(res[[1]], 4)