context("t value")
test_that("t value ", {
t_value <- round(t_table(alpha = .10, df = 1, tail = 1), 3) #should be 3.078
expect_is(t_value, "numeric")
expect_equal(t_value, 3.078)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.