```
plus <- function(x, y) 1 + 1
test_that("one plus one is two", {
expect_equal(plus(1, 1), 2)
})
test_that("two plus two is four", {
expect_equal(plus(2, 2), 4)
})
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.