## ---- test-betaSandwich-diff-beta-sandwich-methods
lapply(
  X = 1,
  FUN = function(i,
                 text) {
    message(text)
    testthat::test_that(
      paste(text, "methods"),
      {
        testthat::skip_on_cran()
        if (!exists("nas1982")) {
          try(
            data(
              "nas1982",
              package = "betaSandwich"
            ),
            silent = TRUE
          )
        }
        df <- nas1982
        object <- lm(QUALITY ~ NARTIC + PCTGRT + PCTSUPP, data = df)
        mvn <- DiffBetaSandwich(BetaN(object))
        print.diffbetasandwich(mvn)
        summary.diffbetasandwich(mvn)
        print.summary.diffbetasandwich(summary.diffbetasandwich(mvn))
        coef.diffbetasandwich(mvn)
        vcov.diffbetasandwich(mvn)
        confint.diffbetasandwich(mvn)
        adf <- DiffBetaSandwich(BetaADF(object))
        print.diffbetasandwich(adf)
        summary.diffbetasandwich(adf)
        print.summary.diffbetasandwich(summary.diffbetasandwich(adf))
        coef.diffbetasandwich(adf)
        vcov.diffbetasandwich(adf)
        confint.diffbetasandwich(adf)
        hc0 <- DiffBetaSandwich(BetaHC(object, type = "hc0"))
        print.diffbetasandwich(hc0)
        summary.diffbetasandwich(hc0)
        print.summary.diffbetasandwich(summary.diffbetasandwich(hc0))
        coef.diffbetasandwich(hc0)
        vcov.diffbetasandwich(hc0)
        confint.diffbetasandwich(hc0)
        hc1 <- DiffBetaSandwich(BetaHC(object, type = "hc1"))
        print.diffbetasandwich(hc1)
        summary.diffbetasandwich(hc1)
        print.summary.diffbetasandwich(summary.diffbetasandwich(hc1))
        coef.diffbetasandwich(hc1)
        vcov.diffbetasandwich(hc1)
        confint.diffbetasandwich(hc1)
        hc2 <- DiffBetaSandwich(BetaHC(object, type = "hc2"))
        print.diffbetasandwich(hc2)
        summary.diffbetasandwich(hc2)
        print.summary.diffbetasandwich(summary.diffbetasandwich(hc2))
        coef.diffbetasandwich(hc2)
        vcov.diffbetasandwich(hc2)
        confint.diffbetasandwich(hc2)
        hc3 <- DiffBetaSandwich(BetaHC(object, type = "hc3"))
        print.diffbetasandwich(hc3)
        summary.diffbetasandwich(hc3)
        print.summary.diffbetasandwich(summary.diffbetasandwich(hc3))
        coef.diffbetasandwich(hc3)
        vcov.diffbetasandwich(hc3)
        confint.diffbetasandwich(hc3)
        hc4 <- DiffBetaSandwich(BetaHC(object, type = "hc4"))
        print.diffbetasandwich(hc4)
        summary.diffbetasandwich(hc4)
        print.summary.diffbetasandwich(summary.diffbetasandwich(hc4))
        coef.diffbetasandwich(hc4)
        vcov.diffbetasandwich(hc4)
        confint.diffbetasandwich(hc4)
        hc4m <- DiffBetaSandwich(BetaHC(object, type = "hc4m"))
        print.diffbetasandwich(hc4m)
        summary.diffbetasandwich(hc4m)
        print.summary.diffbetasandwich(summary.diffbetasandwich(hc4m))
        coef.diffbetasandwich(hc4m)
        vcov.diffbetasandwich(hc4m)
        confint.diffbetasandwich(hc4m)
        hc5 <- DiffBetaSandwich(BetaHC(object, type = "hc5"))
        print.diffbetasandwich(hc5)
        summary.diffbetasandwich(hc5)
        print.summary.diffbetasandwich(summary.diffbetasandwich(hc5))
        coef.diffbetasandwich(hc5)
        vcov.diffbetasandwich(hc5)
        confint.diffbetasandwich(hc5)
        testthat::expect_true(
          TRUE
        )
      }
    )
  },
  text = "test-betaSandwich-diff-beta-sandwich-methods"
)