tests/testthat/test_maximum_likelihood_estimation.R

In travisbyrum/constructnet: Network reconstruction from time series

context("Testing Network Distance")

test_that("maximum_likelihood_estimation", {
  TS <- matrix(
    c(-1, -1, -2, -1, 4, 7, 8, -3, -2, 1, 1, 4, 0, 2, 2, 1, 3, 2, -3, -1, 9),
    nrow = 3,
    ncol = 7,
    byrow = TRUE
  )

  z <- maximum_likelihood_estimation_fit(TS, avg_k = 1)
})