tests/testthat/test-homophily.R

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

Try the RDS package in your browser

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

RDS documentation built on Sept. 11, 2024, 8:13 p.m.