Nothing
context("statStrT")
test_that("statStrT", {
# simulated data for t-test
set.seed(1)
comp <- rtDist(100, 500, 50, 200)
incomp <- rtDist(100, 550, 50, 200)
tObj <- t.test(incomp, comp, paired = TRUE)
testthat::expect_equal(statStrT(tObj), "\\emph{t}(99) = 1.70, \\emph{p} = .092")
})
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.