tests/testthat/testffranfrom.R

library(testthat)
library(ff)


test_that("ffrandom works",{
    set.seed(123)
    rnorm(1)
    a <- rnorm(100)
    set.seed(123)
    b <- ffrandom(100, rnorm)
    expect_equal(a, b[])
})

Try the ffbase package in your browser

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

ffbase documentation built on Feb. 27, 2021, 5:06 p.m.