tests/testthat/test_steiger.R

In MRCIEU/TwoSampleMR: Two Sample MR Functions and Interface to MR Base Database

context("steiger")

# dat <- make_dat("ieu-a-2", "ieu-a-7")
load(system.file("extdata", "test_commondata.RData", package="TwoSampleMR"))

test_that("directionality", {
	o <- directionality_test(dat)
	expect_true(nrow(o) == 1)
})

test_that("directionality cc", {
	dat$r.outcome <- get_r_from_lor(dat$beta.outcome, dat$eaf.outcome, dat$samplesize.outcome/2, dat$samplesize.outcome/2, 0.1)
	o <- directionality_test(dat)
	expect_true(nrow(o) == 1)
})

test_that("steiger filtering", {
	expect_warning(dat <- steiger_filtering(dat))
	expect_true("steiger_pval" %in% names(dat))
})