tests/testthat/test-all_func.R

test_that("mylm works", {
  expect_equal(mylm(formula = Petal.Length ~ Sepal.Length + Sepal.Width, data = iris)$y[1], 1.4)
})


test_that("mylm works2", {
  expect_equal(mylm(formula = Petal.Length ~ Sepal.Length + Sepal.Width, data = iris)$X[1,2], 5.1)
})

Try the SSNbayes package in your browser

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

SSNbayes documentation built on May 29, 2024, 3:56 a.m.