tests/testthat/test-grab-coeffs.R

context("Testing grab coefficients")

library(palmerpenguins)
data(penguins)
fit<- lm(bill_length_mm~.,data=penguins[,-8])
coefs <- round(as.vector(grab_coeffs(fit)))
expect_equal(coefs,c(15,10,6,-1,0,0,0,0,2))
nixgank-wang/bis557 documentation built on Dec. 26, 2020, 9:54 p.m.