tests/testthat/test-observed.R

context("Observed")

test_that("Observed", {

    expect_error(Observed(z <- 1))
    y <- runif(5)
    x <- runif(5)
    ols <- lm(y ~ x)
    expect_equal(Observed(ols), y)
})
NumbersInternational/flipData documentation built on March 2, 2024, 10:52 a.m.