Nothing
# REQUIRE TEST for qi_slimmer --------------------------------------------------
test_that('REQUIRE TEST for qi_slimmer', {
qi.full.interval <- zelig(Petal.Width ~ Petal.Length + Species,
data = iris, model = "ls") %>%
setx(Petal.Length = 2:4, Species = "setosa") %>%
sim() %>%
zelig_qi_to_df()
expect_equal(nrow(qi_slimmer(qi.full.interval)), 3)
expect_equal(nrow(qi_slimmer(qi.full.interval, qi_type = 'pv')), 3)
expect_equal(nrow(qi_slimmer(qi.full.interval, ci = 90)), 3)
})
# FAIL TEST for qi_slimmer --------------------------------------------------
test_that('REQUIRE TEST for qi_slimmer', {
qi.full.interval <- zelig(Petal.Width ~ Petal.Length + Species,
data = iris, model = "ls") %>%
setx(Petal.Length = 2:4, Species = "setosa") %>%
sim() %>%
zelig_qi_to_df()
expect_error(qi_slimmer(qi.full.interval, qi_type = 'TEST'))
expect_error(qi_slimmer(qi.full.interval, ci = 900),
'900 will not produce a valid central interval.')
z <- zelig(Petal.Width ~ Petal.Length + Species, data = iris, model = "ls")
expect_error(qi_slimmer(z),
'df must be a data frame created by zelig_qi_to_df.')
df_test <- data.frame(a = 1, b = 2)
expect_error(qi_slimmer(df_test),
'The data frame does not appear to have been created by zelig_qi_to_df.')
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.