tests/testthat/test_Cal_cor_pleiotropic_h2_single.R

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

  plei_h2_idx <- 1
  h2g_T_single<-h2_vector[plei_h2_idx]

  result <- Cal_cor_pleiotropic_h2_single(Results_full_rg, h2g_T_single, plei_h2_idx)


  expect_type(result, "double")

  expect_false(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.