Nothing
context("full-size")
suppressMessages(library('testthat'))
suppressMessages(library('dplyr'))
suppressMessages(library('magrittr'))
suppressMessages(library('purrr'))
suppressMessages(library('stringr'))
suppressMessages(library('tibble'))
suppressMessages(library('tidyr'))
suppressMessages(library('ROI.plugin.ecos'))
suppressMessages(library('fbar'))
data("iJO1366")
test_models <- list(iJO1366 = iJO1366)
test_that("find_fluxes_df works in grouped context", {
d <- find_fluxes_df(iJO1366)$flux
g <- purrr::map_df(1:10, function(x){iJO1366}, .id='sample') %>%
group_by(sample) %>%
tidyr::nest() %>%
mutate(data = map(data, find_fluxes_df)) %>%
tidyr::unnest(cols='data') %>%
ungroup %>%
filter(sample=='3') %>%
select(-sample) %>%
getElement('flux')
expect_equal(g, d)
})
test_that("find_fluxes_df stable across shuffling", {
skip('known theoretical issue')
d1 <- iJO1366 %>% sample_frac() %>% find_fluxes_df() %>% arrange(abbreviation)
d2 <- iJO1366 %>% sample_frac() %>% find_fluxes_df() %>% arrange(abbreviation)
expect_equal(d1$flux, d2$flux)
})
test_that("find_flux_variability_df works", {
skip('known theoretical issue')
for(rxns in test_models){
v1 <- rxns %>%
find_flux_variability_df() %>%
filter(sd > 0.25) %>%
getElement('abbreviation')
v2 <- rxns %>%
find_flux_variability_df() %>%
filter(sd > 0.25) %>%
getElement('abbreviation')
expect_gte(length(intersect(v1,v2))/length(union(v1,v2)), 0.9)
}
})
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.