Nothing
context("check if the fluxing functions add new links to the food web")
load("groups.level.RData")
test_that('zeros are stills zeros',{
mat.fluxes = fluxing(groups.level$mat,
groups.level$biomasses,
0.71*groups.level$bodymasses,
groups.level$efficiencies)
zero.flux = which(mat.fluxes == 0)
zero.binary = which(groups.level$mat == 0)
expect_equal(zero.flux, zero.binary)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.