tests/testthat/test-delete_na.R

In sprtt: Sequential Probability Ratio Tests Toolbox

#* @testing delete_na
context("delete_na: Correct deletion of the missing values in the data.")

test_that("delete_na: with similar NAs in x and y", {
  x <- c(1:5,NA,NA,6:10)
  y <- c(1:5,NA,NA,6:10)
  x_test <- delete_na(x,y,one_sample = F, paired = T, wanted = "x")
  y_test <- delete_na(x,y,one_sample = F, paired = T, wanted = "y")
  y_test <- delete_na(x,y,one_sample = F, paired = T, wanted = "y")
  xy_test <- delete_na(x,y,one_sample = F, paired = T)
  expect_equal(x_test, 1:10)
  expect_equal(y_test, 1:10)
  expect_equal(xy_test, list(1:10, 1:10))

})

test_that("delete_na: with different NAs in x and y", {
  x <- c(1:3,NA,NA,4:10)
  y <- c(1:5,NA,NA,6:10)
  x_test <- delete_na(x,y,one_sample = F, paired = T, wanted = "x")
  y_test <- delete_na(x,y,one_sample = F, paired = T, wanted = "y")
  expect_equal(x_test,y_test)
  expect_equal(x_test, c(1:3,6:10))


  x <- c(1:3,NA,NA,4:10)
  y <- c(1:5,NA,NA,6:10)
  x_test <- delete_na(x,y,one_sample = F, paired = F, wanted = "x")
  y_test <- delete_na(x,y,one_sample = F, paired = F, wanted = "y")
  expect_equal(x_test, y_test)
  expect_equal(x_test, c(1:10))

})

test_that("delete_na: with y = 1", {
  x <- c(1:3,NA,NA,4:10)
  y <- 1
  x_test <- delete_na(x,y,one_sample = T, paired = F, wanted = "x")
  y_test <- delete_na(x,y,one_sample = T, paired = F, wanted = "y")
  expect_equal(x_test,1:10)
  expect_equal(y_test, 1)
})

test_that("delete_na: with y = NULL", {
  x <- c(1:3,NA,NA,4:10)
  y <- NULL
  x_test <- delete_na(x,y,one_sample = T, paired = F, wanted = "x")
  y_test <- delete_na(x,y,one_sample = T, paired = F, wanted = "y")
  expect_equal(x_test,1:10)
  expect_equal(y_test, NULL)
})

test_that("delete_na: with na.rm = FALSE", {
  x <- c(1:3,NA,NA,4:10)
  y <- 1:10
  expect_error(
    delete_na(x,y,one_sample = T, paired = F, na.rm = FALSE),
    "The data contain missing values.")

  x <- 1:10
  y <- c(1:3,NA,NA,4:10)
  expect_error(
    delete_na(x,y,one_sample = T, paired = F, na.rm = FALSE),
    "The data contain missing values.")

  x <- 1:10
  y <- x
  x_test <- delete_na(x,y,one_sample = F, paired = F, na.rm = FALSE, wanted = "x")
  y_test <- delete_na(x,y,one_sample = F, paired = F, na.rm = FALSE, wanted = "y")
  expect_equal(x_test, 1:10)
  expect_equal(y_test, 1:10)


})