test_that("performs linear regression", {
expect_type(my_lm(lifeExp ~ gdpPercap, my_gapminder), "double")
expect_equal(my_lm(lifeExp ~ gdpPercap, my_gapminder)[, 1], lm(lifeExp ~ gdpPercap, my_gapminder)[1][[1]])
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.