tests/testthat/test-affichage_general.R

test_that("typeof works", {
  expect_equal(typeof(affichage_general(matrix(rnorm(100), nrow = 10), r =2))[1], "list")
})

test_that("typeof works", {
  expect_equal(typeof(affichage_general(matrix(rnorm(100), nrow = 10), r =2, mmechelle = TRUE))[1], "list")
})
C-Juliette/randomfields documentation built on Sept. 3, 2023, 5:56 a.m.