tests/testthat/test-diagnostics.R

test_that("diagnostics are working properly", {
  xy <- owl:::randomProblem(100, 2, q = 1)

  fit <- owl(xy$x, xy$y, diagnostics = TRUE, n_sigma = 1, sigma = 1)

  expect_is(fit$diagnostics, "data.frame")
  p <- plotDiagnostics(fit)
  expect_s3_class(p, "trellis")
})
jolars/prague documentation built on March 4, 2020, 7:13 p.m.