tests/testthat/test_turnAngle.R

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)
})
bmcclintock/momentuHMM documentation built on Oct. 26, 2022, 1 a.m.