Nothing
context("bop")
n=3
a=matrix(1, n, n)
b=matrix(1:n, n, 1)
a0=a+0
bop(a, 2, "+=", b)
test_that("bop +=", {
expect_equal(a, a0+rep(b, n))
})
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.