tests/testthat/test-grab-resids.r

context("Testing grab coefficients.")

library(palmerpenguins)

data(penguins)

fit <- lm(bill_length_mm ~ ., data = penguins[, -8])

resids <- grab_resids(fit)

expect_equal(resids, fit$residuals)
kaneplusplus/bis557 documentation built on Sept. 13, 2020, 9:01 p.m.