tests/testthat/test-sim2dBM.R

context("2 dimension brownian motion test")
test_that("2 dimension brownian motion parameters length", {
n <- sample(1:100, 1)
expect_equal(dim(sim2dBM(n, sigma = 1))[1], n)
expect_equal(dim(sim2dBM(n, sigma = 1))[2], 2)

})
yzheng74/brownianMotion documentation built on May 4, 2019, 8:47 p.m.