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 ) })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.