tests/testthat/testNumerics.R

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) )
})

Try the MotilityLab package in your browser

Any scripts or data that you put into this service are public.

MotilityLab documentation built on May 2, 2019, 4:59 p.m.