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")
})

Try the owl package in your browser

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

owl documentation built on Feb. 11, 2020, 5:09 p.m.