tests/testthat/test-differential-activity.R

library(testthat)
library(RDS)

context("differential-activity.R")

test_that("differential-activity",{
  data(faux)
  expect_equal(structure(c(1.03342283930911, 1), class = "differential.activity.estimate"),
               differential.activity.estimates(faux,"X",weight.type="RDS-II"))
})

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.