tests/testthat/test-rtrfn.R

test_that("rtrfn-test", {
  df<- rtrfn(500,1,3,4,6)
  x<- df$x
  expect_equal(x,df$x)
})

Try the genfrn package in your browser

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

genfrn documentation built on June 22, 2024, 7:21 p.m.