tests/testthat/test-data.R
In mrc-ide/squire: SEIR transmission model of COVID-19
context("data")
test_that("contact_matrices are matrices", {
expect_true(all(unlist(lapply(squire::contact_matrices, is.matrix))))
expect_true(all(unlist(lapply(
squire::contact_matrices[unique(squire::population$matrix)], function(x){
(nrow(x) == ncol(x)) & (nrow(x) == 16)
}))))
})
mrc-ide/squire documentation built on Sept. 10, 2022, 1:11 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("data")
test_that("contact_matrices are matrices", {
expect_true(all(unlist(lapply(squire::contact_matrices, is.matrix))))
expect_true(all(unlist(lapply(
squire::contact_matrices[unique(squire::population$matrix)], function(x){
(nrow(x) == ncol(x)) & (nrow(x) == 16)
}))))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.