test-data-testOffset.R
In dbarts: Discrete Bayesian Additive Regression Trees Sampler

source(system.file("common", "probitData.R", package = "dbarts"), local = TRUE)

# test that test offset fills in control logicals depending on specification
data <- dbarts::dbartsData(Z ~ X, testData, testData$X)

expect_null(data@offset)
expect_null(data@offset.test)
expect_identical(data@testUsesRegularOffset, NA)


data <- dbarts::dbartsData(Z ~ X, testData, testData$X, offset = 0.2)

expect_equal(data@offset[1:5],      rep(0.2, 5))
expect_equal(data@offset.test[1:5], rep(0.2, 5))
expect_equal(data@testUsesRegularOffset, TRUE)
rm(data)


otherOffset <- 0.2 + 0.1
data <- dbarts::dbartsData(Z ~ X, testData, testData$X, offset = otherOffset)

expect_equal(data@offset[1:5],      rep(0.3, 5))
expect_equal(data@offset.test[1:5], rep(0.3, 5))
expect_equal(data@testUsesRegularOffset, TRUE)
rm(data, otherOffset)



data <- dbarts::dbartsData(
  Z ~ X,
  testData,
  testData$X,
  offset = 0.2,
  offset.test = NULL
)

expect_equal(data@offset[1:5], rep(0.2, 5))
expect_null(data@offset.test)
expect_equal(data@testUsesRegularOffset, FALSE)
rm(data)


data <- dbarts::dbartsData(
  Z ~ X,
  testData,
  testData$X,
  offset = 0.2,
  offset.test = 0.1
)

expect_equal(data@offset[1:5],      rep(0.2, 5))
expect_equal(data@offset.test[1:5], rep(0.1, 5))
expect_equal(data@testUsesRegularOffset, FALSE)
rm(data)


data <- dbarts::dbartsData(
  Z ~ X,
  testData,
  testData$X,
  offset = 0.2,
  offset.test = offset + 0.1
)

expect_equal(data@offset[1:5],      rep(0.2, 5))
expect_equal(data@offset.test[1:5], rep(0.3, 5))
expect_equal(data@testUsesRegularOffset, FALSE)
rm(data)


data <- dbarts::dbartsData(
  Z ~ X,
  testData,
  testData$X,
  offset = 0.2,
  offset.test = offset
)

expect_equal(data@offset[1:5],      rep(0.2, 5))
expect_equal(data@offset.test[1:5], rep(0.2, 5))
expect_equal(data@testUsesRegularOffset, TRUE)
rm(data)


set.seed(0)
otherOffset <- runif(nrow(testData$X))
data <- dbarts::dbartsData(Z ~ X, testData, testData$X, offset = otherOffset)

expect_equal(data@offset[1:5],      otherOffset[1:5])
expect_equal(data@offset.test[1:5], otherOffset[1:5])
expect_equal(data@testUsesRegularOffset, TRUE)


expect_error(
  dbarts::dbartsData(Z ~ X, testData, testData$X[-1,], offset = otherOffset),
  "vectored 'offset' cannot be directly applied to test data of unequal length"
)
rm(data)



data <- dbarts::dbartsData(
  Z ~ X,
  testData,
  testData$X,
  offset = otherOffset,
  offset.test = NULL
)

expect_equal(data@offset[1:5], otherOffset[1:5])
expect_null(data@offset.test)
expect_equal(data@testUsesRegularOffset, FALSE)
rm(data)



data <- dbarts::dbartsData(
  Z ~ X,
  testData,
  testData$X,
  offset = otherOffset,
  offset.test = 0.2
)

expect_equal(data@offset[1:5],      otherOffset[1:5])
expect_equal(data@offset.test[1:5], rep(0.2, 5))
expect_equal(data@testUsesRegularOffset, FALSE)
rm(data)



data <- dbarts::dbartsData(
  Z ~ X,
  testData,
  testData$X,
  offset = otherOffset,
  offset.test = offset + 0.1
)

expect_equal(data@offset[1:5],      otherOffset[1:5])
expect_equal(data@offset.test[1:5], otherOffset[1:5] + 0.1)
expect_equal(data@testUsesRegularOffset, FALSE)
rm(data)


data <- dbarts::dbartsData(
  Z ~ X,
  testData,
  testData$X,
  offset = 0.2,
  offset.test = otherOffset
)

expect_equal(data@offset[1:5],      rep(0.2, 5))
expect_equal(data@offset.test[1:5], otherOffset[1:5])
expect_equal(data@testUsesRegularOffset, FALSE)
rm(data)


data <- dbarts::dbartsData(
  Z ~ X,
  testData,
  testData$X,
  offset = NULL,
  offset.test = otherOffset
)

expect_null(data@offset)
expect_equal(data@offset.test[1:5], otherOffset[1:5])
expect_equal(data@testUsesRegularOffset, FALSE)
rm(data, otherOffset)

rm(testData)