# This file is ignored by .Rbuildignore to keep from suggesting texreg
context("S3 - texreg builds")
test_that("texreg extension works", {
model2 <- lm_robust(extra~group, sleep, clusters = ID)
capture.output(treg <- extract(model2, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE))
expect_is(
treg,
"texreg"
)
# Defaults to having CIs
expect_true(grepl("-0.53;", texreg::texreg(model2)))
# Remove to get SEs
expect_true(grepl("\\(0.57\\)", texreg::texreg(model2, include.ci = FALSE)))
# Has Nclust
expect_true(grepl("N Clusters.*10", texreg::texreg(model2)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.