tests/testthat/test-zoo_vector_to_matrix.R

test_that("`zoo_vector_to_matrix()` works", {
  x <- zoo::zoo(x = runif(100))
  expect_equal(is.matrix(zoo::coredata(x)), FALSE)
  y <- zoo_vector_to_matrix(x = x)
  expect_equal(is.matrix(zoo::coredata(y)), TRUE)
})

Try the distantia package in your browser

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

distantia documentation built on April 4, 2025, 5:42 a.m.