tests/testthat/test-iris2_Data.R

In LedPred: Learning from DNA to Predict Enhancers

x=get(load(file="data_iris2/x.rda"))
y=get(load(file="data_iris2/y.rda"))

# -------------------------------------
valid.times=5

test_that("iris2_Model", {

data.obj = Data$new(x=x, y=y)

testthat::expect_equal(as.numeric(data.obj$x[1,1]), 0.0706, tolerance=1e-3)
})