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)
} )

Try the netseg package in your browser

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

netseg documentation built on July 9, 2023, 6:33 p.m.