tests/testthat/test-linear-model.r

In wentinggao1217/bis557: What the package does (short line)

library(testthat)

context('Testing linear model functions')

test_that("The linear_model function works.", {
  form <- Sepal.Length ~ .
  data <- iris
  fit_lm <- lm(form, data)
  fit_linear_model <- linear_model(form, data) #fitLinearModel
  expect_is(fit_linear_model, "lm")
  expect_equivalent(fit_lm$coefficients, fit_linear_model$coefficients)
})