Nothing
#* @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)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.