test_that("normalizeCoProDat", {
df <- tibble(C = rep(1, 10), U = rep(1, 10)) %>% setDT
cFactor <- 0.151; uFactor <- 0.296
normalizeCoProData(df)
expect_equal(c( df$C, df$U), c(rep(cFactor, 10), rep(uFactor, 10)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.