effF <- eff_F(data = rueda, Y = "e_vote_buying", D = "lm_pob_mesa",
Z = "lz_pob_mesa_f", controls = c("lpopulation", "lpotencial"),
cl = "muni_code")
library(testthat)
test_that("Check effective F", {
expect_equal(floor(as.numeric(effF)), 8598)
})
Run the code above in your browser using DataLab