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