tests/testthat/test-create_custom_trait.R

In richelbilderbeek/plinkr: Interface to PLINK

test_that("use", {
  expect_silent(create_custom_trait())
  expect_silent(create_custom_trait(phenotype = "custom"))
  expect_silent(create_custom_trait(mafs = 0.01))
  expect_silent(create_custom_trait(n_snps = 1))
  expect_silent(
    create_custom_trait(
      calc_phenotype_function = calc_additive_phenotype_values
    )
  )
  expect_silent(create_custom_trait(phenotype = "anything"))
})