tests/testthat/test_fapply.R

context("fapply")

formulas = subformula(mpg ~ cyl + disp + hp + drat, protected = ~ cyl)

fapply_object = fapply(formulas, model = lm, data = mtcars, x = TRUE)
AICs = sapply(fapply(formulas, model = lm, data = mtcars, x = TRUE), AIC)
expect_equal(length(AICs), 8)
expect_equal(names(fapply_object), sapply(formulas, formula_to_character))
JonasMoss/subformula documentation built on Jan. 30, 2022, 9:16 a.m.