tests/testthat/test-gamix.R

context("Testing gamix")


test_that("Gamix gives correct result for Wnet data", {
          v <- gamix(WhiteKinship, "gender")
          tv <- -0.1625
          expect_equal(v, tv)
} )
mbojan/netseg documentation built on July 10, 2023, 4:29 a.m.