tests/testthat/test-examples-fastcpd_lm_2.R

testthat::test_that(
  "examples/fastcpd_lm_2.txt", {
    testthat::skip_if_not_installed("mvtnorm")

    examples_lm <- readLines("examples/fastcpd_lm_2.txt")
    source(textConnection(paste(
      examples_lm[seq_len(length(examples_lm) - 2) + 1],
      collapse = "\n"
    )))

    testthat::expect_equal(result_mlm@cp_set, 350)
  }
)

Try the fastcpd package in your browser

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

fastcpd documentation built on April 12, 2025, 1:43 a.m.