library(associationr)
library(datasets)
context("bootstrap function testing")
test_that("test boot.lm on iris datasets", {
iris.boot <- boot.lm(Sepal.Length ~ Petal.Length, iris)
expect_is(iris.boot, "function")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.