test_that("Day 2", {
example <- data.frame(cmd = c('forward', 'down', 'forward', 'up',
'down', 'forward'),
value = c(5, 5, 8, 3, 8, 2))
expect_equal(dive(example), 150)
expect_equal(dive2(example), 900)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.