tests/testthat/test-regpolygon.R

test_that("regpoly_area works", {
  obs<-regpoly_area(3,5)
  val<-round((sqrt(3)/4)*25,3)
  expect_equal(obs, val)
})
Beabaea/bwpackage documentation built on May 1, 2022, 12:15 a.m.