tests/testthat/test-preprocess_effect_variable.R

In lpalomerol/inmuneAssociation: Set of tools defined to run systematically linear regressions with output variable normalized using bestNormalize functions

context("preprocess_effect_variable")

test_that("Should normalize data applying bestNormalize method", {

  #Arrange
  set.seed(12345)
  input_values = rnorm(2000, 0, 1)

  #Act
  normalized_data = preprocess_effect_variable(input_values, standardize = FALSE, remove_outliers = TRUE)
  data_attr = attributes(normalized_data)
  best_norm = attr(normalized_data, 'bestNormalize')

  #Assert
  expect_equal(as.numeric(normalized_data)[1:10], input_values[1:10])
  expect_equal(sum(is.na(normalized_data)),  16)
  expect_equal(attr(normalized_data, 'chosenTransformation'), 'no_transform')

})