tests/testthat/test-remove-equiv-columns.r

library(testthat)

context("Remove equivalent columns")

data(iris)

iris$Sepal.Length2 <- 3 * iris$Sepal.Length + 3
remove_equiv_columns(iris)
expect_true(equiv(iris[-1], remove_equiv_columns(iris, "Sepal.Length2")))
presagia-analytics/normalizer documentation built on Dec. 12, 2019, 7:40 a.m.