set.seed(2345)
test_that("Track simulation", {
expect_equal(nrow(brownianTrack(100,1)), 101)
expect_equal(meanTurningAngle(beaucheminTrack(1000,p.persist=1)), 0)
expect_equal(nrow(bootstrapTrack(100,TCells)), 101)
} )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.