tests/testthat/test-makeXY.R

context("makeXY")
test_that("makeXY", {
    xy <- makeXY(y ~ x, data.frame(y = 1:10, x = 1:10, z = 1))
    expect_is(xy, "list")
    expect_is(xy$x, "Matrix")
    expect_equal(colnames(xy$x), c("(Intercept)", "x"))
})

Try the saeRobust package in your browser

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

saeRobust documentation built on May 2, 2019, 7:29 a.m.