context("Testing gamix")
test_that("Gamix gives correct result for Wnet data", {
v <- gamix(WhiteKinship, "gender")
tv <- -0.1625
expect_equal(v, tv)
} )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.