Nothing
test_that("Potential numerical issues",{
expect_equal( range( sapply(subtracks( diffinv(matrix(rep(sqrt(2),200),ncol=4,byrow=T)), 2 ),
overallAngle ) ), c(0,0) )
})
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.