tests/testthat/test_Cal_cor_pleiotropic_h2.R

test_that("Cal_cor_pleiotropic_h2 computes correct pleioh2g", {
  data(Results_full_rg)
  data(h2_vector)

  result <- Cal_cor_pleiotropic_h2(Results_full_rg, h2_vector)

  expect_type(result, "double")
  expect_length(result, 62)

  expect_false(any(is.na(result)))
})

Try the pleioh2g package in your browser

Any scripts or data that you put into this service are public.

pleioh2g documentation built on March 9, 2026, 5:07 p.m.