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)
JustinaTse/bis557 documentation built on Sept. 14, 2020, 9:33 a.m.