library(PCRedux)
context("mblrr")
test_that("mblrr gives the correct dimensions and properties", {
library(qpcR)
res <- mblrr(x = boggy[, 1], y = boggy[, 2], normalize = TRUE)
expect_that(res, is_a("numeric"))
expect_true(length(res) == 6)
expect_true(is.na(res[["mblrr_cor_pt"]]) == 0)
expect_true(res[["mblrr_cor_bg"]] >= 0.80067 && res[["mblrr_cor_bg"]] <= 0.800679)
expect_true(res[["mblrr_cor_bg"]] >= 0.80067 && res[["mblrr_cor_bg"]] <= 0.800679)
expect_true(round(res[["mblrr_intercept_pt"]], 6) == 1.037105)
expect_true(round(res[["mblrr_slope_pt"]], 6) == -0.001629)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.