vincentarelbundock

library(fixest)
library(data.table)
library(insight)

bboot_vab <- function(model, reps = 1e3, conf.level = .95, cluster = NULL) {
    data <- insight::get_data(model)
    setDT(data)
    if (!is.null(cluster)) {
        if (anyNA(data[[cluster]])) {
            stop("The cluster variable cannot include missing values.")