tests/testthat/test_linreg_QR.R

# test suit for linreg_QR

data("iris")

test_that("class is correct", {
  linreg_mod <- linreg(Petal.Length~Sepal.Width+Sepal.Length, data=iris)
  
  expect_s3_class(linreg_mod, "linreg")
})
mariatreesa/Lab4R documentation built on July 11, 2020, 7:26 a.m.