context('ordination functions')
test_that('envtoverlay returns ggplot for PCA and CA.',{
x <- envtoverlay(WWTP_Impact, c('Mg','Na','K'), ordmet='PCA')
expect_is(x,'ggplot')
x <- envtoverlay(WWTP_Impact, c('Mg','Na','K'), ordmet='CA')
expect_is(x,'ggplot')
})
test_that('constord returns ggplot for various params.',{
x <- constord(WWTP_Impact,~Mg + Na,method='RDA',scaling=2,tax_level='Phylum',tax_n=7)
expect_is(x,'ggplot')
x <- constord(WWTP_Impact,~Mg + Na,method='CCA',scaling=2,tax_level='Phylum',tax_n=7)
expect_is(x,'ggplot')
x <- constord(WWTP_Impact,~Mg + Na,method='CCA',scaling=1,tax_level='Phylum',tax_n=7)
expect_is(x,'ggplot')
x <- constord(WWTP_Impact,~Mg + Na,method='CCA',facets=~day,scaling=1,tax_level='Phylum',tax_n=7)
expect_is(x,'ggplot')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.