tests/testthat/test_plot_periodogram.R

In adrian1econ/TimeSeries: What the Package Does (One Line, Title Case)

library(testthat)

test_that("Test of Output", {
  expect_error(plot_periodogram(c("a","b")), "pd must be numeric vector.")
  expect_error(plot_periodogram(NA), "pd must be numeric vector.")
  expect_error(plot_periodogram(list(1,2,3)), "pd must be numeric vector.")
})