tests/testthat/to_review/test-apply_stat_model_sig_formula.R

In drake69/semseeker: Stochastic Epigenetic Mutations SEM Seeker

test_that("apply_stat_model_sig_formula", {

  
  family_test = "gaussian"
  burdenValue = "dependent_variable"
  independent_variable = "independent_variable"
  covariates = c("cov1","cov2","cov3")

  ff1 <- semseeker:::apply_stat_model_sig_formula(family_test, burdenValue, independent_variable, covariates)
  testthat::expect_true(ff1==as.formula("dependent_variable~independent_variable+cov1+cov2+cov3"))

  family_test = "binomial"
  burdenValue = "dependent_variable"
  independent_variable = "independent_variable"
  covariates = c("cov1","cov2","cov3")

  ff1 <- semseeker:::apply_stat_model_sig_formula(family_test, burdenValue, independent_variable, covariates)
  testthat::expect_true(ff1==as.formula("independent_variable~dependent_variable+cov1+cov2+cov3"))

  family_test = "wilcoxon"
  burdenValue = "dependent_variable"
  independent_variable = "independent_variable"
  covariates = c("cov1","cov2","cov3")

  ff1 <- semseeker:::apply_stat_model_sig_formula(family_test, burdenValue, independent_variable, covariates)
  testthat::expect_true(ff1==as.formula("dependent_variable~independent_variable"))

})