context("turnAngle")
test_that("expected values", {
a <- c(0,0)
b <- c(0,1)
c <- c(1,1)
d <- c(0,2)
expect_equal(turnAngle(a,b,c),-pi/2)
expect_equal(turnAngle(a,b,a),pi)
expect_equal(turnAngle(a,b,d),0)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.