# File: tests/testthat/test-sera.R
test_that("sera runs correctly", {

  trues <- rnorm(1:10)
  ph <- phi.control(trues)
  phi.trues <- phi(trues,ph)

  preds <- rnorm(1:10)

  result <- sera(trues,preds,phi.trues)
  expect_type(result, "double")
})