context("Checking print")
test_that("Test print", {
# loads data
data("darfur")
# fits model
model <- lm(peacefactor ~ directlyharmed + age + farmer_dar + herder_dar +
pastvoted + hhsize_darfur + female + village, data = darfur)
# benchmark variables
X = c("herder_dar", "female", "age", "pastvoted", "farmer_dar")
# runs benchmarking etc
sense <- sensemakr(model=model, treatment="directlyharmed", benchmarks=X)
capture_output(interpret(sense))
capture_output(interpret(sense, q = 0.5)) #throws warning
capture_output(interpret(sense, q = 0.6)) #throws warning.
capture_output(summary(sense)) #needs more output/ to be different from interpret().
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.