tests/testthat/test_Cal_cor_test_single.R

test_that("Cal_cor_test_single computes correct inverse element", {
  data(Results_full_rg)

  plei_h2_idx <- 1

  result <- Cal_cor_test_single(Results_full_rg, 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.