knitr::opts_chunk$set(
  error = TRUE,
  collapse = TRUE,
  comment = "#>",
  out.width = "100%"
)
x <- 1:5
y <- matrix(1:10, ncol = 2)
testthat::test_that("vector", {
  testthat::expect_equal(
    Ryacas::as_r(yacR::as.ysym.mat(x)),
    as.matrix(x)
  )
})
testthat::test_that("matrix", {
  testthat::expect_equal(
    Ryacas::as_r(yacR::as.ysym.mat(y)),
    y
  )
})


jeksterslab/yacR documentation built on Feb. 27, 2021, 3:45 a.m.