tests/testthat/test-multihyper.R
In Selbosh/scrooge: Statistical modelling of heterogeneous citation networks
library(scrooge)
context('Multivariate hypergeometric distribution')
test_that("Sampling all balls simply returns original urns",
expect_equal(rmultihyper(citations, sum(citations)), citations)
)
test_that("Sampling zero balls returns an array of zeroes",
expect_equal(rmultihyper(citations, 0), matrix(0, nrow(citations), ncol(citations), dimnames = dimnames(citations)))
)
Selbosh/scrooge documentation built on May 5, 2019, 8 p.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.
library(scrooge)
context('Multivariate hypergeometric distribution')
test_that("Sampling all balls simply returns original urns",
expect_equal(rmultihyper(citations, sum(citations)), citations)
)
test_that("Sampling zero balls returns an array of zeroes",
expect_equal(rmultihyper(citations, 0), matrix(0, nrow(citations), ncol(citations), dimnames = dimnames(citations)))
)
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.