tests/testthat/test-get_got_data.R

set.seed(2021)

temp <- get_got_data(N = 500, T = 10, Xvol = 0.75,
                     Evol = 0.75, rho_X = 0.5, rho_E = 0.5)

test_that("get_got_data works", {
  expect_equal(length(unique(temp$firm)), 500)
})

Try the farr package in your browser

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

farr documentation built on Feb. 16, 2023, 8:11 p.m.