tests/testthat/test-distInt.R

context("Function .getDistInt")

test_that(".getDistInt", {
  library(data.table)
  object_int <- readRDS(system.file("testdata/object_int.rds", package = "fbClust"))
  PL <- object_int[[3]]
  x0 <- object_int[[1]]
  ram <- object_int[[4]]
  Ax0 <- object_int[[2]]

  res <- .getDistInt(V1 = x0, PL = PL , ram = ram, Ax0 = Ax0)
  expect_true(res < 291 & res > 289)
})
rte-antares-rpackage/fbClust documentation built on July 4, 2023, 12:06 a.m.