test_that("regpoly_area works", { obs<-regpoly_area(3,5) val<-round((sqrt(3)/4)*25,3) expect_equal(obs, val) })
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.