tests/testthat/test-raw_gen.R

In bassam-abulnoor/TestDimorph: Analysis Of The Interpopulation Difference In Degree of Sexual Dimorphism Using Summary Statistics

test_that("raw_gen", {
  library(TestDimorph)
  testthat::expect_true(ncol(Cremains_measurements %>% mutate(Pop = rep("A", nrow(.))) %>% raw_gen(
    Pop =
      ncol(.)
  )) == 23)
  # univariate log distribution
  set.seed(123)
  testthat::expect_true(round(raw_gen(baboon.parms_df, dist = "log")[1, 6][[1]], 2) == 70.93)
  # univariate truncated distribution
  set.seed(123)
  testthat::expect_true(round(raw_gen(baboon.parms_df, dist = "trunc")[1, 6][[1]], 2) == 73.62)
  # multivariate distribution
  set.seed(123)
  testthat::expect_true(round(raw_gen(baboon.parms_list)[1, 6][[1]], 2) == 58.55)
  set.seed(123)
  testthat::expect_true(round(raw_gen(baboon.parms_df, R.res = baboon.parms_R)[1, 6][[1]], 2) == 58.55)
  testthat::expect_error(raw_gen(baboon.parms_df, R.res = baboon.parms_R, dist = "log"))
  testthat::expect_error(raw_gen(baboon.parms_R))
  testthat::expect_error(raw_gen(baboon.parms_df, complete_cases = 95))
  testthat::expect_error(raw_gen(baboon.parms_df, Pop = 500))
  testthat::expect_error(raw_gen(baboon.parms_df, Parms = 500))
  testthat::expect_true(ncol(raw_gen(baboon.parms_df, format = "long")) == 4)
  testthat::expect_error(raw_gen(baboon.parms_df, R.res = baboon.parms_list))
  testthat::expect_error(raw_gen(baboon.parms_list[1:5]))
})