Nothing
library(testthat)
library(RDS)
context("homophily.R")
test_that("homophily",{
data(fauxmadrona)
res <- homophily.estimates(fauxmadrona,outcome.variable="disease",
N=1000,weight.type="RDS-II")
expect_equal(structure(1.60397806961622, class = "table"),res@estimate)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.