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"))
})
wahani/saeRobustTools documentation built on March 16, 2024, 11:29 a.m.