tests/testthat/test-get_minor_alelle_frequencies.R

In richelbilderbeek/plinkr: Interface to PLINK

test_that("use", {
  expect_equal(1 + 1, 2) # Prevents testthat warning for empty test
  if (!is_plink_installed()) return()

  assoc_qt_data <- create_demo_assoc_qt_data()

  # PLINK text data
  expect_true(is_plink_text_data(assoc_qt_data$data))
  minor_allele_frequences <- get_minor_alelle_frequencies(
    data = assoc_qt_data$data
  )

  # PLINK binary data
  assoc_qt_data$data <- convert_plink_text_data_to_plink_bin_data(
    assoc_qt_data$data
  )
  expect_true(is_plink_bin_data(assoc_qt_data$data))
  minor_allele_frequences <- get_minor_alelle_frequencies(
    data = assoc_qt_data$data
  )
})